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РЕВЮ 


— М1,№2 1993 


"ИНФОРКОМ" 123019, Москва, Г-19, а/я 16 


СПЕКТРУМ В ШКОЛЕ 


Для тех, кто использует компьютеры семейства “7Х-Зрестит" в школьных 
учреждениях, мы подготовили сегодня программу "МОЗАИКА". Интересным, на наш взгляд, 
в ней является то, что это программа двойного назначения. Ее можно применять на уроках 
информатики как в старших классах, так и в младших. 

Более опытные ученики смогут набрать текст этой программы и отладить ее, а для 
младших школьников она явится замечательным первым шагом в компьютеризацию, 
поскольку поможет легко наладить процесс общения с компьютером и сделать его 
радостным. 

У нас есть положительный опыт работы с этой программой шестилетних детей, 
которые без труда освоили всю необходимую технику управления. 

Не лишним также будет отметить и тот факт, что применима эта программа не только 
в школе, но и конечно дома. В этом случае она доставит много приятных минут и детям и их 
родителям. Не пожалейте несколько утренних часов. Ваш сын или дочь на всю жизнь 
запомнят этот воскресный день. 

Дополнительный интерес в этой программе представляет и то, что при ее наборе Вам 
предстоит ознакомиться со многими профессиональными приемами, например с 
подгрузкой своего знакогенератора, с организацией перехода по ошибкам ОМ ЕАВОВР СО 
ТО, с работой шестнадцатиричного загрузчика, с организацией в программе нулевой 
строки, с заполнением этой строки блоком кодов ВЕМ ЕШ., с адаптацией программы под 
БЕТА-ДИСК-интерфейс ит.д. и т.п. Все эти вопросы здесь последовательно разобраны, но 
Вам могут (если Вы пожелаете) пригодиться ранее выпущенные нами сборники "7Х-РЕВЮ" 
за прошлые годы. 

"ИНФОРКОМ" предоставляет Вам возможность заказать и получить по почте 
сборники "7Х-РЕВЮ-91" и "7Х-РЕВЮ-92", выполненные в виде аккуратных книжек 
стандартного формата. Наш адрес Вам известен. 

Те, кто не хочет связываться с почтой, смогут приобрести их лично на нашем 
корпункте по адресу: г. Москва, ул. Новый Арбат (бывший просп. Калинина), д.2, о/с Г-19. На 
первом этаже Вы найдете нас по вывеске "7Х-РЕВЮ". 


ПРОГРАММА "МОЗАИКА" 


В магазинах игрушек продается игра под названием "МОЗАИКА". Кто в детстве не 
играл в нее? В панель с отверстиями вставляются разноцветные фишки, которые образуют 
рисунок. Сегодня вниманию читателей предлагается компьютерный вариант этой игры. 
Программа может использоваться не только в младших классах школы, но даже в 
дошкольных учреждениях. 

По существу это простейший в управлении графический редактор. Освоить 
профессиональный графический редактор, такой, как, например "ААВТ!$Т" или "ААТЗТУГО", 
ребенок не в состоянии, а программа "МОЗАИКА" поможет ему приобщиться к 
"компьютерной графике". В то же время, эта программа приучит ребенка пользоваться 
функциональными клавишами переключения цвета чернил, бумаги, режима работы 
"графика - текст" и т.п., то есть будет пройден “курс подготовки" перед освоением в 
будущем более сложных программ. 


Для того, чтобы в деталях понять многие моменты, используемые в этой программе, 
следует обратиться к циклу ряда статей, опубликованных под рубрикой "Профессиональный 
подход" в ХХ-РЕВЮ в 1992 году (см. стр. 113-116, 193-202, 241-248). Однако, если у Вас нет 
возможности ознакомиться с этими материалами, или нет желания вдаваться в 
подробности работы программы, Вы можете получить готовую программу, если будете 
строго придерживаться указаний по набору Бейсик программы и блоков кодов. 

Теперь несколько слов о том, что же может эта программа. Для простоты пользования 
в программе не применяется полностью графический режим, при помощи которого можно 
рисовать линии, окружности и т.д. Применяется только псевдографика, позволяющая 
печатать какой-либо символ в то знакоместо экрана, где находятся курсор. Символьный 
набор же сделан такой, что при нажатии буквенных клавиш, печатаются всевозможные 
символы: кружочки (это прежде всего, как в обычной игре "Мозаика"), а также квадратики, 
треугольнички, крестики и т.д., (насколько хватает фантазии) по количеству буквенных 
клавиш. 

Изображение строится, например, из кружочков, как в игре "Мозаика" из круглых 
фишек, но в отличие от прототипа, можно использовать "фишки" разной формы и ктому же 
не беспокоиться о том, что фишек нужного цвета не хватит для желаемого рисунка. 

Символьный набор для игры построен таким образом, что переключившись в режим 
САР$З 1ОСК, можно печатать буквы русского алфавита. Этот режим нужен не для того, чтобы 
использовать программу в качестве текстового редактора, а для того, чтобы можно было 
подписать рисунок. 

Для перемещения курсора по экрану используются функциональные клавиши 
перемещения курсора, а при помощи других функциональных клавиш производится 
переключение цвета чернил, бумаги, бордюра, включение и выключение режимов 
повышенной яркости и инверсии. При распределении этих функции между клавишами, 
ориентир был сделан на удобство пользования для клавиатуры "ЗРЕСТВУМ-+" или что то же 
самое, отечественного компьютера “"ДЕЛЬТА-С". (Хотя это распределение Вы можете 
изменить на свой вкус.) 

Краткая инструкция по пользованию программой всегда находится в памяти 
компьютера и в любой момент может быть вызвана на экран при нажатии ВВЕАК, при этом 
изображение с экрана запоминается и после просмотра инструкции возвращается обратно 
на экран. 

В программе предусмотрена возможность сохранения рисунка на внешнем носителе 
(магнитная лента, дискета) и загрузки рисунка с внешнего носителя. Предусмотрена также 
возможность оперативного сохранения рисунка в специальном буфере в памяти 
компьютера. С этим буфером можно производить следующие манипуляции: переслать 
рисунок с экрана в буфер, вызвать рисунок из буфера на экран, а также обменять 
содержимое экрана и буфера между собой. 

После того, как работа над рисунком закончена, можно насладиться результатами 
своего труда под музыкальное сопровождение компьютера, нажав ЕМТЕН. 

Для дальнейшей работы, при необходимости, может быть произведена очистка 
экрана. 

Теперь, когда мы кратко ознакомились с возможностями программы "МОЗАИКА", 
можно переводить к подробному описанию программы. Она набрана на Бейсике, но в ней 
используются фрагменты в машинных кодах, в частности те, о которых говорилось в "7Х- 
РЕВЮ", см. выше. 

Учитывая тот факт, что у многих пользователей имеется "БЕТА-ДИСК интерфейс", 
программа построена таким образом, что адаптация ее под “БЕТА-ДИСК" сводится к 
минимуму. Об этом будет подробный разговор в конце статьи. 

Кроме Бейсик-файла и файла в машинных кодах для работы программы необходимо 
подготовить например, при помощи "ААТЗТУОЮ", заставку-картинку, на которой будет 
содержаться краткая инструкция по клавишам управления программой. Форма, цвет, 
размер шрифта, окружающее оформление - произвольное, пусть его Вам подскажет Ваша 
фантазия, но там кроме названия программы должна быть следующая информация: 


КЛАВИШИ УПРАВЛЕНИЯ: 


[ВАЕАК] -Вызов инструкции 
[Е.МООЕ]  -Смена цвета чернил 


[ОВАРН] -Изменение яркости 
[ЕО] -Смена цвета бумаги 
ИММ.М.] -Инверсия вкл./выкл. 
ПВ. \.] -Смена цвета бордюра 


[РЕТЕТЕ]  -Забой символа 
[ЕМТЕН] -Просмотр рисунка 
[С.4ОСК] — -Режим графика/текст 


Буквенные клавиши - граф.символы 
[С$]+буквенные клавиши, а также 
[5$]+2,0,\, 9,0 - русские буквы 


ЗТОР [$$]+А - Очистка экрана 

<= [5$1|+@ - Запоминание экрана 

>= [$5$5|+Е - Экран из буфера 

<>  [55]44М - Обмен экран/буфер 
[$$] + - Загрузка экрана 
[5$]+5 - Запись экрана 


Подготовив файл с этой картинкой-инструкцией, запишите его на магнитофон под 
именем "тогак $" СОБЕ 16384,6912. 

Кроме этого надо подготовить еще один кодовый файл для работы программы. Это 
будет "тохак" СОБЕ 63824,1584. Сюда входят следующие коды: 

Во-первых, это символьный набор, содержащий русские буквы и графические 
образы, причем кодам с 64 по 95 (заглавные латинские буквы) соответствуют русские буквы, 
а кодам с 96 по 127 (строчные латинские буквы) соответствуют графические символы. 
Русские буквы в символьном наборе следует расположить в соответствии с тем, как 
подписана Ваша клавиатура. Можно, например, в соответствии с кодами КОИ-7Т: 
"ЯВЕРТЫ...", а можно в соответствии с клавиатурой пишущей машинки: "ЙЦУКЕН...". 
Поскольку программа не претендует на стыковку с принтером в литерном режиме, то 
возможен любой вариант. Из-за того, что на “Спектруме" меньше клавишей, чем на 
пишущей машинке, часто применяется вариант со смещенным верхним рядом "ЦУКЕНГ...". 
В общем, как Вам нравится, так и делайте. Для примера ниже приведен символьный набор в 
кодах КОИ-7 (имеется в виду только соответствие заглавным латинским буквам, так как на 
месте строчных букв находятся графические символы "МОЗАИКИ"). Переставить русские 
буквы в соответствии с тем, как отмаркированы клавиши Вашего компьютера очень просто 
при помощи программы "ААТЗТУО!Ю". В ней для этого предусмотрена специальная 
возможность. Надо загрузить предлагаемый символьный набор в “АВТЗТУГО”", затем в 
текстовом режиме, начиная из левого верхнего угла, напечатать 32 русские буквы в 
соответствии с требуемым новым порядком расположения, а затем, задав окно вокруг этих 
напечатанных букв скопировать их с экрана в символьный набор, начиная с символа "©", 
пользуясь операцией САРТУВЕ РОМТ меню РОМТ ЕЙТОВ. 

Сразу же за символьным набором следует блок УОС-графики. Правда, используется в 
программе всего лишь один символ ЧОС - "А", однако нет гарантии, что в дальнейшем 
программа не будет усовершенствоваться, поэтому зарезервирован полный объем ЧОС- 
блока, 168 байт. 

Кроме символьного набора и ЧУБС-блока в кодовом файле расположен блок кодов "ОМ 
ЕАВОРВ СО ТО" (см. "7Х-РЕВЮ" М 5-6 за 1992 г. стр. 113). Затем идут два небольших блока, 
длиной по 32 байта каждый, воспроизводящие звуковые эффекты, (см. "7Х-РЕВЮ\" М 11-12 


за 1992 г. стр. 241). 
Далее расположено несколько блоков кодов, осуществляющих переброску из экрана 
в память или из памяти на экран. Для простой переброски используется команда ИОВ, и 
тогда процедура переброски будет выглядеть следующим образом: 
ЕО НЕ, 16384 адрес экрана 


ЕО ВС, 6912 длина кодов 
ЕО ОЕ, 50000 адрес буфера 
ЕОТВ 
ВЕТ 


Такой блок кодов имеет длину 12 байт и может быть загружен в любое место памяти. 
Разумеется, при переброске экрана в буфер, содержимое последнего будет уничтожено, как 
и содержимое экрана будет уничтожено при переброске буфера на экран. Для того, чтобы 
обменять содержимое экрана и буфера без уничтожения обоих, применяется другая 
процедура. Она взята из программы "ЗУРЕВСОПЕ" (М 27): 


[р ОЕ, #0350 (1) 
[р Н,, #4000 

[р В, #1В 2) 
РОЗН ВС 5) 
[р В, #00 4) 
[0 А, (НЕ) 5) 
РОЗН АР 

[0 А, (0Е) 6) 
ГБ (НЕ), А 7) 
РОР АЕ 8) 
ЕВ (ОЕ), А 

ТМС НЕ 9) 
ТМС ОЕ 

№ #АВОВ 10) 
РОР ВС 11) 
0)№ #АВОВ 12) 
ВЕТ 


Блок кодов имеет длину 25 байт. Его можно загружать в любое место памяти. Адрес 
загрузки является адресом старта. Адрес начала дисплейного файла экрана задан в 
регистре НЕ, а начало буфера - в регистре ПЕ (1). Основу блока составляет процедура 
обмена содержимого одной пары ячеек экрана и буфера (5)-(9). Сначала в аккумулятор 
загружается содержимое ячейки экрана (5) и отправляется для хранения на стек. Затем в 
аккумулятор загружается содержимое соответствующей ячейки буфера (6) и из него 
перегружается в ячейку экрана (7). После этого в аккумулятор со стека считывается 
запомненное значение экранной ячейки (8) и записывается в буфер. После завершения 
обмена ячеек содержимое регистров НЕ и ВЕ увеличиваются на единицу (9) для перехода к 
следующей паре ячеек. 

Для полной переброски дисплейного файла вместе с атрибутами надо эту 
последовательность действий повторить 6912 раз. Это осуществляется двумя циклами 
(один внутри другого). Внутренний цикл (4)-(10) организован с максимально возможным 
числом повторений (в счетчик цикла - регистр В записывается 0, что соответствует 256 
повторениям). Внешний цикл должен содержать, таким образом 5912/256 -27 (или #1В) 
повторений. Внешний цикл - (2)-(12). Так как и во внутреннем и во внешнем циклах 
счетчиком числа повторений является регистр В, то для того, чтобы значение регистра В не 
терялось при переходе от внешнего цикла ко внутреннему, оно запоминается на стеке (3) и 
снимается для контроля при переходе к внешнему циклу (11). 

Далее - возврат в вызывающую программу. 

Перед первым запуском этого блока кодов необходимо позаботиться о том, чтобы в 
буфере находились атрибуты белого экрана. Иначе, если буфер содержал, например, нули, 
то после переброски экран станет черный. 

При однократном выполнении этого блока кодов происходит смена изображения 
экрана и буфера. При следующем выполнении восстанавливаются прежние изображения. 
Это используется, например, для вызова на экран, инструкции и сохранения при этом 
рисунка. 


Для организации разнообразных обменов между экраном и буферами есть два 
варианта. Первый: иметь один блок кодов для простой переброски и один блок кодов для 
обмена экрана и буфера. А перед выполнением требуемой переброски подставлять в 
нужные ячейки памяти (при помощи Бейсика) соответствующие числа, задавая параметры 
НЕ и ОЕ. Но учитывая небольшую длину кодовых блоков, их можно заготовить такое 
количество, какое потребуется для всевозможных перебросок (подготовка исходных 
параметров при помощи Бейсика съест больше памяти). Поэтому в программе 
используются несколько блоков для переброски. 

Еще в кодовом файле “тогхак" СООЕ находится машиннокодовый музыкальный 
фрагмент, воспроизводящий знакомую мелодию. Он подготовлен при помощи 
музыкального редактора "\ММНАМ". 

Для того, чтобы Вы могли полностью воспроизвести у себя программу "МОЗАИКА", 
ниже приведены все используемые в программе блоки кодов. 

Рассмотрим распределение памяти при работе программы "МОЗАИКА ". ВАМТОР при 
старте программы устанавливается равным 49999. 


Буфер, зарезервированный 50000 
для запоминания экрана 
6912 байт 
Буфер, зарезервированный 56912 
для хранения титульной заставки 
(инструкции) 
6912 байт 
Символьный набор 63824 
768 байт 
Блок ООШС-графики 64592 
168 байт 
Блок ОМ ЕВВОВ СО ТО 64760 
73 байта 
Звук $О00М№О 1 64833 
32 байта 
Звук ЗО0МО 2 64865 
32 байта 
Процедура для переброски 


экрана в буфер 64897 
12 байт 

Процедура для переброски 

буфера на экра 64909 
12 байт 

Процедура для обмена 

экрана и буфера 64921 
25 байт 

Процедура для переброски 

инструкции (заставки) 64946 

из памяти на экран 
12 байт 

Обмен экрана и заставки 64958 
25 байт 

Музыкальный фрагмент 64983 
525 байт 


Теперь, когда мы разобрались в общих чертах с кодами, можно приступить к 
описанию Бейсиковского файла программы "МОЗАИКА". Текстовые сообщения на русском 
языке в листинге программы напечатаны по-русски, хотя так на самом деле не выглядят. Это 
сделано только для удобочитаемости программы. По-русски они будут выглядеть после 
переключения символьного набора при работе программы. 


1 @0 ТО 100 

2 ВОНОЕН 7: РАРЕВ 7: ТМК 0: СЬЕАВ 49999: РОКЕ 23739, 111: 10АБ “тохалк $"С00Е 16364 

3 10АБ “тохатк”СорЕ 63834 

4 НАМРОМТУЕ ЦЗН 64946: 60 508 7: 60 50В 20: (1$ : ВАМБОМТУЕ 1$8А 64897: ВИМ 

5 ЗАМЕ "МОГАТК" (ТМЕ 2: ЗА\МЕ “тохазк $"СО0Е 56912, 6912: ЗАМЕ "“тохазк”СоЕ 63824, 1684 

6 \УЕНТЕУ “МО7АТК": УЕАТРУ “тохазк $"СО0Е : УЕАТРУ “тохазк”Со0Е : 60 ТО 9999 

7 РОКЕ 23675,80: РОКЕ 23676, 252: ВЕТИВМ : ВЕМ и99 

8 РОКЕ 23606, 80: РОКЕ 23607, 248: ВЕТИВМ : ВЕМ гиз 

9 РОКЕ 23606,0: РОКЕ 23607, 50: ВЕТОАМ : ВЕМ Таф 

10 РОКЕ 64813,РЕЕК 23670: РОКЕ 64813, РЕЕК 23671: ВАМБОМТУЕ У5$В 64760: ВЕТОВМ : ВЕМ егг 

20 60 50В 8: РАТМТ АТ 1,0; ТМК 7; РАРЕН 1; ВАТОЕНТ 1; ЕЁГАЗН 1;" нажмите любую клавишу 

22 ВЕЕР .1,26: ВЕЕР .1,20 

24 ВАМБОМТУЕ 29: @0 5ЦВ 10: РАЦЗЕ 0 

29 ВЕТИВМ 

30 ВОВБЕВ 7: ТМРУТ ;: РАТМТ РАРЕВ 7; ТМУЕВЗЕ 0; АТ 0,0; " 

39 ВЕТИВМ 

40 ТЕ х>31 ТНЕМ ГЕТ х=0: [ЕТ у=у+1 

42 ТЕ х<0 ТНЕМ ТЕТ х=31: [ЕТ у=у-1 

44 ТЕ у>21 ТНЕМ 1ЕТ у=1 

46 ТЕ у<1 ТНЕМ (ЕТ у=21 

49 ВЕТОВМ 

50 60 50В 30 

52 РВТМТ АТ 0,0: " введите имя (макс.10 символов) “ 

54 60 50В 9: ТМРИТ 1ЛМЕ 1$: ТЕ Е$="" ТНЕМ ЁЕТ 1$="$” 

56 60 50В 30 

59 ВЕТИВ 

60 60 50В 8: РАТМТ АТ 0,0; ТМК 7; РАРЕН 2; ВАТОЕНТ 1; ЕЁГАЗН 1; ” ошибка 
"; ВЕЕР 1,0: РАЦЗЕ 0 

69 ВЕТИВ 

70 ВАМООМТУЕ 60: 60 508 10: [ОАО 1$ СОБЕ 16384 

79 ВЕТИВ 

80 ВАМООМТУЕ 60: 60 508 10: 5АМЕ +Е$ СОБЕ 16384, 6912 

89 ВЕТИВ 


100 ТЕТ у=20: 1ЕТ х=3: ЕЕТ 66=3: ЕЕТ р=7: ЁЕТ 1=2: 1ЕТ 0=1: [ЕТ 1=0: ЁЕТ у=0 
1000 ВАМООМТУЕ 1000: 60 508 10:ВОВОЕВ 56: ТМРИТ :: @0 508 8 
1010 РАТМТ РАРЕВ 7; ТМК 0; ВАТСНТ 0; ТМУЕВЗЕ О;АТ 0,0; “ чернила- яркость- бумага- “ 
1020 РАТМТ ТМК 1: РАРЕВ р: ВВТОНТ Ь: ТАМ\УЕВУЕ м; АТ 0,10; СНЕ$ 143 : АТ 0,29; ” "; ТМК 7: АТ 
0,20; ТАМЕВЗЕ мае 
1100 60 $0В 40 
1110 РАТМТ О\ЕВ 1; РАРЕВ 8; ТМК 8; ВАТОНТ 8; ЕЁГАЗН Е; ТМУЕВУЕ \,:АТ у, х; “А”; СНВ$ 8;: ВЕМ А- 
ОНАРН 
0 ВАМООМТИЕ 2000: 60 50В 10:РАУЗЕ 0: ЕЕТ 1$=ТМКЕУ$ 
0 РАТМТ О\УЕВ 1: РАРЕВ 8: ТМК 8: ВВТЕНТ 8: РЕАЗН 0: ТМУЕВУЕ у: “А”; СНА$ 8:: ВЕМ А-СВАРН 
0 НАМООМТУЕ 1000: 60 508 10 
1310 ТЕ СОБЕ ТМКЕУ$=8 ТНЕМ ЕЕТ х=х-1: 60 ТО 1100 
0 
0 
0 


ТЕ СОБЕ Т№МКЕУ$=9 ТНЕМ ГЕТ х=х+1: @0 ТО 1100 
ТЕ СООЕ Т№МКЕУ$=10 ТНЕМ ЕЕ 


у=у+1: 60 ТО 1100 


ЕТ 

1340 ТЕ СООЕ ТМКЕУ$=11 ТНЕМ (ЕТ у=у-1: 60 ТО 1100 

1350 ТЕ СООЕ ТМКЕУ$=12 ТНЕМ (ЕТ х=х-Р: 60 $08 40: РАТАТ АТ у,х;" ": ВАМООМТРЕ И5В 64865: 60 
ТО 1100 

1360 ТЕ ТМКЕУ$=" " ТНЕМ РАТАТ АТ у,х;" ": ВАМООМТРЕ 05В 64833 :ЕЕТ х=х+1: 60 ТО 1100 


1365 ТЕ ТМКЕУ$="!" АМО р+1=0 ТНЕМ 60 ТО 9999 
1370 ТЕ 1$=" АМО ” ТНЕМ (ЕТ 1$="[": ВЕМ ТОКЕМ 
1380 ТЕ 1$=" 5ТЕР " ТНЕМ ЕТ 1$=”\": ВЕМ ТОКЕМ 
1390 ТЕ 1$=" ОН ” ТНЕМ 1ЕТ 1$="]": ВЕМ ТОКЕМ 
1400 ТЕ 1$=" “ АЮО 1$<="7"” ТНЕМ РАТМТ РАРЕВ р; ТМК 1; ВВТСНТ 6; ТМУЕНЗЕ \%;1$;: ААМООМТУЕ 058 
64833: ГЕТ х=х+Р: 60 ТО 1100 

1410 ТЕ 1$=" МОТ " ТНЕМ 60 518 50: 60 5ЦВ 80: ВЕМ ТОКЕМ 


1420 ТЕ 1$=” АТ “ ТНЕМ 60 508 50: 60 50В 70: ВЕМ ТОКЕ 
1430 ТЕ 1$="<=" ТНЕМ 60 5ИВ 30: ВАМООМТУЕ ЗВ 64897: РАТМТ АТ 0,0: 
е экран в памяти "; ВЕЕР 0.1,26: РАЦЗЕ 50 
1440 ТЕ 1$=">=" ТНЕМ 60 50В 30:НАМБОМТУЕ 158 64909. ВЕЕР 0.1,20 
1450 ТЕ 1$="<>" ТНЕМ 60 50В 30: ВАМООМТУЕ Ц5В 64921: ВЕЕР 0.1,26: ВЕЕР 0.1,20 
1460 ТЕ 1$=” 5ТОР ” ТНЕМ (1$ 
1470 ТЕ С00Е 1$=15 ТНЕМ ЕЕТ 6=6=0 
1480 ТЕ СОБЕ 1$=5 ТНЕН 1ЕТ у=у=0 
1490 ТЕ СОБЕ 1$=6 ТНЕМ 1ЕТ Т=Т=0: РОКЕ 23658, 8*(2-Р) 
1500 ТЕ СОБЕ 1$=14 ТНЕМ ЕТ 1=(1+1)*(1<7) 
1510 ТЕ СОБЕ 1$=7 ТНЕМ ЕЕТ р=(р+1)*(р<7) 
1520 ТЕ С00Е 1$=4 ТНЕМ ЕЕТ 66=(66+1)»*(66<7) 
1530 ТЕ С00Е 1$=13 ТНЕМ 60 508 30: РОВ с=0 ТО 50: МЕХТ с: НАМООМТУЕ 158 64983 
1999 @0 То 1000 
2000 ВОВОЕВ 7: ТМРИТ ; 
2010 ВАМООМТУЕ Ц5Н 64958: ВЕЕР .1,36: ВЕЕР .1,20 
2020 ВАМООМТУЕ 2030: @0 ЗВ 10:РАЦЗЕ 0 


2030 ВАМООМТУЕ ЦЗЕ 64958: ВЕЕР .1,26: ВЕЕР .1,20 
2040 ВОНОЕВ 06: ТМРИТ ;: 60 ТО 1200 
9999 60 $0В 9: ВОВБЕН 7: РОКЕ 23658, 16 


Переменные, применяемые в программе: 

у - вертикальная координата курсора (строка) 

х - горизонтальная координата курсора (колонка) 
ЬБ - цвет бордюра 

р - цвет бумаги (РАРЕВ) 

1 - цвет чернил (1МК) 

6 - яркость (ВАСНТ) 

{- мигание (ЕЕАЗН) 

у - инверсия (1ИМ\УЕВЗЕ) 

1$ - нажатая клавиша 


Автостарт программы происходит со строки 2. Здесь задаются цвета экрана и 
резервируется место для работы блока кодов программы. Кроме этого, при помощи РОКЕ 
отменяется вывод на экран сообщений типа: "В\е$:" при загрузке блоков кодов. Первый 
загружаемый блок - это заставка-инструкция, и благодаря этому РОКЕ при загрузке 
следующего кодового файла (в строке 3) экран не будет испорчен. Этот прием уже был 
описан на страницах "РЕВЮ". 

В строке 4 заставка-инструкция при помощи блока машинных кодов (смотри 
распределение памяти выше) перебрасывается в буфер для хранения инструкции (в адрес 
56912). Далее подпрограмма СО $ЗУВ 7 производит переключение блока ЧУОС на 
загруженные коды. Выполняется подпрограмма СО ЗВ 20, выводящая на экран табличку 
"нажмите любую клавишу" (место для вывода таблички назначьте такое, чтобы она не 
уничтожала информации на экране). Звуковой сигнал говорит о том, что загрузка 
программы завершена и она ждет команды начала работы. Программа останавливается на 
РАЦЗЕ 0 в строке 24, а непосредственно перед паузой конструкция: РАМООМШЕ 29: СО ЗЦВ 
10 задает параметр для работы кодового блока "ОМ ЕАВОН СО ТО", что означает переход в 
случае ошибки (нажатии ВВЕАК) на строку с номером 29. То есть при нажатии любой 
клавиши, в том числе и ВВЕАК, будет выполнен возврат на строку 4. При этом происходит 
следующее. Очищается экран и в этот момент содержимое этого чистого экрана засылается 
в буфер экрана (в адрес 50000), подготавливая таким образом атрибуты изображения в 
буфере в случае последующего обмена экрана и буфера, чтобы экран после обмена не 
выглядел черным. Теперь подготовка завершена и происходят старт программы точно так 
же, как Вы будете это делать после остановки программы - командой РИМ. 

По команде ВУМ происходит старт программы с первой строки, которая переадресует 
на строку 100. В строках до 100 расположены различные подпрограммы; их назначение 
будет рассмотрено в процессе описания. В строке 100 присваиваются первоначальные 
значения переменным, используемым в программе. После этого начинается собственно 


выполнение основной части программы. 

Строка 1000 является базовой, на нее может быть сделан переход из различных мест 
программы, поэтому в начале этой строки задается переход на нее же в случае ошибки, 
которая может возникнуть при работе программы. Далее задается цвет бордюра и 
происходит окрашивание в цвет бордюра двух системных строк экрана. Они для создания 
рисунка недоступны. Подпрограмма СО $ЗУВ 8 производит переключение символьного 
набора на тот, который загружен, с графическими образами и русскими буквами. 

Строки 1010 и 1020 выводят в верхней части экрана индикаторную строку, в которой 
отображается текущее состояние цветов чернил и бумаги, а также значение яркости. 
Индикаторная строка также недоступна для создания рисунка. 

Строка 1100 также является базовой. На нее также происходят переходы из 
различных мест программы. На нее замыкается малый цикл опроса клавишей в который 
входят опрос курсорных клавишей, клавиши забоя, пробела и буквенных клавишей. 
Поскольку быстродействие Бейсика невелико, такой прием позволил реализовать вполне 
приемлемое быстродействие при перемещении курсора и печатании символов. 

Подпрограмма СО ЗВ 40 - это контроль положения курсора. При перемещении 
курсора, при достижении правого края экрана происходит переход на левый край но на 
следующей строке экрана (строка 40 программы). При достижении левого края - курсор 
перескакивает на правый край на предыдущую строку экрана (строка 42). При вертикальных 
перемещениях курсора изменения номера колонки не происходит (строки 44,46). 

Строка 1110 выводит на экран курсор. Его изображение закреплено за символом "А" 
ЦЧОС-графики. Цвет курсора определяется теми атрибутами, которые установлены для этого 
знакоместа. Если там ничего еще не нарисовано, то это белая бумага и черные чернила. 
Однако, если в этом знакоместе уже напечатан какой либо символ, то цвет курсора будет 
зависеть от атрибутов этого знакоместа. Кроме того, курсор печатается в режиме ОМЕН 1, 
поэтому он накладывается на символ, находящийся в этом знакоместе. Вид курсора будет 
меняться в зависимости от включенного режима инверсии, а также от параметра мигания. 
Забегая вперед, скажу, что мигание курсора свидетельствует о переключении из режима 
"графика" в режим "текст". Или иными словами, это включение режима САР$ 1ОСК. 

В строке 1200 происходит ожидание нажатия клавиши. Так как это может быть 
клавиша ВВЕАК, то на этот случай задается переход на строку 2000, где происходит вывод 
на экран инструкции. Это делается так. В строке 2000 устанавливается белый цвет бордюра 
и двух нижних строк экрана, затем (2010) при помощи кодового блока происходит обмен 
содержимого экрана и буфера инструкции, затем звуковой сигнал и пауза для ожидания 
нажатия любой клавиши (2020). Но непосредственно перед паузой - установка блока ОМ 
ЕАВОРВ СО ТО на следующую после паузы строку. Теперь при нажатии на любую клавишу, в 
том числе и на клавишу ВАЕАК, произойдет переход на строку 2030, то есть будет 
продолжено выполнение программы. Еще раз происходит обращение к кодовому блоку, в 
результате чего происходят восстановление рисунка на экране, а инструкция отправляется 
назад в свой буфер. Далее - звуковой сигнал, восстановление цвета бордюра и двух нижних 
строк экрана. Затем возврат в то место программы, откуда был сделан переход на 2000-ю 
строку, то есть на строку 1200. 

Если в строке 1200 нажата не клавиша ВВАЕАК, то продолжается выполнение 
программы со строки 1210. Здесь еще раз происходит печать курсора в режиме О\ЕН 1, в 
результате чего восстанавливается прежнее изображение в этом знакоместе. 

Со строки 1300 начинается определение действий в зависимости от нажатой 
клавиши. Строки 1310-1340 определяют перемещение курсора. 

Строка 1350 - удаление символа в текущем знакоместе. Причем в зависимости от 
того, в каком режиме находится программа: в графическом или в текстовом, забой 
действует по-разному. В графическом режиме удаляется символ в позиции курсора, а в 
текстовом - символ слева от курсора, так привычнее при печати текста. Текущий режим 
"графика" или "текст" определяется по миганию курсора. Если показатель мигания 1=0, то 
режим "графика", а если 1=1, то режим "текст". В зависимости от этого происходит или нет 


изменение текущей координаты "х" курсора. Удаление символа происходит путем печати 


пробела в позиции с текущими координатами, что сопровождается соответствующим 
звуком. 

Строка 1360 реагирует на нажатие пробела. В этом случае, как и при удалении 
символа, происходит печать пробела в знакоместе с текущими координатами, что также 
приводит к удалению прежнего символа, однако независимо от режима (мигающий курсор 
или нет) происходит увеличение на единицу горизонтальной координаты курсора. Это 
может оказаться полезно при "расчистке" небольших участков рисунка в режиме "графика", 
а в режиме “текст” привычно печатается пробел. (Если Вы считаете, что это слишком 
запутанно, то просто удалите строку 1360.) 

Строка 1365 является "жучком", позволяющим остановить программу для внесения 
каких-либо изменений в процессе отладки. Для остановки надо ввести символ "!" (ЗУМВОЕ 
ЭНИЕТ + 1). Чтобы остановка не происходила самопроизвольно в процессе работы при 
попытке напечатать этот символ, для остановки программа требуется дополнительное 
условие: чтобы переменные, определяющие цвета чернил и бумаги имели нулевые значения 
(черные чернила и черная бумага - то есть ситуация, бессмысленная при обычной работе). В 
случае соблюдения этих условий программа переходит на строку 9999, в которой 
происходит переключение на символьный набор ПЗУ Спектрума, установка белого бордюра, 
а также принудительное отключение регистра САР$ 1ОСК для удобства редактирования. 

Строки 1370-1390 нужны для того, чтобы можно было печатать символы, которые 
обычно можно напечатать в расширенном режиме ЕХТЕМО МОПЕ. В символьном наборе 
КОИ-7 русские буквы "Ш" и "Щ" расположены на месте “[" и "]", а последние набираются в 
режиме ЕХТ.МОПЕ. Поэтому используется прием, позволяющий вводить эти символы при 
помощи ЗУМВОЕ ЗНЕТ вместо "АМО" и "ОВ" соответственно. Аналогично вводится “"Э" 
вместо “ЗТЕР", так как эта буква находится на месте символа "\". (Этот прием, кстати, 
позаимствован из "АРТСТУДИИ".) Если же Вы будете использовать символьный набор с 
другим расположением русских букв, то продумайте вопрос набора тех букв, которые не 
помещаются на клавишах с 26-ю латинскими буквами. 

Строка 1400 выполняет печать графических символов и русских букв. Печать 
сопровождается специфическим звуком, воспроизводимым блоком в кодах. В том случае, 
если программа находится в режиме "текст", то очевидно, что после печати очередного 
символа, курсор должен переместиться на следующее знакоместо. При построении рисунка 
по-видимому такого перемещения не должно быть, так как заранее не известно, в какую 
сторону должен быть сдвинут курсор для построения рисунка (может быть, вверх или вниз). 
Поэтому в режиме "графика" перемещения курсора не происходит. Режим определяется по 
миганию курсора (параметр 1). Вопрос о том, должен ли курсор перемещаться или нет 
является в общем-то спорным, поэтому, если Вы хотите, чтобы курсор всегда после печати 
перемещался на одну позицию вправо, то в строке 1400 вместо: х=х+{ подставьте: х=х+1. 

Строки, связанные с нажатием клавишей, с 1300 по 1400 заканчиваются все 
одинаково: зацикливанием на строку 1100. Это, так называемый, малый цикл опроса 
клавишей. Это, как уже говорилось, сделано для ускорения реагирования программы на 
нажатие основных клавишей. Со строки 1410 начинается расширенный цикл опроса. В конце 
этих строк нет перехода на базовую строку. Переход происходит а самом конце 
расширенного цикла: в строке 1999 программа зацикливается на строку 1000. 

Строка 1410 обеспечивает запись экрана на магнитную ленту при нажатии ЭУМВОЕ 
ЭНЕТ+"5" (на клавише ключевое слово ЗА\Е). Вначале производится ввод имени файла (СО 
ЗУВ 50). Вы можете не задавать никакого имени, а просто нажать ЕМТЕВ, тогда файл будет 
записан с именем "$". Можно отменить ввод имени и вернуться к работе программы, если 
при вводе имени нажать “КУРСОР ВНИЗ". (В обычной Бейсик-программе в таком случае 
происходит остановка программы по ошибке, но в программе с блоком ОМ ЕАВОН СО ТО 
происходит переход на заданную строку. Строка для перехода по ошибке была задана 
последний раз в строке 1300, то есть произойдет переход на строку 1000.) После ввода 
имени выполняется подпрограмма записи СО ЗОВ 80. В этой подпрограмме блок ОМ ЕАВОВ 
СО ТО устанавливается на строку 60. Это позволит Вам прервать в случае необходимости 
запись и вернуться к работе через подпрограмму с адреса 60. Это вывод на экран таблички 


"ОШИБКА" и звуковой сигнал. 

ВЕТИНАМ в конце этой подпрограммы вернет на строку 1420. 

Строка 1420 обеспечивает загрузку экрана с магнитной ленты при нажатии ЭУМВОЕ 
ЗНЕТ + "|" (ключевое слово МРОТ). Привычнее, наверное, был бы вариант с клавишей "1", 
или "\/" (ключевое слово ГОАО), однако эти варианты соответствуют символам, печатаемым 
в текстовом режиме: "=" и "-". Если все же Вы считаете, что клавиша "!" неудобна, то можно 
попробовать компромиссный вариант. Вместо 1420 надо будет новую строку расположить 
внутри малого цикла опроса клавишей: 

1395 ТЕ 1$="=" АМО Е=0 ТНЕМ 60 508 50: 60 508 70: 60 ТО 1000 

При этом, правда, загрузка будет возможна только в режиме "графика". Зато в 
режиме "текст" сохранится возможность печатать "=". Выбирайте, что удобнее. 

Строка 1430 позволяет сохранять экран в специальном буфере (с адреса 50000). 
Переброска производится при помощи машиннокодового блока. В процессе работы над 
рисунком полезно периодически делать запоминание экрана. Строка 1440 производит 
противоположное действие - вызов экрана из памяти. Например, после каких-то изменений 
в рисунке, захочется восстановить предыдущий вариант. Строка 1450 производит обмен 
экрана и буфера без потери изображения обоих. Есть возможность сравнить два варианта 
рисунка и выбрать лучший. 

Строка 1460 выполняет очистку экрана при нажатии ЗУМВОЕ ЗНИЕТ + "А" (ключевое 
слово ЭТОР). 

Строки 1470-1520 позволяют изменять яркость, инверсию, переключать режим 
"графика" - "текст", изменять цвет чернил, бумаги и бордюра. Для наглядности выражение 
типа 6=6=О можно было бы записать так: Б=(6=0). То, что стоит в скобках, является 
логическим выражением, оно равно единице, если 6=0. Таким способом достигается 
переключательный эффект изменения яркости, инверсии и режима "графика" - "текст" при 
нажатии соответствующих клавиш. При переключении цвета чернил, бумаги и бордюра 
ситуация похожа. При нажатии на клавишу, цвет (например чернил - 1) изменяется от 0 до 7, 
а при следующем нажатии (!=8) логическое выражение (1<7) станет равно 0, что вызывает 
повторение цикла изменения цвета, начиная с 1=0. 

Строка 1530 воспроизводит "музыкальное сопровождение“. —Циклическое 
проигрывание мелодии происходит до тех пор, пока не будет нажата какая-нибудь клавиша. 
Поэтому, если чуть-чуть задержать руку на клавише ЕМТЕВ, то мелодия прервется на первом 
же звуке. Для устранения этого недостатка введен замедляющий пустой цикл ГОВ-МЕХТ (в 
отличие от РАОЗЕ, которая в данном случае не поможет, так как прекращается как раз при 
нажатии клавиши). 

Строка 1999 завершает цикл опроса клавишей, передавая управление на базовую 
строку 1000. С этого момента работа программы повторяется. 

Теперь, когда мы покончили с Бейсиком, можно переходить к конкретным действиям 
по набору программы. Все коды, которые требуются для работы "МОЗАИКИ", (то есть то, что 
расположено с адреса 63824 и входит в файл "тогащк" СОГЕ), приведены ниже. Число в 
конце каждой строки после двоеточия - это контрольная сумма строки. Она поможет Вам 
при наборе этого блока кодов. 
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ГЕСО:4С 48 44 40 30 39 36 33 :В5 ГЕ98:29 29 29 11 29 29 29 12 :В0 
ГЕС8:30 20 28 28 26 24 22 20 :02 ЕЕАО:29 12 29 29 29 29 29 ОА :В1 
ГЕОО:1Е 1С 1В 19 18 17 15 14 :94 ЕРАЗ: 29 29 29 ОА 29 29 29 0В :В2 
РЕБВ ТЗ Та О ОР 9Е: 0000-92 ГЕВО: 29029: 292929 О 
ГЕЕО:01 ОЕ 00 06 29 ОА 29 ОА :67 ЕЕВ8:29 29 29 11 29 29 29 12 :00 
ГЕЕ8:29 ОЕ 00 06 29 ОА 29 ОА :97 РЕС0: 29:12 29:29:29; 29.29: 9А: ОЛ 
ГЕРО:29 ОЕ 00 06 29 ОА 29 03 :98 ЕЕС8:29 29 29 ОА 29 29 29 0В :02 
ГЕР8:29 ОА 29 01 29 ОВ 29 ОВ :ВВ ЕЕО0:29 ОВ 29 29 29 29 29 11 :Е1 
РРОО:29 ОЕ 00 01 29 ОВ 29 ОВ :АБ ЕЕО8:29 29 29 11 29 29 29 12 :Е0 
ЕРО8:29 ОР 00 01 29 08 29 ОВ :В5 ЕРЕО:29 12 29 40 00 00 00 00 :83 
гЕ1029. 02 01.91, 29.08.2903; 285 


Для набора кодового файла "тогхак" СОШБЕ 63824,1684 можно использовать любую 
программу-монитор, которая есть под рукой. Однако для того, чтобы избежать ошибок, 
которые обязательно возникнут при таком количестве набираемых цифр, удобно будет 
воспользоваться программой для ввода, опубликованной в "7Х-РЕВЮ" М 3 за 1991 г. на стр. 
59 в статье "7Х-МОБЕМ", оформив числовые данные в виде строк ПАТА. Учитывая то, что не 
все имеют возможность ознакомиться с этой статьей, мы рекомендуем Вам 
воспользоваться несколько измененным вариантом программы для ввода кодов. В 
приведенном ниже варианте данные вводятся непосредственно при помощи МРОТ. 
(Возможно, так удобнее). Кроме того, периодически, вводя "5", Вы имеете возможность 
сохранить на ленте то, что уже введено. Приведенные выше коды программы "МОЗАИКА" 
напечатаны вразрядку, да еще с разделителями ":". Это сделано для удобочитаемости 
данных. Вам при наборе надо будет вводить их подряд, например для первой строки: 

Е950000000000000000049 [ЕМТЕВ] 

Никаких пробелов или двоеточий вводить не надо. Ошибки, допущенные при вводе, 
будут отмечены звуковым сигналом, после чего Вам будет предложено повторить ввод. 


1 60 ТО 100 
2 ГОАО “тогатк” С00Е 


Е “ТМРИТ” ЕТМЕ 2: УТОР 
100 ВОВОЕН 7: РАРЕВ 7: ТМК 0: СЕЕАВ 29999 
110 ТМ а(10) 
120 ОЕР Р№ А(а$)=(С00Е а$(1)- 48-(7 АМО а$(1)”9”))*16+(С00Е а$(2)-48-(7 АМО а$(2)>"9")) 
О РОКЕ 23658, 8: ТМРИТ “БАТА:”; (ТМЕ 6$ 
О ТЕ 1$ = "5" ТНЕМ 60 ТО 2000 
0 [ЕТ а$=1$ 
О ТЕТ зи1=0 
О РОВ 1=1 ТО 2 
1050 ЕТ 6$=а$(2*1-1 ТО 2*1) 
0 
0 
0 
0 
0 


со тИ 


ГЕТ а(1)=ЕМ А(Ь$) 
МЕХТ 1 

ЕТ а99=а(1)*256+а(2) 
ГЕТ зип=а(1)+а(2) 

РОВ 1=3 ТО 10 


1110 ЕЕТ 6$=0$(2*1-1 ТО 2+1) 

1120 ЕЕТ а(1)=Е№ А(Б$) 

1130 ЕЕТ зим=зит+а(1) 

1140 РОКЕ ад, а(1) 

1150 ТЕТ а99-а99+1 

1160 МЕХТ 1 

1170 ЕЕТ 6$=Н$(21 ТО) 

1180 ЕЕТ сз=ЕМ А(Ь$) 

1190 ТЕТ с$1=зим-256»ТМТ (зит/256) 
1200 ТЕ сз<>с$1 ТНЕМ РАТМТ а$: ТМ\УЕВУЕ 1;” ЕВАОВ ! “: ВЕЕР 1, О:1ЕТ ад9=ада-8: 60 ТО 1000 
1210 РВАТМТ а$( ТО 4): 60 ТО 1000 

2000 5А\УЕ “тота1к” С00Е 63824, 1684 
2010 УЕВТЕУ "тоха1к"СООЕ 

2020 СЕ5$ : РВТМТ а$( ТО 4): 60 ТО 1000 


Набрав эту Бейсик-программу, сделайте РУМ 5 для записи ее на магнитную ленту 
(автостарт со 2-й строки обеспечит в дальнейшем автоматическую подгрузку уже частично 
набранного кодового файла). После этого запустите программу: ВУМ и начинайте ввод 
кодового файла "тогхак" СОПЕ. При перерывах в работе сохраняйте его на магнитной ленте, 
вводя "5". 


Теперь последовательность, в которой следует набирать всю программу "МОЗАИКА". 
Сначала надо заготовить картинку-заставку при помощи графического редактора. Затем 
набрать приведенный выше кодовый файл. Теперь можно приступить к набору Бейсик- 
файла. Набирая 10 строку, подставьте в ее начало ВЕТИВМ: это отключит пока блок кодов 
ОМ ЕВАОН СО ТО, блокирующий остановку программы. В строке 30 в кавычках набрано 32 
пробела. Набирая текст на русском языке, учитывайте, какой русский символьный набор 
будет применяться в Вашей программе. Можно рекомендовать такой подход. Загрузите уже 
набранный кодовый файл "тогак" СОПЕ, затем, непосредственно перед набором русского 
текста, переключите символьный набор командой СО ЗВ 8, теперь Вы будете видеть 
набираемый текст таким, каким он будет на экране. Обратное переключение символьного 
набора - СО $ЗЧВ 9. Обратите внимание: в строках 1110 и 1210 в кавычках вводится символ 
"А", используя графический регистр. В строках 1370-1390 а также 1410-1460 в кавычках 
вводятся токены ключевых слов. 

После того, как набор Бейсик-файла будет закончен, сделайте ВУМ 2 и загрузите 
заготовленные заранее кодовые файлы. После этого программа начнет работать. После 
того, как Вы убедитесь, что ошибок нет или устраните имеющиеся, можно убрать ВЕТИВМ из 
строки 10. Запустите программу: РУМ и посмотрите, как она будет вести себя при нажатии 
клавиши ВВЕАК. Для остановки программы используйте "жучок" в строке 1365: как 
говорилось выше, если установить чёрный цвет чернил и черный цвет бумаги, то программу 
можно остановить, введя восклицательный знак (ЗУМВ.ЗНЕТ+1). Затем можно выгрузить 
полностью готовую программу на магнитную ленту, выполнив ВИМ 5. 

Теперь пришло время несколько слов сказать о том, как адаптировать программу под 
"БЕТА-ДИСК интерфейс". Прежде всего, надо изменить строки 2 и 3 Бейсик-файла, добавив 
перед ключевым словом "ГОАО" префикс: 

ВАМООМТУЕ 058 15619: ВЕМ : 
Кроме того, надо будет изменить подпрограммы, связанные с загрузкой и выгрузкой 
экранов, начинающиеся со строк 70 и 80. БЕТА-вариант этих подпрограмм: 
70 ГЕТ егг=у$Н 15619 : ВЕМ : 10АО +$ С00Е 16384 
72 ТЕ егг<>0 ТНЕМ @0 $08 60 
79 ВЕТИВМ 
80 НАМООМТУЕ Ц5В 15619: ВЕМ : ЕВАЗЕ 1$ СОБЕ 
82 ТЕТ егг=ЦЗВ 15619: НЕМ : ЗАМЕ 1$ СОБЕ 16384, 6912 
84 ТЕ егг<>0 ТНЕМ 60 $З0В 60 
89 ВЕТИАМ 

В подпрограмме записи файла сначала производится удаление предыдущей версии 
файла на диске с тем именем, которое было задано, а затем происходит запись экрана в 
новый файл с таким именем. В случае ошибки чтения-записи происходит вызов 


подпрограммы СО ЗВ 60, которая выводит предупредительную табличку. Для простоты 
программы не предусмотрена верификация. Вы можете сами организовать ее, если 
захотите. Кроме того, если предварительное стирание файла с заданным именем Вас не 
устраивает, то просто исключите строку 80. В результате, в том случае, если на диске уже 
имеется файл с таким именем, то записи экрана на диск не произойдет, а будет выдано 
сообщение об ошибке подпрограммой СО $ЗЦВ 60. 

В строке 52 вместо "макс. 10 символов" подставьте: "макс. 8 символов". В строке 54 
удалите все, начиная с |Е ... до конца строки. 

На этом адаптацию под диск можно считать законченной. 

А теперь дополнительная информация для тех, кто занят творческим поиском, а не 
просто копирует готовую программу. 

Нам почему-то гораздо симпатичнее вариант, когда все блоки кодов, используемые в 
программах, находятся в нулевой строке, в области за оператором ВЕМ. В частности, тогда 
полностью исключается несанкционированная остановка программы, так как блок кодов ОМ 
ЕАВОРН СО ТО, располагаясь внутри Бейсик программы, может быть инициирован сразу же 
после старта программы. Это обстоятельство, дополненное грамотно продуманными 
приемами защиты, создаст больше хлопот для взломщиков. Программа "МОЗАИКА", 
конечно, не претендует на такую серьезную защиту, но речь сейчас о том, какие методы Вы 
можете использовать в своих разработках, которые, возможно, как раз потребуют хорошей 
защиты. Еще одно обстоятельство в пользу кодов в нулевой строке. Такая программа 
гораздо быстрее загружается (это относится как к магнитофонному, так и к дисковому 
вариантам). А это уже существенное преимущество для пользователя. Все определяется 
только тем, "стоит ли овчинка выделки", то есть какими трудами это дается программисту. 
Попробуем показать, что в нашем случае эти дополнительные эти труды совсем 
незначительны. 

При разработке "МОЗАИКИ" мы исходили из того, что программа должна быть легко 
адаптируема под "БЕТА-ДИСК интерфейс". О путях решения этой проблемы уже говорилось 
в "7Х-РЕВЮ" М 9-10 за 1992 г. стр. 197. Но там была ситуация, когда все блоки кодов в 
нулевой строке были перемещаемыми в памяти. Проблема была только в том, чтобы 
обеспечить правильное обращение к ним из Бейсика. В программе "МОЗАИКА" 
используется неперемещаемый блок кодов, воспроизводящий мелодию! Если даже его 
скомпилировать при помощи музыкального редактора "\ММНАМ" для расположения в нулевой 
строке магнитофонного варианта, тогда при адаптации под "БЕТА-ДИСК" он окажется 
смещенным на 112 байт и не будет работать. 

Для универсальности программы применяется следующий прием. После загрузки 
программы все рабочие блоки кодов из нулевой строки перебрасываются в отведенное для 
них место (с адреса 63824) и работают уже там. (Программа "МОЗАИКА" небольшая, с 
количеством свободной памяти проблем нет.) 

В начале нулевой Бейсик-строки находится процедура, осуществляющая переброску 
кодового блока заданной длины, следующего непосредственно за этой процедурой, на 
заданный адрес. Этот способ Вы можете использовать и в других своих программах. 
Независимо от того, где располагается сама процедура, адрес, откуда будет произведена 
переброска, всегда берется следующим за концом процедуры. Вот она: 


5600 С07С00 СА #007С ев 
5003 ЗВ ОЕ ОР (2) 
5004 ЗВ ОЕ ОР 

5005 Е] РОР НЕ 

5006 011000 ГО ВС, #0010 Е 
5009 09 АБ НЕ, ВС 

5СОА 1150Е9 ГО ОЕ, #2950 (4) 
5000 019606 ГО ВС, #0696 

5СЕО ЕОБВО [ОТВ (5) 
5СЕ2 09 ВЕ 

5СЕЗ .... перебрасываемый массив 


Процедура имеет длину 19 байт и расположена в начале нулевой строки сразу же за 
АВЕМ, адрес в случае магнитофонного варианта равен 23760 (#5С00). Но с одинаковым 


успехом она будет работать и в любом другом месте. Кодовый массив, подлежащий 
переброске, располагается сразу же за процедурой. Для определения этого адреса 
используется такой прием. Сначала выполняется подпрограмма из ПЗУ (1). По адресу 
#007С в ПЗУ находится только одна команда ВРЕТ. Но при выполнении инструкции САЦ: на 
стек записывается адрес команды, следующей за САЦ. то есть в данном случае #5С,3. Для 
того, чтобы осуществить привязку к адресам, это значение возвращается (2) в регистр НИ. 
Далее это значение увеличивается на величину смещения, заданного в регистре ВС (3). 
Теперь в НЁ получилось: #5СОЗ + #0010 = #5СЕЗ. Затем задаются остальные параметры для 
выполнения команды ОТВ (4). В ОЕ - адрес места назначения перебрасываемого блока: 
63324, а в ВС - его длина: 1684 байта. (Конкретные значения подставлены те, которые 
используются в программе "МОЗАИКА".) Теперь выполняется команда Г/В (5) и происходит 
возврат в вызывающую программу. 

В нулевой строке "МОЗАИКА" расположены следующие блоки кодов: 

1. Процедура, осуществляющая переброску рабочих кодов в адрес 63824. Длина - 19 
байт. 

2. Рабочие коды (перебрасываемые в адрес 63824). Длина - 1684 байта. 

Суммарная длина кодов, располагаемых в нулевой строке, равна: 19+1684=1703 
байта. 

При создании нулевой строки с большим объемом памяти после ВЕМ, Вы можете 
воспользоваться программой ВЕМ НИШЕ, ранее опубликованной в "7Х-РЕВЮ" М 9-10 за 1992 
г. на стр. 194-196. Сегодня же предложим новую версию этой программы. Она называется 
"ВЕМ 2". Кодовый блок этой версии имеет длину всего 62 байта. Это оказалось возможным 
осуществить благодаря использованию подпрограммы из ПЗУ, расположенной по адресу 
5717, которая позволяет зарезервировать заданный объем памяти, раздвинуть текст 
Бейсик-строк и перерасчитать все системные переменные. Она используется процедурами 
редактора Спектрума при добавлении новых строк в программу. (О ней, в частности, 
упоминалось в "7Х-РЕВЮ" М 5-6 в статье Пашорина В.И. на стр. 112.) Программа "ВЕМ 2" 
состоит только из Бейсик-файла (кодовый блок формируется после старта Бейсик- 
программы): 

1 ВЕМ 

10 ТЕТ п=23296: [ЕТ $=0 

20 ЕОВ х=п ТО п+61 

30 ВЕАБ у: РОКЕ х,у: 1ЕТ $=$+у 

40 МЕХТ х 

50 ТЕ 5<>6108 ТНЕМ РАТМТ ЕЁАЗН 1; “ЕАВОА ТМ ЕТМЕ ВАТА”; $5ТОР 

60 ТМРИТ "№ ог ехфга руфез: “; п 

70 НАМООМТУЕ п 

80 РОКЕ 23312,РЕЕК 23670: РОКЕ 23313,РЕЕК 23671 

100 БАТА 042, 083, 092, 229, 054, 000, 035, 054, 000, 035, 094, 035, 086, 213, 025, 001, 008, 000, 197, 205, 
085, 022, 035, 229, 209, 019, 054 

110 ОБАТА 000, 193, 197, 011, 237, 176, 209, 225, 025, 235, 225, 035, 035, 115, 035, 114 

120 БАТА 000, 033, 001, 000, 205, 110, 025, 229, 033, 016, 039, 205, 110, 025, 209, 205, 229, 025, 201 

200 СТЕАК : ВАМООМТУЕ Ц5В 23296 

Подробно принцип работы этой программы был изложен в указанной выше статье в 
"РЕВЮ" М 9-10. Поэтому, чтобы не повторяться скажем только, что после старта программа 
запрашивает число дополнительных байтов, которые будут вставлены между последним 
символом текста начальной строки и символом <ЕМТЕА>, завершающим эту строку. После 
ввода этого параметра происходит старт кодового блока. После сообщения 0: ОК, область 
за ВЕМ в 1-й строке будет расширена на число добавочных байт и обнулена, номер этой 
строки станет 0, а все остальные Бейсик-строки будут уничтожены. Теперь в полученную 
ВЕМ область можно загрузить коды. 

Первое значение ПВАТА в строке 110 определяет код заполнения дополнительной 
области. Если в строке 120 первое значение ВАТА заменить на 201, то уничтожения 
остальных Бейсик-строк не будет. Экспериментируя с указанными значениями, удалите 
строку 50, которая проверяет контрольную сумму значений ПАТА, защищая от ошибок при 
наборе программы. 

Теперь возвращаемся к "МОЗАИКЕ". На вопрос о числе добавочных байтов ответьте: 


1703. После того, как нулевая строка с областью заданной длины после РЕМ будет 
сформирована, можете загружать в нее коды и объединить ее при помощи МЕВСЕ с Бейсик- 
файлом "МОЗАИКИ". Если Вы используете БЕТА-ДИСК, то на всякий случай загляните в 
статью о ТА-0О$ в этом выпуске "РЕВЮ”". Там автор упомянул об особенностях загрузки 
кодов в нулевую строку в отличие от магнитофонного варианта. 
Теперь осталось изменить строки 2 и 3 Бейсик-файла "МОЗАИКА": 
2 ВОВОЕВ 7: РАРЕН 7: ТМК 0: СЬЕАН 49999: РОКЕ 23739, 111: ВАМООМТУЕ ЦЗН (РЕЕК 23635+256*«РЕЕК 


23636+5) 
3 ВАМООМТУЕ 4: 60 50В 10: 10АБ “тогатк $"С00Е 16354 
В заключение же хочется пожелать всем юным пользователям "Спектрума" приятной 


работы с программой "МОЗАИКА". 


Стюарт Николс Перевод английского: Пашорин В. И. 


ПРИМЕНЕНИЕ АССЕМБЛЕРА ДЛЯ СОЗДАНИЯ 
БЫСТРОРАБОТАЮЩИХ ПРОГРАММ 


ПРЕДИСЛОВИЕ 


Известные книги, справочники и руководства по машинному языку процессора 7-80 
используемого в компьютере "7Х-Зрегит" в основном ограничиваются описанием 
действий всех команд процессора и порядком применения этих команд на простейших 
примерах программ в машинных кодах. В лучшем случае приводятся программы для 
сложения чисел или им подобные. 

Практика показывает, что конкретному пользователю, желавшему начать освоение 
машинного кода нужен немного другой подход. Нужна книга, которая поможет ему 
немедленно, сразу взяться за дело и почувствовать мгновенную отдачу от своих усилий. 
Одним словом, нужна простейшая практика и живая заинтересованность. 

Как нам кажется, в основу этой книги положена весьма плодотворная идея - 
опереться на знание пользователем БЕЙСИКа и постепенно развивать эти знания в 
направлении машинного кода, шаг за шагом показывая как алгоритмы БЕЙСИКа 
переносятся на язык АССЕМБЛЕРа. Эта концепция очень хорошо укладывается в тот стиль 
работы, который "ИНФОРКОМ" ведет уже третий год на страницах "7Х-РЕВЮ" и в прочих 
своих книгах. 

Нам также показалась очень привлекательной идея книги дать широкое 
представление конкретному программисту о возможности использования процедур, 
"зашитых" в ПЗУ для своей повседневной работы. Это может заинтересовать и тех, кто 
достаточно хорошо знает “АССЕМБЛЕР, но не имеет доступной информации об 
использовании процедур ПЗУ в своих программах. 

Мы горячо благодарим нашего постоянного соавтора из г. Балашова Саратовской 
обл. В. Пашорина за прекрасный перевод этой нужной книги и, главное, за достойный выбор 
самой книги для перевода. 

К сожалению, мы не могли бы сказать, что оригинал написан простым доступным 
языком, понятным каждому неспециалисту. Но мы очень хорошо потрудились над ее 
адаптацией. Оставив по сути без изменения структуру книги и ее фактическое содержание, 
мы полностью переработали всю методику подачи материала и надеемся, что сделали ее 
доступной для неподготовленного читателя, впрочем о том, как это удалось, судить будете 
Вы сами. 

Поскольку сама книга фактически не является учебником по машинному 
кодированию, а служит практическим пособием для тех, кто пошел по этому пути, мы 
должны напомнить Вам о целесообразности приобретения нашего издания 
"Программирование в машинных кодах. Первые шаги, практикум. Справочник". По этой 
книге уже обучились тысячи пользователей и она пока продолжает оставаться лучшим из 
всего, что было написано на данную тему. 

Для тех наших читателей, которые сейчас решают вполне естественный вопрос о 
целесообразности приобретения всего комплекта “7Х-РЕВЮ-93", мы даем содержание 
книги, которая войдет в "РЕВЮ-93" полностью: 

. Вывод на экран. 

. Команды РЕОТ, ОВА\М, СИВСЕЕ. 

. Счет очков в программах. 

. Случайные числа. 

. Опрос клавиатуры. 

. Перемещение объектов. 

. Музыкальные и звуковые эффекты. 
. Команды АТТВ, ЗСВЕЕМ$, РОМТ. 


очолрьюм — 


9. Работа с принтером. 
10. Разбор конкретного примера перевода игровой программы из БЕЙСИКа в 
машинный код. 


1. ВЫВОД НА ЭКРАН 


Создание программ в машинных кодах, выполняющих вывод информации на экран - 
утомительная задача, требующая значительных затрат рабочего времени. Тем не менее, это 
одна из наиболее важных задач. Даже очень хорошие программы проиграют многое, если 
информация, выводимая на экран при их выполнении, не вполне понятна или, хуже того, 
допускает неоднозначную трактовку. Перед созданием любой программы необходимо 
подумать о том, чтобы наглядность выводимой на экран информации была обеспечена на 
должном уровне. 

На компьютере "7Х_ЗРЕСТНУМ" можно создать 21 графический элемент, форма 
которых полностью определяется пользователем. Это так называемые символы графики 
пользователя (Цзег ВейпаЫе Сгартс$ - ЧОС). Необходимо как можно полнее использовать 
эти символы в своих программах при выводе информации на экран. Например, при 
создании игровой программы типа "космических завоевателей" для получения отдельных 
фрагментов изображения экрана можно использовать те же символы, что используются для 
создания самих "завоевателей" или других объектов. 

Для вывода информации на экран целесообразно использовать контрастные цвета. 
Не рекомендуется использовать вместе красный и розовый, желтый и белый и т.п. 
Благоразумно в программах использовать только черный и белый цвета, так как не все 
пользователи имеют цветные мониторы или цветные телевизоры. 

Так как выводить информацию на экран необходимо при работе практически любой 
программы, то мы начнем нашу книгу с того, что рассмотрим в этой главе способы перевода 
команды БЕЙСИКа РЕИМТ в машинный код. 

Обычно БЕЙСИК-программа начинается с того, что определяются основные цветовые 
атрибуты, например: 

10 РАРЕВ 3: ТМК 1: ВОВОЕВ 5 

Затем эти атрибуты устанавливаются в системных переменных компьютера и 

становятся действующими. Делают это командой СИ$. 
20.615 

Давайте попробуем сделать то же самое в машинном коде. Самой простой будет 
операция установления цвета бордюра. Она займет всего лишь 6 байтов в оперативной 
памяти. 

Сначала в регистр А процессора заносится число 5 (оно означает зеленый цвет 
бордюра), а затем вызывается процедура ПЗУ, которая выполнит изменение этого цвета. 
Данная процедура называется ВОВПЕВ и находится она в ПЗУ по адресу 229ВН (8859 ЕС). 

Процедура не только установит необходимый цвет окантовки экрана, но и передаст 
значение номера цвета в системную переменную ВОВРГПЕН (23624 ОЕС - 5С48Н). Для 
хранения номера цвета бордюра в этой системной переменной отведены 3 бита (с третьего 
по пятый) и, таким образом, всего могут быть установлены до 8 различных цветов. 
Оставшиеся биты в этой системной переменной используются для хранения цветовых 
атрибутов нижней части экрана (системного окна). Системное окно занимает как правило 
(не всегда) две нижние строки экрана, в которых Вы выполняете ИМРЧОТ или редактирование 
программы. Биты 0...3 определяют номер цвета ИМК в системном окне, бит 6 отвечает за 
параметр ВЕСНТ, абитт - за параметр ЕЕАЗН. 

Итак, программа в машинных кодах, эквивалентная команде БЕЙСИКа ВОВПЕН 5, 
будет выглядеть так, как показано на листинге 1.1 (Предполагается, что машинной код 
начинается с адреса, заданного директивой АССЕМБЛЕРа ОВО). 


Листинг 1.1 


АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВ@ 23760 
23760 ЗЕ 05 [В А, 5 ‚ Установили в аккумуляторе число 
‚ 75” - код зеленого цвета. 


23762 (0 ЭВ 22 САШЕ 8859 ‚ Вызов процедуры ПЗУ “ВОВОЕВ”. 
23765 (9 ВЕТ ‚ Выход. 
Выполнить установку цветов 1МК и РАРЕН немного сложнее и соответствующая 
программа в машинных кодах у нас займет уже не 6, а 13 байтов (она приведена на листинге 
1.2). 


За установку цветов РАРЕН и ИМК в основной части экрана отвечает системная 
переменная АТТВ-Р (23693 ОЕС = 5С80 Н). Поэтому установка этих цветов из машинного 
кода сводится к переключению битов в данной системной переменной, а раскладка этих 
битов такова: 


Цвет РАРЕВ Цвет МК 
Параметр ВАЕНТ 
Параметр ЕЕАЗН 


Если мы хотим из машинного кода дать команду, аналогичную РАРЕН 3; 1МК 1, то нам 
надо включить биты в системной переменной АТТВ_Р следующим образом: 


р 6 5 4 З 2 1 0 
00 0 1 1 0 0 1 


0+0 +0+16+8+ 0+0 +1= 25 


Т.е. фактически нам надо было бы в ячейку памяти с адресом 23693 заслать число 25, 

например так: 
[О (23693), 25 

Но такой команды, которая позволила бы заслать произвольное число в произвольную 
ячейку памяти компьютера у процессора 7-80 нет. Приходится немного комбинировать. 

Сейчас у нас есть возможность познакомиться с интересным способом адресации в 
процессоре 2-80, который называется индексной адресацией. Дело в том, что в процессоре 
есть шестнадцатиразрядная регистровая пара №, в которой может храниться какое-либо 
целое число от 0 до 65535. Работа компьютера "7Х-Зре гит" организована таким образом, 
что после включения его в сеть в этой регистровой паре устанавливается число 23610 (Это 
адрес системной переменной ЕВВН_МН). И этим активно пользуются на практике. Есть 
неофициальная договоренность, что для работы с системными переменными используется 
эта регистровая пара. При этом не надо указывать адрес нужной Вам системной 
переменной, а достаточно указать "смещение", т.е. величину, на которую отстоит нужный 
Вам адрес от заранее установленного в регистре №. Тогда вместо 10 (23693),25 можно 
записать команду: 

ЕО (1\+83), 25 

Эта запись выглядит понятнее уже хотя бы потому, что все, кто программируют на 
"Спектруме" в машинных кодах, сразу мгновенно понимают: раз используется М, значит 
здесь загружают какую-то системную переменную. А какую именно, они быстро определят, 
ОТКРЫВ таблицу системных переменных. 

Вернемся к нашему примеру, см. листинг 1.2. Итак, в первой строчке мы установили 
необходимые цвета РАРЕВ и МК. 


Листинг 1.2. 


АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 

ОНО 23760 
23760 РО 36 53 19 ЕО (1Т\+83), 25 ‚ Установили в системной перемен- 

‚ной ВОНВОЕВ значения ТМК и РАРЕН. 
23764 ЗЕ 02 [О А, 02 ‚ Подготовка к открытию канала 2. 
23766 С0 01 16 САЕЕ 5633 ‚ Открываем канал 2. 
23769 (0 68 00 САЕЕ 3435 ‚ Вызов процедуры С15. 
23772 09 ВЕТ ‚ Выход. 
Листинг 1.3 

АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 

ОН 23760 
23760 ЗЕ 02 [р А, 2 ‚ Подготовка к открыванию канала. 
23762 С) 01 16 САЕЕ 5633 ‚ Открываем канал экрана. 
23765 ЗЕ 41 [О А, 65 ‚Код символа “А”. 
23767 07 ВУТ 16 ‚ Вызов процедуры печати символа. 
23768 С9 ВЕТ ‚ Выход. 

Листинг 1.4 

АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 

ОНО 23760 
23760 ЗЕ 02 РА, 2 ‚ Подготовка к открыванию канала. 
23762 С) 01 16 САЕЕ 5633 ‚ Открываем канал экрана. 
23765 ЗЕ 48 [О А, 72 ‚Код символа “Н” 
23767 07 ВТ 16 ‚ Вызов процедуры печати символа. 
23768 ЗЕ 45 [О А, 69 ‚Код символа “Е” 
23770 17 Вот 16 ‚ Вызов процедура печати символа. 
23768 С9 ВЕТ ‚ Выход. 


Теперь мы должны дать команду СЁ$. Это тоже сделает за нас процедура, записанная 
в машинном коде ПЗУ. Данная процедура так и называется - СЁ$ и находится по адресу 
ОО6вВН = 3435 БЕС. 

Вместе с тем, Вы по-видимому обратили внимание на то, что перед вызовом этой 
процедуры вызывается еще одна процедура ПЗУ по адресу 5633 (1601Н). Это весьма 
важная процедура, она называется СНАМ_ОРЕМ, и мы будем еще не раз использовать ее 
при изучении материалов данной главы. Вызовом этой процедуры открывается канал 
вывода данных на экран - это канал под номером 2 и потому перед вызовом процедуры в 
регистр А загружается число 2. Когда Вы работали в БЕЙСИКе, то могли не думать о 
назначении каналов. Если же Вы выдаете информацию из машинного кода, то никто за Вас 
этого не сделает, а сделать это необходимо, иначе компьютер не поймет, куда надо 
подавать информацию. 

Теперь Вы, уважаемые читатели, должны уметь устанавливать в машинном коде 
атрибуты экрана и выполнять очистку экрана. Давайте посмотрим как же нам напечатать на 
экране что-нибудь содержательное. Проще всего напечатать на экране какой-либо символ. 
В листинге 1.3 показан пример программы, которая напечатает символ "А" (символ имеет 
номер 65 ПЕС) в левом верхнем углу экрана с координатами позиции печати (0,0). Именно 
такие координаты текущей позиции устанавливаются после того, как отработает процедура 
СЕ$. 

Если Вы хотите распечатать на экране какой-либо символ, то его код предварительно 
должен быть заслан в регистр А процессора, после чего должна быть выдана команда АУТ 
16, что Вы и видите на листинге 1.3. По команде В$ЗТ 16 процессор запустит процедуру ПЗУ 
РАМТ А 2, находящуюся по адресу 15Е2Н = 5618 ОЕС. Символ, код которого находится в 
аккумуляторе будет напечатан и осуществится переход к следующей позиции печати. 

Если с этим Вам все понятно, то Вы без труда поймете работу программы 1.4, которая 
напечатает целое слово - "НЕ", поочередно засылая символы в аккумулятор и выдавая их 
командой В$Т 16. 

Хорошо, что слово "НЕ" имеет только два символа, а как быть, если нужно напечатать 


длинное предложение? Понятно ведь, что кодировать печать длинной фразы по символам 
дело очень утомительное, к тому же необходим большой расход оперативной памяти - он в 
два раза больше, чем длина Вашего сообщения, поскольку на каждый символ еще нужна 
команда В$Т 16, занимающая байт. 

Для решения этой проблемы существуют как минимум три пути. 

Главная идея состоит в том, чтобы записать все символы выводимого сообщения в 
некоторый банк данных и считывать их оттуда по одному до тех пор, пока весь банк не будет 
исчерпан. Этот прием показан в Листинге 1.5 (версия 1). 

В этом листинге Вы знакомитесь с двумя новыми регистровыми парами - ВС и ПЕ. Как 
правило, пара ВС используется программистами для организации в ней разного рода 
счетчиков, а пара ОЕ - для указания на какой-либо адрес в памяти компьютера. Регистры 
В,С,О и Е не обязательно должны использоваться парами, как это было с регистром №. Они 
могут использоваться и как одиночные восьмибитные регистры для хранения целых чисел от 
0 до 255. 

Обратите внимание на пару операций 

[О А, В 
ОВ С 

Это очень быстрый, экономичный и к тому же общепринятый способ проверки ВС на 
ноль. Поскольку в регистре А у нас загружено содержимое регистра В, то результат 
операции ОВ С будет нулевым в том и только в той случае, если и В и С равны нулю. 


Листинг 1.5 (Версия 1). 


АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 

23760 ЗЕ 02 [0 А, 2 ‚ Подготовка к открыванию канала. 

23762 (0 01 16 САЕЕ 5633 ‚ открываем канал экрана. 

23765 11 Е4 50 [О ОЕ, ОАТА ‚В регистровую пару ОЕ загрузили 
‚адрес, в котором хранится наше 
‚ текстовое сообщение. 

23768 01 07 00 [О ВС, 7 ‚В регистровой паре ВС организо- 
‚вали счетчик на 7 символов. 

[ООР 

23771 78 [О А, В ‚ Проверка не обнулился ли счет- 

23772 В1 ОВ С ‚чик символов в ВС? 

23773 08 ВЕТ 7 ‚ Выход, если он обнулялся. 

23774 ТА [О А, (0Е) ‚Взяли в аккумулятор текущий 
‚символ из списка ВАТА. 

23775 07 Вот 16 ‚ Напечатали его на экране. 

23776 13 ТМС ОЕ ‚ Перешли к очередному символу. 

23777 08 БЕС ВС ‚ Уменьшили счетчик символов на 1. 

23778 18 Е? УВ 10ОР ‚ Перешли на метку [00Р для оче- 
‚редной проверки не закончился 
‚ли список печатаемых символов. 

ВАТА 

23779 72 69 76 80 32 77 69 ‚Начиная с адреса 23779 мы храним 
‚ сообщение “"НЕЕЁР МЕ” 

Листинг 1.5 (Версия 2) 
АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 

23760 ЗЕ 02 [В А, 2 ‚ Подготовка к открыванию канала. 

23762 (0 01 16 САЕЕ 5633 ‚ Открываем канал экрана. 

23765 11 БЕ 5С [Б ОЕ, ВАТА ‚ Адрес сообщения. 

23768 01 07 00 ЕО ВС, 7 ‘Длина сообщения - 7 символов. 

23771 (0 ЗС 20 САЕЕ 8252 ‚ Вызов процедуры ПЗУ РН_ЭУТВТМО. 

23774 (9 ВЕТ ‚ Выход. 

ВАТА 


23775 72 69 76 80 32 77 69 ‚ Сообщение “НЕЕР МЕ” 


Обратите также внимание на то, что мы записали наше сообщение, начиная с адреса 
23779. Но это совсем не обязательно. Можете хранить свои тексты где хотите, в любых 
адресах, удобных Вам. Важно только, чтобы в строке [О РЕ,РАТА в регистровую пару ОЕ был 
заслан истинный адрес начала Вашего сообщения ОТ 0 ДО 65535. 

Второй вариант этой программы выглядит немного более простым. Если Вы заранее 
установили в регистровой паре ПЕ адрес, с которого начинается Ваше сообщение, а в ВС - 
длину этого сообщения, то больше можно вообще ничего не делать, а вызвать процедуру 
ПЗУ под названием РА_ЗТНМОС, которая сама напечатает за Вас это длинное сообщение. 
Процедура РВ_ЗТЕМС находится по адресу 8252 ОЕС = 203СН. Пример см. в Листинге 1.5 
(версия 2). 

Третий способ - самый мощный. Его применяют в тех случаях, когда у Вас заготовлено 
не одно сообщение, а много, т.е. Вы имеете целую таблицу сообщений, но заранее не 
знаете, какое когда придется печатать. В этом случае Вам хотелось бы выдавать на экран 
нужное сообщение указав только его номер. Именно так и поступают в абсолютном 
большинстве программ, написанных в машинных кодах. Именно так организовано и само 
ПЗУ, которое, как Вы знаете, хранит в себе много разных сообщений типа "Зап таре апа 
ргез$ Кеу..." и выдает вам всякий раз именно то, которое надо. 

Чтобы программа знала, где кончается одно сообщение и начинается другое, 
применяют специальный прием - к коду последнего символа сообщения прибавляют число 
127, т.е. фактически в последнем символе каждого сообщения принудительно включают 
старший (7-ой) бит. Таким образом, символ, код которого > 127 является маркером конца 
сообщения. Теперь нетрудно создать программу для печати 1-го сообщения. Она 
просмотрит тексты, начиная с адреса, установленного в ПЕ, отсчитает М-1 маркер и начнет 
печатать то, что найдет после него. Символы будут печататься по одному до тех пор, пока не 
будет найден М-ый маркер. Для печати последнего придется предварительно отнять от его 
значения число 127. 

В листинге 1.5 приведен пример такой работы, но для простоты там принято, что у Вас 
есть не таблица, а только одно сообщение, заканчивающееся инвертированным символом 
(к коду символа прибавлено число 127). 

Кстати, обратите внимание на то, что если числа, большие чем 27, являются 
маркерами конца сообщения, то очевидно нельзя допускать, чтобы в Ваших текстах были 
символы, код которых больше 27, т.е. символы блочной графики коды от 128 до 143) и 
символы графики пользователя (коды от 144 до 164) воспроизводить таким методом нельзя. 

Похожая на эту, но более сложная процедура вывода на экран значений клавишных 
слов и сообщений об ошибках используется в ПЗУ компьютера. Стартовый адрес этой 
процедуры - 3082 -ОЕС = ОСОАН. 

Вы можете и сами выдавать из машинного кода системные сообщения об ошибках, 
полный перечень которых обычно приводят в руководстве пользователя компьютера. 

Так, они могут быть легко выведены на экран с помощью команды ВЭТ 8. Байт, 
следующий за этой командой, определяет какой вид сообщения необходимо вывести, 
например, если необходимо вывести на экран сообщение "К туайа союиг”, которое в 
перечне сообщений об ошибках является двадцать первым по счету, то необходимо 


записать: 
ВУТ 8 
ОВЕРВ 19 (номер сообщения минус 2) 


Причем нет необходимости давать команду ВЕТ после этого, так как сразу же после 
вывода на экран сообщения об ошибке осуществляется возврат в ВАЗ!С-систему. 

Теперь мы можем приступить к рассмотрению способов вывода на экран символов 
или даже целых строк в заданную позицию на экране. В ВА$!С-программах это выполняется 
с помощью оператора РЕМТ АТ, после которого записывается номер строки, номер столбца 
и, наконец, само сообщение, которое необходимо вывести на экран. 

Для этого используются так называемые управляющие коды. Если Вы посмотрите 
любую таблицу символов АЗСИ, то увидите, что печатным символам соответствуют коды, 
начиная с 32 ОЕС (это символ "пробел". А коды с 0 до 31 является непечатными (т.е. не 
имеют закрепленной за ними литеры) и используются в качестве управляющих. Так, 


например, в "Спектруме" коды с 0 по 5 ис 24 по 31 вообще не используются, а с 6 по 23 - 
служат в качестве управляющих. (В компьютерах других систем это может быть и не так). 

За координаты позиции печати отвечает код 22, он является аналогом 
БЕЙСИКовского оператора АТ. К нашему счастью, команда ВУТ 16 распознает код 22 как 
РЕМТ АТ и использует следующие 2 байта как “х" и "у" координаты, задающие РАМТ- 
позицию для вывода сообщения на экран. Программа 1.6 демонстрирует использование 


последовательности байтов 
ОБЕЕВ 22 
ОЕРВ 3 
ОЕРВ 5 
как аналог оператора 
РАТМТ АТ 3,5. 
Совершенно так же можно применять коды 23 и 13 как аналоги операторов ТАВ и 
ЕМТЕН, соответственно. 
Листинг 1.5 (Версия 3) 


АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 

23760 ЗЕ 02 [В А, 2 ‚ Подготовка к открыванию канала. 

23762 (0 01 16 САЁЕ 5633 ‚ Открываем канал экрана. 

23765 11 ЕБ 5С [О ОЕ, ВАТА ‚ Адрес начала сообщения. 

[ООР 

23768 ЛА ЕВ А, (0Е) ‚Взяли текущий символ. 

23769 СВ ТЕ ВТТ 7, А ‚; Проверяем его старший бит. 

23771 20 04 УВ №, ЕМО ‚ Если он не нулевой, то это пос- 
‚ледний символ и мы переходим на 
‚ метку ЕМ№О. 

23773 07 ВОТ 16 ‚ Иначе печатаем его на экране. 

23774 13 ТАС ОЕ ‚ Перешл очередному символу. 

23775 18 Е7 УВ ЕООР ‚ Возврат на метку 10ОР. 

ЕМО 

23777 СВ ВЕ ВЕЗ 7, А ‚ Выключили старший бит последнего 
‚ символа. 

23779 07 ВОТ 16 ‚ Напечатали последний символ. 

23780 (9 ВЕ ‚ Выход ВАТА 


23781 72 69 76 80 32 77 197 ‚ Сообщение “НЕЕР МЕ” 


Листинг 1.6 


АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 

ОВ@ 23760 
23760 ЗЕ 02 [р А, 2 ‚ Подготовка к открыванию канала. 
23762 (0 01 16 САЕЕ 5633 ‚ Открываем канал экрана. 
23765 11 БЕ 5С [О ОЕ, ВАТА ‚ Адрес начала сообщения. 
23768 01 00 00 ЕО ВС, 12 Длина сообщения с учетом управляющих кодов. 
23771 (0 ЗС 20 САЕЕ 8252 ‚ Вызов процедуры ПЗУ РН_УТВТМЕ 
23774 (9 ВЕТ ‚ Выход ВАТА 
23775 22 ОЕРВ 22 ‚ Код управления позицией печати 
23776 03 БЕРВ 3 ‚ Координата “У=3" 
23777 05 ОЕРВ 5 ‚ Координата “Х=5" 
23778 84 72 65 78 АВ ‚ Текст сообщения “ТНАМК \00" 
23783 32 89 79 65 

Листинг 1.7 

АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 

ОВ@ 23760 
23760 ЗЕ 02 [В А, 2 ‚ Подготовка к открыванию канала. 
23762 (0 01 16 САЁЕ 5633 ‚ Открываем канал экрана. 
23765 11 Е? 5С [О ОЕ, ВАТА ‚ Адрес начала сообщения. 
23768 01 24 00 [р ВС, 36 ‘Длина сообщения с учетом управляющих кодов. 
23771 (0 ЗС 20 САЕЕ 6252 ‚ Вызов процедуры ПЗУ РН_УТВТМО 
23774 (0 40 01 САЕЕ 3405 ‚ Копирование АТТВ-Р в АТТЕ-Т. 
23777 (9 ВЕТ ‚ Выход ВАТА 
23778 22 04 07 17 02 ‚ Сообщение САМ \0Ц ВЕАВ ТНТЗ с 


33783 
23788 
23793 
23798 
23803 
23808 
23813 


16 04 18 01 19 ‚ инплантированными в нем кодами 
01 21 01 20 01 ‚ управления координатой позиции 
67 65 78 32 89 ‚печати и кодами управления 

79 85 32 82 69 ‚ цветовыми атрибутами. 


С помощью управляющих кодов можно не только задавать координаты позиции 


печати, но и цвета и прочие атрибуты печатаемых символов. Для этого есть свои 
управляющие коды. 


МК - код 16 
РАРЕВ - код 17 
ЕЕАЗН - код 18 
ВЫСНТ - 19 
МУЕВЗЕ - 20 
О\ЕВ - код 21 


Программа 1.7 показывает как используются управляющие коды, соответствующие 


РАРЕВ, ИМК, ВНСНТ ит.д. 


После использования временных цветов для вывода на экран сообщения необходимо 


вернуться к постоянным цветам для обеспечения дальнейшего вывода. Для режимов О\МЕВ и 
|МУЕАЗЕ это требование легко выполняется, так как команда ВЗТ 16 легко распознает их 
управляющие коды. Для изменения РАРЕВ, ИМК, ВЁЫСНТ и ЕЕАЗН, необходимо вызвать из 
ПЗУ процедуру (адрес 3405), которая копирует содержимое системной переменной АТТВ-Р 
(23693) в системную переменную АТТВ-Т(23695). 


(Продолжение следует) 


Михайленко В.С., Турович А.К. 


ЗАЩИТА ПРОГРАММ 


Мы продолжаем публикацию материалов, посвященных защите программного 
обеспечения от просмотра и копирования. Непосредственная тема сегодняшней статьи 
связана с подробным разбором стандартных процедур ПЗУ, осуществляющих загрузку 
данных с магнитофона. 


(ПРОДОЛЖЕНИЕ) 


Начало см. в "7Х-РЕВЮ-92": 
М 1,2 -с. 9-16 

МЗ,4 - с. 53-60 

М 5,6 -с. 97-104 

М 7,8 - с. 141-146 

М 9, 10 -с. 185-192 

М 11,12 -с. 230-237. 


1.1 Процедуры в машинных кодах, реализующие загрузку программ с 
магнитофона. 

Мы с Вами рассмотрели систему кодирования информации на магнитной ленте. 
Теперь приступим к рассмотрению процедур ПЗУ, реализующих ввод программ 
"Спектрума" с магнитофона. 

Для того, чтобы точно оценить временные характеристики операций, реализующих 
необходимые задержки в цикле загрузки, необходимо знать время исполнения отдельных 
инструкций процессора 7-80. Как Вам уже вероятно известно, скорость работы процессора 
на несколько порядков выше максимальной скорости записи кодированных логических 
единиц информации на магнитной ленте. Поэтому программа должна выполнять задержку 
после каждого записываемого на магнитофон бита данных. 

Время задержки удобно считать не в секундах, а в циклах тактового генератора, 
который синхронизирует работу процессора 7-80. У каждой команды процессора есть своя 
продолжительность, которая может быть измерена в этих циклах. Впрочем, не для всех 
команд это величина постоянная. Так, например, для команд, связанных с каким-либо 
условием, (например УВ МХ и т.п.) число циклов обычно зависит от того, выполняется или 
нет данное условие и для каждого случая различно, поэтому нам необходимо учитывать и 
этот факт и рассматривать соответствующие приемы задержки, используемые в данной 
процедуре обработки информации, поступающие с магнитной ленты. 

Информацию о количестве циклов по каждой команде процессора Вы можете 
получить из справочника "ИНФОРКОМа" по микропроцессору 2-80, см. книгу 
"Программирование в машинных кодах. Первые шаги. Практикум. Справочник". 

Процедура, выполняющая загрузку информации с магнитофона, начинается в ПЗУ с 
адреса 0556Н = 1366 БЕС. Ее действие заключается в многократной проверке шестого бита 
порта 254 и в определении временного интервала между двумя следующими друг за другом 
фронтами. 

Таким образом, при чтении блока данных с ленты важнейшим является точное 
определение интервала между фронтами сигнала. Эту работу выполняет 
специализированная процедура, размещенная в ПЗУ компьютера под адресом О5ЕЗН = 
1507. Эту точку входа в ПЗУ можно использовать, когда надо установить, сколько времени 
прошло от момента вызова процедуры до обнаружения двух, следующих один за другим, 
смен уровней сигналов в гнезде ЕАН (и насколько оба они соответствуют допустимым 
пределам требуемых временных интервалов). 

Второй важной точкой входа в ПЗУ является специализированная процедура, 


позволяющая определить, сколько времени прошло с момента вызова процедуры до 
получения первого фронта. Она размещается по адресу О5ЕТН = 1511. Вызов этой 
процедуры выполняется после помещения в регистр В временной константы, 
ограничивающей количество проверок порта 254. 

Если оказывается, что время ожидания смены фронтов сигнала превышено или будет 
установлен факт нажатия клавиши ВВЕАК, происходит сброс флага С флагового регистра Е. 
Для распознавания каждой из этих двух ситуаций служит флаг 7. Если он обнулен, значит во 
время работы данной процедуры была нажата клавиша ВВЕАК. 

Мы начнем рассмотрение процедуры загрузки с изучения этих подпрограмм. 
Названия процедур стали общепринятыми после выхода в свет книги Я.Логана и Ф.О’Хары 
"Полный дисассемблер ПЗУ Спектрума". Те же названия использованы и в наиболее полном 
описании работы "Спектрума" с магнитофоном Анджея Каллофа ("Спектрум и магнитофон") 
и мы сохраняем те же наименования процедур. 


МЕТКА АССЕМБЛЕР ЦИКЛЫ 
1 [О-ЕБСЕ-2  САЁЕ ЕО-ЕБОЕ 1 ; 17 
2 ВЕТ № т 
3 [О-ЕБСЕ-1 1 А, #16 ий 
4 ЕБ-БЕГАУ ОЕС А р 
5 УВ №, ЕБ-БЕГАУ А 
6 АМО А ;4 


Как Вы уже заметили, 1О-ЕБСЕ-2 обеспечивает двукратный вызов процедуры 1О- 
ЕОСЕ-1. Перед тем, как приступить к проверке порта, выжидается 358 тактов работы 7-80. 
процессор слишком быстродействующий по сравнению со временем, в течение которого на 
основе активного сигнала от ЦГА, стабилизируется состояние шестого бита порта 254. 

В последней колонке приведено время затрачиваемое на выполнение каждой 
операции, измеренное в тактах микропроцессора. Так, в случае выполнения операции 
возврата из подпрограммы, в зависимости от состояния флага переноса С - ВЕТ МС - 
затрачиваются 5 или 11 тактов микропроцессора, в связи с тем, выполняется условие, или 
нет. По аналогичной причине мы приводим два значения и для процедуры условного 
перехода УВ М7, поскольку время, затрачиваемое на ее выполнение, может быть различным 
в зависимости от выполнения или невыполнения условия. 

После начала работы процедуры 1О-ЕБСЕ-1, в аккумулятор загружается 
шестнадцатеричное значение 16Н. Благодаря этому мы организуем цикл задержки, 
основанный на уменьшении аккумулятора на единицу и сравнении этого значения с нулем. 
Если ноль не достигнут, мы продолжаем уменьшать аккумулятор на единицу, обеспечивая 
задержку. Так происходит ровно 7 + 21Х 16 +4+7+4 = 358 тактов микропроцессора. 

Командой АМО А сбрасывается флаг С, который, как мы знаем, выполняет функции 
маркера. 

После обнуления маркера проверяется, достигла ли временная константа в регистре 
В значения нуля. Обратите внимание, что в противоположность процедурам записи, здесь 
значение регистра В увеличено на единицу. 


7 ЕО-ЗАМРЕЕ — ТМС В ;4 
8 ВЕТ 7 


Следующим этапом идет контроль нажатия клавиши ВВЕАК. Для этого мы считываем 
числовое значение из порта 254 и, после ротации данного значения (причем интересующий 
нас бит смещается во флаг переноса С), мы осуществляем продолжение работы, либо 
выходим из данной процедуры. Все зависит от того, была ли нажата клавиша ВВЕАК. 


о ЕО А, #7Е 7 
10 Т№ А, (#РЕ) Е, 
11 ВНА ;4 


12 ВЕТ № ТЫ 


Теперь мы проверяем, изменился ли шестой бит 254 порта, в соответствии со 
значением, сохраняемым в регистре С (именно этот бит сигнализирует о поступлении 
сигнала с магнитофона). Если бит не изменился, о чем свидетельствует нулевой флаг 2, то 
он проверяется снова. 


13 ХОВ С ; 4 
14 АМО #20 ;7 
15 УВ 2, ЕО-ЗАМРЕЕ ; 32, / 


Фронт сигнала извлечен, инвертируются все биты в регистре С и одновременно 
изменяется информация о состоянии порта, а также цвет изменяется на дополнительный 
цвет бордюра (красный-голубой или синий-желтый). Эти операции выполняются с помощью 
специальной команды инверсии. Для этого мы заносим в аккумулятор содержимое регистра 
С, после чего над аккумулятором выполняется команда СРЕ, которая инвертирует каждый 
его бит на противоположный. В результате получается как бы дополнение содержимого 
аккумулятора до 255 (в абсолютной двоичной арифметике). 

После этого инвертированное значение мы возвращаем в регистр С. 


16 ГОА, С ;4 
17 СРЕ :4 
18 ЕО С, А ;4 


После смены цвета бордюра на экране включается флаг С регистра РЕ, что 
сигнализирует об успешном результате проверки. Соответствующие промежутки времени 
подсчитывает процедура, вызываемая на основе приращения значения в регистре В. 
Каждый вызов процедуры ЕО-ЕБСОЕ-1 длится 465 тактов микропроцессора плюс по 58 тактов 
на каждый дополнительный тест. 


19 АМО #07 7 
20 ОВ #08 7 
21 ОТ (НЕЕ), А р 
22 СЕ ; 4 
23 ВЕТ ‚; 10 


Рассмотрим теперь основную загрузочную процедуру 1О-ВУТЕ$. Она занимает в 
памяти объем начиная от 0556Н до О5ЕР?Н. Перед началом работы процедуры в регистр ОЕ 
необходимо занести длину читаемого блока, в регистр [Х адрес байта, начиная с которого 
должна быть загружена информация. В аккумулятор заносится тип блока. 

ЕО-ВУТЕ$ может не только считывать файлы в память, но также и сравнивать их. На 
этом принципе основано действие БЕЙСИК-команды УЕНРУ. Необходимый режим работы 
определяется состоянием флага переноса С перед вызовом процедуры загрузки. Его 
установка в единицу означает считывание в память всего файла, а обнуление - сравнение. 
Поскольку микропроцессор может работать не более чем с шестнадцатиразрядными 
числами, длина читаемого блока не может превышать 65535 (РЕЕЕН). 


ЕО-ВУТЕЗ 


ОТ (#ЕЕ), А ; 11 
О НЕ, #053Е о 
ЦЗН НЕ 


1 Т 
2 Е 
3 О 
4 О 
5 ГО А, #0Е 
6 0 
7 р 
8 Р 


Регистр О увеличивается с целью обнуления флага Г перед сохранением его в 
альтернативном наборе регистров микропроцессора. После этого значение регистра О 


восстанавливается и запрещаются маскированные прерывания. 

Занесение в регистр А значения ОРН знаменует собой установку белого цвета 
бордюра путем выдачи этого значения в порт 254. В регистровую пару НЕЁ заносится адрес 
процедуры обработки возврата ЗА-1О-ВЕТ, который сохраняется на стеке. 


о ТМ А, (#РЕ) ; 11 
10 ВНА :4 
11 АМО #20 7 
12 ОН #02 ;7 
13 ЕО С, А ;4 
14 СР А ; 4 


Первый тест порта 254 представляет собой занесение в аккумулятор значения 
состояния данного порта с последующей его ротацией и выполнением операции 
логического "ИЛИ". Из всего байта оставляется только шестой бит, который характеризует 
состояние гнезда ЕАВ. После выполнения этого цвет бордюра становится красным. После 
помещения в регистр С значения 22Н или 02Н включается флаг 7 флагового регистра. 


15 [О-ВВЕАК ВЕТ № ЛУ 
16 ЕО-ЗТАНТ САЁЕ 1О-ЕБСЕ-1 ; 17 
17 УВ МС, ЕО-ВВЕАК РТ 


Следующий отрезок программы представляет собой цикл, в котором программа 
будет задержана до нажатия клавиши ВВЕАК или до смены состояния шестого бита порта 
254. Во втором случае цвет бордюра будет изменен на голубой. Выполнение данной 
процедуры осуществляется многократным повторением вызова подпрограммы 1О-ВВЕАК. 


18 ЕО НЕ, #0415 ‚; 10 
19 ЕО-МАТТ 0.№ ЕО-МАТТ ; 10,6 
20 ОЕС НЕ ; б 
21 [р А,Н ;4 
22 ОВ Е ;4 
23 УВ №, ЕБ-МАТТ ; 12,7 
Перед началом непосредственного чтения информации с магнитной ленты 


выжидается около одной секунды. Это достигается за счет создания специального цикла 
задержки. Длительность ожидания зависит от значения, которое занесено в регистр НЕ. В 
нашем случае оно составляет #0415. 


24 САЕЕ 1О-ЕБСЕ-2 В 
25 УВ МС, ЕО-ВВЕАК г, 7 


Первым делом проверяется, не передается ли еще какой-нибудь сигнал за данный 
промежуток времени. За время, составляющее приблизительно 14000 тактов 
микропроцессора должны появиться два фронта сигналов. Обратим внимание на большой 
излишек времени перед началом загрузки данных. В пилотирующем сигнале фронты 
появляются в интервале порядка 2186 тактов. 


26 ЕО-ГЕАБЕВ 


ЕО В, #9С 

САЕЕ ЕО-ЕБСЕ-2 
УВ МС, ЕО-ВВЕАК 
ГО А, #С6 

СР В 

УА МС, ЕО-5ТААТ 


7 
17 

12,7 
"7 


, 
, 


4 
РГ 


В регистр В заносится временная константа ЭСН, позволяющая процедуре ЕО-ЕБСЕ-2 
искать два фронта за время, не превышающее 7000 тактов микропроцессора. С другой 
стороны, после их отыскания проверяется прошло ли с момента вызова вышеуказанной 


процедуры до появления заднего фронта не менее, чем 3366 тактов работы 
микропроцессора. Таким способом отличаются фронты пилотирующего сигнала от 
значительно более близких пар фронтов информационных сигналов. 


32 МС Н ;4 
33 УВ №, ЕО-ГЕАШЕВ Лат 


В цикле мы начинаем искать фронты пилотирующего сигнала. После извлечения 256 
пар, мы переходим к ожиданию импульса синхронизации, который сигнализирует нам о 
начале собственно самого файла данных. 


34 ЕО-$УМС ЕО В, #С9 У 
35 САЕЕ 1О-ЕБСЕ-1 ; 17 
36 УВ МС, ЕО-ВВЕАК ; 12,7 


Проверяется время появления каждого нового фронта сигнала. Он должен быть 
обнаружен в течение 3655 тактов работы микропроцессора. Необходимая точность 
обеспечивается занесением в регистр В временной константы СЭН и вызовом процедуры 
[О-ЕОСЕ-1. 


37 Гр А, В ;4 
38 СР #04 7 
39 УВ МС, 10-5У№С РЕ 


Однако, если это произошло до истечения 1100 тактов работы процессора, значит, 
уже появился первый фронт синхроимпульса. Для определения его появления мы заносим в 
аккумулятор содержимое регистра В и сравниваем полученное значение с числовой 
константой О4Н. В зависимости от состояния флага переноса, программа либо продолжает 
свою работу, либо же возвращается на начало процедуры проверки появления 
синхроимпульса по метке 1О-$УМС. Значит, сигнал пришел слишком рано и это не тот 
сигнал, который нужен. 


40 САЁЕ 1О-ЕБСЕ-1 ; 17 
41 ВЕТ № мо 


После появления первого фронта синхроимпульса мы ожидаем появление второго. 
Это достигается за счет вызова процедуры 1О-ЕБСЕ-1. Если после вызова данной 
процедуры, она возвращает значение флага переноса выключенным, то мы осуществляем 
возврат в вызвавшую программу по команде ВЕТ МС. 


42 ГОА, С ; 4 
43 ХОВ #03 у 
44 ЕО С, А ; 4 


После появления обоих фронтов синхроимпульса необходимо осуществить 
соответствующую индикацию на экране. Это делается подготовкой в регистре С 
сигнализации о появлении следующего фронта синим и желтым цветами. Для этого мы 
загружаем в аккумулятор содержимое регистра С и осуществляем операцию исключающие 
"ИЛИ" над содержимым аккумулятора. После этого полученное значение вновь 
возвращается в регистр С. 


45 ЕО Н, #00 7 
46 ГО В, #80 1 
47 УВ ЕО-МАВКЕВ ‚ 12 


В регистре Н создается байт четности, а в регистр В помещается временная 
константа для считывания первого бита первого байта, описывающего тип читаемого 


файла. 
Как Вы помните, значение первого байта каждого файла характеризует тип файла и 
должно равняться нулю для заголовка и 255 для блока данных. 


48 ЕО-ЕООР ЕХ АР, А’Е` ;4 
49 УВ №, 1О-РЕАб ат 


К этому фрагменту программа возвращается после чтения целого байта, поскольку 
предыдущая часть программы закончилась безусловным переходом на метку 1О-МАВКЕВН. В 
этом участке программы флаг 7 употреблен для различения байта, определяющего тип 
файла. Здесь также учитывается флаг С, определяющий, происходит ли процесс чтения или 
верификации. 


50 УВ МС, ЕО-УЕНТРУ ; 12,7 
ой ЕО (1Х+0), Е Я 
92 УВ ЕО-МЕХТ 12 


В ходе выполнения данных операций считанный байт помещается под адресом, 
находящихся в !Х. Для этого мы загружаем в ячейку памяти, адрес которой находится в 
([Х+0), содержимое регистра |. После этого осуществляется безусловный переход на метку 
ЕО-МЕХТ. 


53 ЕО-РЕАб ВЕ С :4 
54 ХО | ;4 
55 ВЕТ № НИ 2 


При входе в данную процедуру в регистре А находится тип файла, который мы хотим 
считать, а в регистре | - первый считанный байт. Первая команда служит для временного 
хранения значений флага С в регистре С. Если считанный байт не совпадает с содержимым 
регистра А, то происходит возврат из процедуры со сброшенными флагами С и 2, что 
сигнализирует об ошибке. 


56 ГОА, С ;4 
Эх ВНА :4 
58 ЕО С, А ;4 
59 ТМС ОЕ ;4 
60 УВ ЕО-ОЕС 12 


В случае совпадения типов восстанавливается состояние флага С и регистра С. Для 
этого мы загружаем содержимое регистра С в аккумулятор, осуществляем ротацию С через 
флаг переноса и возвращаем полученное значение из аккумулятора в регистр С. Увеличение 
регистра ПЕ на единицу служит для компенсации его состояния при переходе к инструкции 
ОЕС ОЕ при выполнении безусловного перехода на метку 1О-ОЕС. 


64 ЕБ-МЕХТ МС ТХ О 
65 ЕО-БЕС ОЕС ОЕ ; 6 
66 ЕХ АЕ, А’Е` ;4 


Данные команды устанавливают регистры 1Х и ПЕ в состояние, необходимое для 
правильной работы программ. После этого осуществляется сохранение флага С флагового 
регистра Е в безопасном месте с помощью использования команды перехода к набору 
альтернативных регистров микропроцессора 7-80. 


67 О В, #82 ой 
68 ЕО-МАВКЕН ЕО Ц, 01 ; 7 


После установки временной константы В2Н в регистре В, обнуляется регистр | и его 


младший бит устанавливается в единицу. После следующих сдвигов влево он будет 
постепенно перемещаться по направлению к флагу С и в конце концов окажется во флаге 
переноса, сигнализируя считывание всего байта. 


69 [0-8-ВТТ$  САЁЕ ЕБ-ЕБОЕ-2 М 
70 ВЕТ № ие 


Данная процедура определяет время между двумя очередными фронтами сигналов. 
Для этого вызывается процедура 1О-ЕОСЕ-2, которая работает в соответствии со 
значением временной константы занесенной в регистр В. 


71 ГО А, #СВ 7 
72 СР В ; 4 
73 ВЕ Е ;4 


Если пара фронтов найдена за время, меньшее чем около 2400 тактов относительно 
вызова 1О-ЕБСЕ-2, то они представляют собой ноль, а если за большее время, то единицу. 
Значение, получающееся после анализа информации, несет в себе флаг С. 

Для правильного выполнения заданной процедуры мы загружаем в аккумулятор 
константу СВН, относительно которой ведется проверка содержимого регистра В. 


74 ЕО В, #80 7 
75 УР МС, 10-8-ВТТ$ ‚; 10 


После загрузки временной константы для следующего бита исследуется регистр В, 
который устанавливается только после считывания и размещения в регистре | всех восьми 
битов данного байта. 


76 [р А,Н ;4 
77 ХОВ Е ;4 
78 ЕО Н, А ;4 


Этот участок программы осуществляет модификацию байта четности, о котором мы 
уже писали ранее. 


79 ГО А, О ;4 
80 ОВ Е ;4 
81 УА №, ЕО-100Р ТР , 


Здесь мы проверяем все ли байты были считаны и, если должны быть считаны еще 
какие-либо байты, то мы возвращаемся к метке 1О-ГООР. Эта проверка осуществляется с 
помощью сравнения содержимого регистра ОЕ с нулем и осуществлением операции 
условного перехода в зависимости от состояния флага 2 флагового регистра. 


82 Гр А,Н ;4 
83 СР #01 7 
84 ВЕТ О 


После считывания последнего байта (четности), в регистре Н должен быть ноль. Если 
это так, то флаг С включается, сигнализируя этим правильность окончания загрузки файла. 

Так работают процедуры загрузки файлов с ленты в память компьютера. Надеемся, 
что этот материал окажется полезным для Вас. Тем не менее, его невозможно 
рассматривать в отрыве от информации по вопросам записи файлов на магнитную ленту в 
формате "Спектрума". Поэтому в следующей главе мы рассмотрим более подробно этот 
вопрос. 


Глава 2. Стандартные процедуры записи информации на магнитную 
ленту. 


Теперь мы переходим к рассмотрению процедур, реализующих запись информации 
на магнитную ленту и помещенных в ПЗУ компьютера. 

Начнем с процедуры $ЗА-ВУТЕ$, служащей для записи последовательности битов на 
кассету. Предполагается, что в момент ее запуска в регистре ОЕ находится длина 
записываемого блока, в регистре [1 - адрес первого байта, а в аккумуляторе - число, 
определяющее тип загружаемого блока. Напомним, что для заголовка этот байт равен нулю, 
в то время как для блока данных он равен 255. Первая процедура записи информации на 
магнитную ленту начинается с адреса 04С2НнН. Это является ее отправной точкой. 


1 ЗА-ВУТЕЗ ЕО НЕ, #С53Е ; 10 
2 РОЗН НЕ НИ 

3 ГО НЕ, #1780 У 
4 ВТТ 7, А `В 

ь УН 7, ЗА-ЕЕАВ ВИ 
6 ГО НЕ, #0698 ; 10 


Первый делом загружаем в регистр НЕ адрес процедуры возврата к БЕЙСИКу - ЗА-1О- 
ВЕТ, после чего данное значение сохраняется на стеке. Далее мы загружаем в регистр НЕ 
временные константы ЛЕВОН и ОСЭ8Н, которые определяют длительность пилотирующего 
сигнала. Эта длительность составляет пять секунд для заголовка, и две секунды для блока 
данных. Определить, какой тип файла мы сейчас записываем на ленту, компьютеру 
помогает седьмой бит аккумулятора. Напомним, что в аккумуляторе содержится число, 
определяющее тип блока. 


7 ЗА-ЕЕАВ ЕХ АЕ, А’Е 4 
8 ТМС ОЕ ‚ б 
9 БЕС ТХ ‚ 10 
10 от ; 4 
11 ЕО А, #02 ВИ 
12 [О В, А 4 


После обработки блока содержимое регистра ОЕ увеличивается на единицу. На 
столько же уменьшается и содержимое регистра 1Х. Все это делается после вызова 
альтернативного набора регистров микропроцессора и дает возможность определить байт 
как первый в записываемом блоке. 

Выключение маскируемого прерывания необходимо, чтобы программа не была 
прервана для опроса клавиатуры (в обычном режиме опрос клавиатуры происходит 
пятьдесят раз в секунду, так как именно с такой регулярностью поступают импульсы на вход 
МТ микропроцессора). Значение 2 в аккумуляторе установит предварительное напряжение 
в гнезде МС на низкий уровень и цвет рамки на красный. 


13 ЗА-ГЕАБВЕВ  0У№ ЗА-ГЕАБЕВ ‚13; 8 
14 ОТ (НЕЕ), А НИ 
15 ХОВ #0Р 7 
16 ГО В, #А4 НТ 
17 ОЕС Е ; 4 
18 УВ №, ЗА-ГЕАБЕВ ; 12,7 


Следующий блок программы генерирует пилотирующий сигнал. Цикл ЗА-1ЕАОБЕВ 
гарантирует задержку между последующими сменами напряжения в гнезде МС. Затем, 
после установки напряжения в этом гнезде, четыре младших бита аккумулятора меняются 
на противоположные путем выполнения операции исключавшее "ИЛИ" над содержимым 
аккумулятора. Это подготавливает изменение напряжения на разъеме МС на 
противоположное и смену цвета бордюра с красного на голубой или наоборот. Затем 


уменьшается младший байт счетчика импульсов (|. 

Многие пользователи "Спектрума" наверняка встречали компьютерные программы 
без характерных полос на бордюре, присущих стандартным процедурам загрузки. Это 
объясняется тем, что цвет бордюра в ходе загрузки файла не изменяется. Как Вы помните, 
за цвет бордюра ответственны три младшие бита компьютерного порта 254. Поэтому, если 
Вы будете проводить операцию исключающее "ИЛИ" только над битом, ответственным за 
состояние сигнала на разъеме МГ и не будете затрагивать биты цвета бордюра. Вам также 
удастся добиться аналогичного эффекта. 


19 ОЕС В ;4 
20 ОЕС Н ;4 
21 УР Р, ЗА-ЕЕАБВЕВ У 


После обнуления младшего байта счетчика импульсов [ уменьшается и старший байт 
Н и модифицируется в соответствующей ситуации временная постоянная в регистре В с 
целью учета дополнительно выполненных инструкций (в данном случае это тринадцать 
тактов микропроцессора). Как Вы уже могли заметить, после некоторых команд стоит 
несколько значений, характеризующих длительность выполнения команды в циклах 
микропроцессора 7-80. Это объясняется тем, что, команда может быть выполнена по- 
разному в зависимости от того, выполняется условие или нет. И, следовательно, 
длительность ее выполнения для каждого из этих случаев различна. Это объясняет тот факт, 
что в ходе работы такого рода процедур необходимо учитывать время, затрачиваемое на 
дополнительно выполняемые инструкции. 


22 ГО В, #22 ;7 
23 ЗА-ЗУМС1 0.7 ЗА-ЗУМСЛ ‚10,8 
24 ОТ (НЕЕ), А ‚Л 


После того, как был выслан пилотирующий сигнал, на порт М!С идет посылка 
переднего фронта синхроимпульса. Задержка в цикле ЗА-ЗУМС1 составляет 667 тактов, 
после чего содержимое аккумулятора передается в порт 254. 


25 ГО А, #00 И 
26 О В, #37 7 
27 ЗА-ЗУМС2 0]№ 5А-ЗУМС2 ‘10,8 
28 ОТ (НЕЕ), А ; 11 


После 735 тактов идет высылка заднего фронта синхроимпульса, устанавливающего 
цвет бордюра голубым, напряжение на разъеме М!С - высоким. Изменение цвета и 
управляющего напряжения осуществляется занесением в аккумулятор числовой константы 
ООН. Задержка осуществляется загрузкой в регистр В временной константы 37Н. После 
выполнения задержки в цикле ЗА-$УМС2, значение аккумулятора пересылается в 
компьютерный порт 254. 


29 ГО ВС, #ЗВ0Е ‚; 10 
30 ЕХ АР, А’Е` ;4 
31 ГОТ, А ;4 
32 УР $А-ЗТАЕТ ‚; 10 


Загрузка константы ЗВОЕН в регистр ВС представляет собой загрузку двух различных 
чисел в отдельные регистры данной регистровой пары. ЗВН - это временная постоянная, 
загружаемая в регистр В, а ОЕН - придает начальное значение регистру С, в котором будет 
сохраняться состояние последнего напряжения в гнезде М!С и цвет бордюра (начальное 
состояние низкое напряжение и желтый цвет бордюра). Воспроизведенный тип блока 
помещается в регистр Ё и посылается на ленту как первый байт данного блока. После этого 
осуществляется безусловный переход на метку ЗА-ЗТАВТ. 


33 ЗА-ГООР ГОА, 0 ;4 
34 ОВ Е :4 
35 УН 7, ЗА-РААТТУ ; 10, 7 


Процедура ЗА-1ООР - это начало главного цикла, записывающего следующий байт. 
Если счетчик байтов, который организуется в регистре ОЕ, достиг нуля, то остается 
записать только байт четности. Проверка на ноль осуществляется типичным способом, 
характерным для микропроцессора 2-80. В аккумулятор загружаем содержимое регистра В 
и, используя содержимое регистра Е, выполняем операцию логическое "ИЛИ". Результат 
операции может быть равен нулю только в том случае, если оба байта равны нулю, поэтому 
нам только остается проверить содержимое флага 2 флагового регистра процессора для 
точного установления результата выполнения данной операции. 


36 ВСТО) м 
37 ЗА-ГООР-Р 1 А,Н :4 
33 ХОВ | :4 
39 ЗА-5 ТААТ ЕО Н, А ;4 


Данный отрезок программы служит для получения следующего байта для высылки его 
на магнитофон. Он также используется для запуска созданного в регистре Н байта четности. 
Регистр Н инициируется байтом, определяющим тип записываемого блока. (Методика 
построения байта четности в ходе операций записи и загрузки была нами рассмотрена в 
главе 1 данного тома). 


40 ЕО А, 1 И 
41 СЕ ; 4 
42 УР $А-8-ВТТ$ ‚; 10 


Загружаемое в аккумулятор значение единицы установит напряжение в гнезде МС на 
высокий уровень и цвет бордюра станет синим. Принудительное включение флага С 
флагового регистра Е будет выполнять роль указателя, позволяющего утверждать, что 
выслано уже восемь битов данного байта. 

В завершение процедуры мы осуществляем безусловный переход на метку ЗА-8-ВПФ. 


43 ЗА-РАВТТУ ШО Е,Н :4 
44 УА $А-ЕООР-Р ‚ 12 


Процедура $ЗА-РАВПУ готовит высылку байта четности, как последнего байта, 
записываемого на магнитофонную ленту. Для этого в регистр |, который обычно 
используется для хранения высылаемого байта, записываем байт четности, который 
находится в регистре Н. После этого осуществляется переход к процедуре ЗА-ГООР-Р, 
которая, собственно, и осуществляет запись. 


45 $А-ВТТ2 ГА, С :4 
46 ВЕ 7, В ; 8 


К процедуре ЗА-ВТ2 мы обращаемся при втором проходе цикла, записывающего 
одиночный бит (это осуществляется перед высылкой заднего фронта сигнала). Проверка 
седьмого бита в регистре В имеет цель только обнуление флага С, сигнализируя таким 
образом второй проход. 


47 ЗА-ВТТ1 № 5А-ВТТТ ; 10,8 
48 УВ МС, $А-0ИТ ТР 


Следующая процедура формирует главный цикл задержки между последовательными 
фронтами сигналов. Флаг С несет в себе действительное значение высылаемого бита. 


49 О В, #42 7 
50 ЗА-ЕТ 0.7 ЗА-ЗЕТ `В 


Перед высылкой логической единицы нам необходимо задержать работу на В55 
дополнительных тактов. Для этого в регистр В мы заносим временную константу 42Н, 
которая организует нам необходимый цикл задержки. 


51 ЗА-ОИТ ОТ (НЕЕ), А Ри 
52 О В, #ЗЕ :/ 
53 УВ №, $А-ВТТ2 ; 12,7 


Данная процедура организует высылку заднего фронта сигнала. Это происходит 
после высылки переднего фронта путем занесения в регистр В константы ЗЕН и вызова 
подпрограммы $ЗА-ВП2. 


54 ОЕС В :4 
55 ХОН А :4 
56 ТМС А :4 
ЭГ ЗА-8-ВТТ$ ВЕ | ; 8 
58 УР №, 5А-ВТТ1 ‚; 10 


После модификации временной константы в регистре В путем уменьшения ее на 
единицу, обнуляется флаг 7 и в аккумулятор вносится значение единицы (бордюр 
становится синим, а напряжение в МС - низкого уровня). Затем, после увеличения 
аккумулятора на единицу, во флаг С перемещается следующий бит из регистра |. Если 
регистр Ё отличен от нуля, то он знаменует собой начало цикла ЗА-ВИТ 1, причем первый вход 
в этот цикл выполняется с установленным флагом С, в то время как все остальные - с 
обнуленным. Благодаря этому только после восьми проходов регистр Ё достигает значения 
нуля. 


5 БЕС ОЕ ‚6 
60 ТМС 1х ; 10 
61 ГО В, #31 ей 


Данный отрезок программы осуществляет модификацию счетчика путем уменьшения 
на единицу содержимого регистра ПЕ и увеличения на единицу содержимого регистра Х. 
Следующим этапом идет подготовка временной константы путем засылки в регистр В 
значения З1Н. 


62 ГО А, #7Е -Й 
63 ТМ А, (#РЕ) ыы 
64 ВНА :4 
65 ВЕТ № > 


Здесь выполняется контроль нажатия клавиши ВАЕАК и, если она нажата, то 
программа передает управление на адрес О5ЗЕН процедуре обработки возврата в БЕЙСИК 
ЗА/ЬО-ВЕТ. 

Проверка нажатия клавиши начинается с чтения в аккумулятор значения из порта ЕЕН. 
После получения значения осуществляется сдвиг аккумулятора вправо с использованием 
флага переноса, в который попадает нулевой бит аккумулятора. Этот бит и характеризует 
тот факт, была ли нажата клавиша ВВЕАК. Завершает этот участок программы процедура 
условного возврата, которая, анализируя состояние флага переноса либо продолжает 
выполнение программы по нижеследующему маршруту, либо осуществляет возврат к 
процедуре выхода в БЕЙСИК. 


66 ГОА, 0 ; 4 
67 ТМС А :4 
68 УР №, ЗА-ЕООР гы 


Контроль счетчика байтов осуществляет предварительную проверку на достижение 
нуля в регистре О. Для этого мы передаем в аккумулятор значение регистра О, увеличиваем 
аккумулятор на единицу и проверяем содержимое регистра А на наличие нуля. Переход к 
метке ЗА-ЕГООР выполняется также в случае достижения регистром ГЕ значения нуля, так 
как необходимо еще записать байт четности. 


69 ГО В, #3В ;7 
70 $А-ОЕГАУ 0.№7 ЗА-БЕГАУ ; 10,8 
71 ВЕТ ‚ 10 


После достижения в регистре ОЕ значения #РЕЕЁЕ и короткой паузы управление 
передается к процедуре возврата к БЕЙСИКУ ЗА/ГО-ВЕТ. Как Вы знаете, в компьютере при 
вычитании значений из регистра, содержащего ноль, у нас получается значение ЕЕЕЕН, 
РЕРЕН, РЕРОН и так далее. Пауза организуется с помощью занесения в регистр временной 
константы ЗВН и создания цикла на основе этого значения. Последний байт процедуры $А- 
ВТ$ помещается в ячейке с адресом О5ЗЕН. 


Мы с Вами рассмотрели стандартные процедуры считывания и записи данных на 
магнитную ленту. Осталось рассмотреть процедуру обработки возврата в БЕЙСИК. 

Эта процедура имеет название ЗА/О-ВЕТ и используется для выхода в БЕЙСИК из 
подпрограмм загрузки или записи в случае успешного или неуспешного их завершения, или 
же нажатие клавиши ВВЕАК. Она необходима для того, чтобы гарантировать возврат к 
БЕЙСИКУ из процедуры записи/считывания, как в случае их правильного окончаний, так и в 
случае появления ошибок или прерывания оператора, то есть клавишей ВВЕАК. Время 
выполнения инструкции для этой процедуры не существенно. 


1 ЗА/ЕО-НЕТ  РУЗН АЕ 
2 ГОА, (#5048) 
3 АМО #38 
4 ВНСА 
5 
6 
7 


ВНСА 
ВНСА 
ОТ (НЕЕ), А 


Помещение флагового регистра на стек имеет целью сохранение флага С: обнуление 
его означает прерывание клавишей ВВЕАК или ошибку чтения. Затем в аккумулятор 
загружается значение системной переменной ВОВПЕРН и на основе ее третьего, четвертого 
и пятого битое воспроизводится цвет бордюра экрана, который был перед запуском 
соответствующей процедуры, обслуживающей магнитофон. Это осуществляется путем 
высылки содержимого аккумулятора в компьютерный порт 254. 


8 ГО А, #7Е 

ТМ А, (#РЕ) 

10 ВНА 

11 ЕТ 

12 УВ С, ЗА/ЕО-ЕМБ 


В этом отрезке программы еще раз проверяется, была ли нажата клавиша ВВЕАК для 
того, чтобы можно было выдать соответствующее информационное сообщение. После этого 
мы включаем маскируемое прерывание и осуществляем условный переход в зависимости 
от состояния флага переноса С, который изменяется при нашей проверке нажатия клавиши 
ВАВЕАК. В случае, если клавиша ВВЕАК была действительно нажата, мы осуществляем 
переход к процедуре ЗА/ЕО-ЕМО. 


13 ВЕРОВТ-0 ВОТ #08 
14 ОЕРВ #00 


Эти команды вызывают возврат к БЕЙСИКУ с выдачей сообщения: 
)-ВВЕАК-СОМТ ВЕРЕАТФ. 

Данное сообщение, как Вы помните, выдается, если программа прерывается 
оператором с помощью клавиши ВВЕАК. Это только один из типов сообщений, которые 
могут выдаваться в подобном случае. Оно говорит, что клавиша ВВЕАК была нажата во 
время действия периферийной операции. Действие СОМТМИЕ после этого оператора 
обычное. 


15 ЗА/ЕО-ЕМО  РОР АЕ 
16 ЕТ 


=5 


Первым делом мы извлекаем из стека содержимое флагового регистра. Это 
необходимо для воспроизведения флага переноса и правильного возврата к процедуре 
запуска. Следует отметить, что последний байт процедуры ЗА/Ё-О-ВЕТ занимает ячейку за 
адресом 0555Н. 

Мы с Вами закончили рассмотрение процедур чтения и записи на магнитную ленту в 
формате "Спектрума". Данный материал мы старались построить так, чтобы он был легко 
доступен для начинающих и чтобы в то же время и профессионал мог почерпнуть в нем что- 
то новое. 

В то же время, это был вынужденный шаг, поскольку цель, которую мы ставили перед 
собой - освоить защиту программ от копирования была бы не достигнута, если бы Вы не 
смогли разобраться в принципах действия стандартных загрузочных процедур, зашитых в 
ПЗУ "Спектрума". И, тем не менее, знание одной лишь работы стандартных подпрограмм 
Вам будет явно недостаточно для написания мощных защит от копирования. В следующей 
главе мы рассмотрим конкретную программу защиты от копирования информации на 
магнитной ленте. Это лишь один из многих способов защиты от копирования и мы 
надеемся, что читатель отнесется к изучению нашего материала творчески, то есть 
постарается не только вникнуть в суть публикации, но и разработает свои собственные 
более мощные программы. 


Глава 3. Методы защиты от копирования для ПЭВМ "Спектрум". 


1. Методика создания оригинальной процедуры записи информации на 
магнитную ленту. 

Информация, приведенная в предыдущих главах, поможет Вам поближе 
познакомиться со структурой хранения информации на магнитной ленте в формате 
"Спектрума". Однако, этого еще не достаточно для написания мощных программ защиты от 
копирования и тем более для создания оригинальных защищающих процедур, поскольку 
необходимо предварительно ознакомиться с основными существующими приемами такой 
защиты. 

Как Вы помните, время, которое затрачивает процессор на обработку одной 
машинной операции несоизмеримо мало по сравнению с минимально допустимым 
временем, за которое можно закодировать один бит информации на магнитной ленте. 
Поэтому для того, чтобы правильно записать информацию на магнитный носитель, 
процессор вынужден делать временные задержки, оформляемые в программе в виде 
циклов с предварительно заданными временными константами, хранящимися в регистре В. 

Таким образом, одно из направлений в создании собственной защиты - это 
изменение временных констант в сторону незначительного уменьшения или увеличения их 
значений, что позволяет сделать непригодными стандартные процедуры чтения данных, 
записанных в новом формате. 

Для того, чтобы обеспечить надежную защиту, нет необходимости в полном 
изменении всех временных констант - на практике достаточно изменения одной из них. Мы 
можем изменить временную константу задержки, характерную для стандартного 
пилотирующего сигнала, стандартного синхроимпульса, а также характерную для 


стандартной записи логического нуля или единицы. Все это приведет к тому, что созданная 
и выгруженная нами программа не сможет правильно считываться стандартными 
процедурами, встроенными в ПЗУ компьютера. 

Для того, чтобы облегчить Вашу работу по созданию собственных защит, мы хотим 
предложить Вам достаточно удобный способ создания программ подобного рода. Если Вы 
внимательно читали предыдущие главы, то наверняка обратили внимание на то, что 
процедуры записи и чтения состоят из большого числа подпрограмм, которые 
периодически вызываются в ходе работы основной процедуры. Для создания своей 
процедуры записи и чтения Вам фактически необходимо лишь создать головную программу, 
которая внесет необходимые изменения во временные константы. Остальные 
подпрограммы можно использовать из того стандартного набора, который уже “зашит" в 
ПЗУ. 

Возможно, что этот путь устроит не всех и кто-то захочет написать собственные 
процедуры записи и чтения программ в полном объеме самостоятельно. Что ж, мы не 
ставим своей целью навязывать Вам свои приемы программирования, а лишь хотим 
ознакомить Вас с основными методами защиты. 

Итак, мы предлагаем Вам для рассмотрения достаточно простой способ защиты, а 
именно: изменение временной константы задержки для пилотирующего сигнала. Создание 
собственного, отличного от стандартного, пилотирующего сигнала, позволило бы Вам 
защитить свою программу от несанкционированного копирования уже в начальный момент 
загрузки. Это объясняется тем, что все программы, записанные на магнитную ленту в 
формате Спектрума начинаются именно с пилотирующего сигнала. 

Для создания защищенной от копирования программы, Вам необходимо исключить 
возможность загрузки данной программы в копировщик. Поскольку копировщик использует 
стандартные процедуры записи и чтения информации с магнитной ленты, то Вам 
необходимо блокировать его работу путем создания файла, записанного в одном из 
созданных Вами форматов, отличном от стандартного формата “Спектрума". Чтобы 
защитить программу от копирования, на практике нет необходимости в полном изменении 
формата записи всех блоков данных, хранимых на магнитной ленте. Для этого достаточно 
записать в измененном формате всего лишь один небольшой блок данных, который хранит в 
себе информацию, без которой не может начаться выполнение программ. 

Поскольку данный файл записан в измененном формате, то его невозможно будет 
скопировать с помощью копировщика, а так как он несет в себе жизненно важные сведения, 
необходимые для правильной работы программы, то без него программа не сможет 
нормально функционировать, даже если попытаться отбросить его в процессе копирования. 

Рассмотрим принцип формирования пилоттона в формате "Спектрума". 
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Перед входом в данную процедуру предполагается, что регистры хранят информацию 
о записываемом файле. В регистре ПЕ находится длина записываемого блока, в регистре Х 
- адрес первого байта, а в аккумуляторе - число, которое определяет тип записываемого 
блока, причем ноль выставляется для заголовка, а 255(0ЕЕН) - непосредственно для блока 
данных. 

После начала работы процедуры $ЗА-ВТ$ идет подготовка к формированию 
пилотирующего сигнала. В регистр НЁ могут быть занесены два числа, определяющие 
длительность пилотирующего сигнала. 1ЕЗОН заносится в регистр НЁ в случае записи 
заголовка - и это соответствует приблизительно пяти секундам звучания пилотирующего 
сигнала, а значение ОСЭВН заносится в данный регистр в случае записи непосредственно 
блока данных, что соответствует приблизительно двум секундам звучания пилотирующего 
сигнала. Какой тип значения заносить в регистр НЁЕ определяется путем проверки 
содержимого аккумулятора, точнее, его седьмого бита. 

Формирование пилотирующего сигнала осуществляется процедурой ЗА-ЕГЕАПЕВ. 
Временная задержка осуществляется с помощью занесения в регистр В значения А4Н. 
Таким образом, путем изменения содержимого аккумулятора, мы достигаем 
периодического перепада напряжения на выходном разъеме, связывавшем Спектрум с 
магнитофоном и служащим для записи информации. Если в этой процедуре значение, 
заносимое в регистр В, то Вам удастся сформировать свой собственный пилотирующий 
сигнал, отличный от стандартного, который позволит защитить Вашу программу от 
копирования. 

После формирования нестандартного пилотирующего сигнала остается продолжить 
запись Вашей программы на магнитную ленту. Одним из способов осуществления этого 
является переход к стандартной подпрограмме $А-ЗУМС1, которая, если Вы правильно 
оформили свою процедуру записи, то стандартная подпрограмма сама закончит работу по 
сохранению информации на магнитном носителе и возвратится в операционную среду 
"Спектрума". 

Теперь Вы видите, что нет ничего сложного в том, чтобы составить свою собственную 
программу по записи информации на магнитофон в формате “"Спектрума". Для этого 
достаточно лишь немного модернизировать одну из стандартных процедур записи, в нашем 
случае ЗА-ГЕАПЕРВ. Остальные процедуры записи можно использовать стандартные и, лишь 
когда Вы более подробно познакомитесь со структурой встроенных процедур, Вы сможете 
начать писать собственные программы дальнейшей обработки информации и возврата в 
операционную среду. Ми предлагаем Вам начинать с простейшего и постепенно 
совершенствовать свои приемы программирования. 


2. Методика создания оригинальной процедуры чтения информации с 
магнитной ленты. 

Мы с Вами рассмотрели методику создания оригинальных процедур записи 
информации на магнитофон, используемую при защите информации от копирования. При 
ее рассмотрении Вам был предложен метод, позволяющий ускорить подобного рода 
разработки за счет использования встроенных в "Спектрум" процедур. Однако, такой метод 
не всегда приемлем, и поэтому, приступая к рассмотрению процедуры чтения информации 
с магнитной ленты, мы остановим свой выбор на создании полноценной процедуры 
выполняющей все функции чтения информации с магнитофона. 

Процедуры чтения информации с магнитной ленты, являются более сложными в 
сравнении с аналогичными процедурами записи. Это объясняется тем, что основа действия 
процедур заключается в многократной проверке шестого бита порта 254 и в определение 
интервала между двумя следующими друг за другом фронтами. Таким образом, при чтении 
блока с ленты необходимым является точное определение интервалов между фронтами 
сигналов. Работу по определению этих интервалов выполняет вспомогательная процедура 
-О-ЕООЕ-2, размещенная по адресу О5ЕЗН в ПЗУ "Спектрума". Эта точка входа в ПЗУ 
используется, когда необходимо установить, сколько времени прошло от момента вызова 


процедуры до обнаружения двух, следующих одна за другим смен уровней сигналов в 
гнезде ЕАН и на сколько обе эти смены уровней сигнала соответствуют по времени 
допустимым пределам требуемых временных интервалов. 

Второй важной точкой входа в ПЗУ является стандартная процедура 1О-ЕБСЕ-1, 
расположенная по адресу О5Е7ТН. Она позволяет определить, сколько времени прошло с 
момента вызова процедуры до извлечения первого фронта сигнала. Вызывается она после 
помещения в регистр В временной константы, ограничивающей количество проверок порта 
РЕН. Превышение допустимого времени ожидания смены сигнала или определение нажатия 
клавиши ВАЕАК сопровождается обнулением флага переноса. Для распознавания каждой 
из этих ситуаций служит флаг нуля. Если флаг 7 обнулен, то в ходе работы программы была 
нажата клавиша ВВЕАК, а если он включен, то произошло превышение временного 
интервала. 

В рассматриваемой нами методике изменения стандартного пилотирующего сигнала 
Вам необходимо как можно более точно рассчитать необходимое время задержки для 
четкого поиска фронтов модернизированного пилоттона. Как мы и обещали, ниже 
приводится специализированная программа для загрузки с ленты файла, начинающегося с 
модернизированного пилоттона. 


ове 50000 

ЕО ОЕ, 256 

ЕО ТХ, 23296 

[О А, 255 
1 [О-ВУТЕЗ ТМС р ; 4 
2 ЕХ АР, А’Е 4 
3 ЕС 0 4 
4 ОТ :4 
5 ЕО А, НОЕ ый 
6 ОЦТ (НЕЕ), А ни 
Т ЕВ НЕ, #053Е ; 10 
6 РОЗН НЕ 
9 ТМ А, (НЕЕ Я 
10 АВА :4 
11 АМО #20 7 
12 ОВ #02 У 
13 [О СА 4 
14 СР А :4 
15 [О-ВВЕАК ВЕТ № Е 
16 ЕО-СТАВТ САЕЕ 10-ЕБСЕ-1 "Г 
17 УВ МС, ЕО-ВВЕАК 12.7 
18 ЕО НЕ, #0415 10 
19 ЕО-МАТТ УМ ЕБ-МАТТ : 10,6 
20 БЕС НЕ . б 
21 БА, Н 4 
22 ОВ ; 4 
23 УВ №, ЕО-МАТТ : 12,7 
24 САЕЕ 10-ЕБОЕ-2 т 
25 УВ МС, ЕО-ВВЕАК : 12,7 
26 ЕО-ЕЕАБЕВ 10 В, #9С т 
27 САЕЕ ЕО-ЕБСЕ-2 ни 
28 УВ МС, ЕО-ВВЕАК 742.7 
29 [О А, #06 7 
30 СР В ; 4 
31 УВ МС, ЕО-ЗТААТ 12. 
32 ТАС Н 4 
33 УВ №, ЕО-ЕГЕАБЕВ : 12,7 
34 ЕО-5УМС [О В, #09 н 
35 САЕЕ ЕБ-ЕБСЕ-1 ни 
36 УВ МС, ЕО-ВВЕАК 12:7 
З7 [О А, В 4 
38 СР #04 ет 
39 УВ МС, (0-5УМС : 12,7 
40 САЕЕ 10-ЕБСЕ-1 7 
41 ВЕТ № но 


. © © > м 5 ФМ - 


г 
о©ючоаью— © 


г г г 


г 


г в г 


& 


ЕО-ЕООР 


ЕО-ЕЕАСб 


ЕБ-МЕХТ 
ЕО-БЕС 


ЕО-МАНКЕВ 
[0-8-ВТТ5 


[О-ЕБСЕ-2 


[О-ЕБОЕ-1 
ЕБ-БЕГАУ 


[О-ЗАМРЕЕ 


УВ ЕО-МАВКЕВ 
ЕХ АР, А’Е` 
УВ №, 1О-РЕАб 


УВ №, 10-УЕВТЕУ 


ЕО (ТХ+С), Е 


В (О-ОЕС 


Х АЕ, А`Е` 


Г 
> 
г 
Г 
—- 
ср 
1 
гл 
[== 
[р 
г 
| 
®) 


59 <>Г 


В, #80 


СГ 


А,Н 
Г 
Н, А 
А, О 
Е 


2, ЕО-ЕООР 
А,Н 
# 


59 <>г >! 
В 5 Е ЕрАЗ, ЕМ 
9 


т 


АЕ 1О-ЕБСЕ 1 
ЕТ № 

О А, #16 

ЕС А 

В №7, ГО-ОЕГАУ 


ОТ (#ЕЕ), А 


С 
В 
Ё 
О 
Ч 
А 
Т 
В 
р 
Т 
В 
ВЕТ № 
х 
А 
Ч 
р 
С 
р 
А 
0 
0 
5 
В 


ЕТ 


С, [0-8-ВТТ$ 


еее АчАрь+- 
(<>) 


ыы 
(<>) 


Во) 
— 


Приведенная выше программа полностью соответствует стандартной процедуре 
загрузки информации и может осуществлять чтение файлов в формате "Спектрума". Если 
Вы внимательно присмотритесь к данной программе в машинных кодах, то легко 
обнаружите, что за загрузку пилоттона ответственна лишь одна процедура 1О-1ЕАПЕР (в 
нашей программе ей соответствуют строки 26-31). Здесь временная константа ЭСН 
позволяет процедуре 1О-ЕБСЕ-2 искать два фронта сигнала за время, не превышающее 
7000 тактов работы процессора. С другой стороны, после их нахождения проверяется, 
прошло ли с момента вызова процедуры ЕО-ЕБСЕ-2 до появления заднего фронта не менее, 
чем 3366 тактов работы процессора. Этим способом отличаются фронты пилотирующего 
сигнала от значительно более близких пар фронтов информационных сигналов. 

Загружаемая в регистр В временная константа ЭСН перед вызовом процедуры 1О- 
ЕОСЕ-2 формирует необходимую задержку для правильной работы этой стандартной 
процедуры. После того, как мы возвращаемся из процедуры ЕО-ЕБОЕ-2, мы первым делом 
проверяем, была ли нажата клавиша ВАЕАК и лишь в следующий момент сравниваем 
содержимое регистра В с предварительно загруженной в аккумулятор константой СН. 
Команда сравнения, применяемая в этом случае, позволяет нам сравнить содержимое 
аккумулятора с числом, содержащимся в регистре В. В результате операции числовые 
значения не изменяются. Результат сказывается только на флагах регистра Е. Если 
содержимое аккумулятора больше сравниваемого числа или равно ему, то флаг переноса 
будет выключен. Если же оно меньше, то флаг переноса будет равен единице. 

Как Вы помните, процедура 1О-ЕШСЕ-2 позволяет установить, сколько времени 
прошло от момента ее вызова до обнаружения двух, следующих друг за другом смен 
уровней сигналов в магнитофонном гнезде. Для этого в регистр В заносится константа, 
определяющая количество проверок магнитофонного гнезда ЕАН. Если изменение фронта 
не обнаружено, то мы выходим из процедуры 1О-ЕБСЕ-2 по обнулению регистра В. Если же 
мы обнаружили смену фронтов в тот момент, когда регистр В еще не достиг своего нулевого 
значения, мы выходим из вышеуказанной процедуры и сравниваем оставшееся в регистре В 
значение с константой, загружаемой в аккумулятор. Это необходимо для того, чтобы 
проверить, прошло ли с момента вызова ЕО-ЕБСЕ-2 до появления заднего фронта не менее, 
чем 3366 тактов работы процессора. 

Для того, чтобы создать собственную процедуру чтения файлов с магнитофона, Вам 
необходимо рассчитать, какие значения заносить в регистр В перед вызовом 1О-ЕБСЕ-2 из 
подпрограммы ЕО-ЕЕАБЕВ и с каким значением аккумулятора необходимо сравнивать 
остаток регистра В после отыскания фронта сигнала. 

Все вышесказанное касается лишь того случая, когда Вы будете использовать метод 
модернизации пилотирующего сигнала, чтобы добиться его отличия от стандарта. Для 
каждого варианта такого сигнала Вам необходимо создавать собственную оригинальную 
процедуру загрузки, то есть подсчитывать время задержки. 

Мы с Вами рассмотрели методику защиты от копирования с использованием 
нестандартного пилотирующего сигнала. Однако самой важной целью этой работы было 
показать Вам, что Вы в состоянии сами написать как процедуру записи программы на 
магнитную ленту, так и процедуру чтения. Это еще ближе знакомит Вас с работой 
компьютера, помогает преодолеть естественную неуверенность перед машинным кодом и, 
как мы надеемся, поможет Вам реализовать по новому свои способности в 
программировании. 


СЕКРЕТЫ ТНОО$ 


Алексеев А.Г. 


Итак, Вы обзавелись БЕТА-ДИСК интерфейсом, а также чистыми дискетами. Если есть 
у кого переписывать готовые программы на дискетах - Вы на некоторое время будете 
избавлены от прочих забот, наслаждаясь тем, как лихо проходит загрузка игр. Вы даже 
поначалу не будете обращать внимание на то, что где-то подпорчена заставка (нет двух 
нижних строк), а где-то на экран загружается какая-то цветная дрянь. Правда, после этого 
игра стартует нормально, но выглядит это как-то кустарно. Кроме того, наверняка есть у Вас 
игры на магнитной ленте, которые Вы относите к самим "игручим", а их дисковых версий 
как-то не оказалось у Ваших друзей. В общем, постоянные "житейские" заботы будут 
каждый день подталкивать Вас на более глубокое изучение ТВ-0О$. Поэтому я поделюсь 
тем опытом, который накопился у меня с момента подключения БЕТА-диска. 

Вам предлагается обобщенный материал, собранный из разрозненных источников, а 
также уникальные данные, полученные в результате экспериментальной работы. 

Начальные сведения по дисковой операционной системе ТВ-0О$ достаточно 
подробно изложены в многочисленных описаниях, распространяемых в достаточном 
количестве на компьютерных рынках страны. Поэтому в этой статье я буду подразумевать, 
что владельцы БЕТА-ДИСК интерфейсов уже знакомы с этими материалами. 


Первое, что усваивает каждый пользователь ТВ-0О5, это то, что вместо, например: 
[ОАБ ”” СОБЕ 
в Бейсик-строке теперь надо ставить: 
ВАМООМТУЕ ЦЗН 15619 : ВЕМ : [ОАО “пате” СОБЕ 
а вход в систему ТВ-О0О$ из Бейсика производится командой: 
ВАМООМТУЕ 058 15616 
Прежде всего, давайте выясним что это за адреса? 15616 и 15619 это же ведь адреса 
ПЗУ, того самого, которое было до подключения ТВ-ОО$5. Не вступаем ли мы в конфликт с 
машинный кодом основного ПЗУ Спектрума? Оказывается нет. С адреса 15616 в ПЗУ 
Спектрума расположен символьный набор, начиная с пробела, то есть, в нормальном 
режиме работы “"Спектрума" никогда не происходит выполнение машинного кода в этих 
адресах. В случае БЕТА-ДИСК интерфейса, при попадании на этот адрес срабатывает 
селектор адреса, который подключает теневое ПЗУ и дальнейшая работа происходит в нем. 
В теневом ПЗУ с системой ТВ-О0О$ по этим адресам располагаются команды, передающие 
управление в соответствующие точки ПЗУ ТВ-005. 
Рассмотрим теперь более детально, как же устроена ТВ-ОО5. 


КАРТА ПАМЯТИ ОЗУ. 


Те сведения, которые изложены в "фирменных" руководствах по ТВ-0О$, можно 
охарактеризовать как ТВ-О0О$ снаружи. Ну, например, в "фирменном" описании сказано, что 
для работы ТВ-0О$ выделяется дополнительно 112 байт ОЗУ. И еще говорится о том, что в 
процессе работы ТВ-0О$ динамически выделяется 256 байт, причем происходит это 
незаметно для пользователя. И все про это. Попробуем раскрыть поподробнее эти фразы, 
взглянув на ТА-0О$ изнутри. 

Для начала посмотрим, где эти 112 байт ОЗУ выделяются. До инициализации БЕТА- 
ДИСК интерфейса карта памяти ОЗУ имела следующий вид (только то, что представляет 
интерес): 


Экранная память 16384 


Буфер принтера 23296 
Системны 2З552 
перем ы 


Бейсик-программа 23755 <-- РВОС 


<--КАМТОР 


Свободно 


65535 <-- РВАМТ 


При подаче команды РАМОВОМИИЕ УЗВ 15616 происходит инициализация БЕТА-ДИСК 
интерфейса. При этом перестраивается карта памяти. Дополнительные 112 байт ОЗУ 
выделяется перед областью Бейсик-системы. Системная переменная РАОС становится 
равной 23755+112=23867. Бейсик-программа со всеми Бейсик-переменными и маркером 
конца передвигается на 112 байт ближе к ВАМТОР. А область, отведенная под Бейсик- 
систему становится, таким образом, меньше на 112 байт: 


Экранная память 16384 
Буфер принтера 23296 
Системны 23552 
рем Ы 
Системнь 
рем ые ТК-ОО5 


Бейсик-программа 23867 <-- РВОС 


< ВАМТОР 
Свободно 


65535 <-- РВАМТ 


Кроме того, непосредственно в тот момент, когда происходит чтение или запись 
сектора данных, Бейсик-программа отодвигается еще дальше к ВАМТОР. Эту переброску 
осуществляет ТВ-02О$ и происходит она для пользователя незаметно (однако это может 
доставить массу проблем при адаптации магнитофонных программ под диск). Бейсик- 
программа со всеми своими переменными отодвигается еще на 257 байт. Это место 
освобождается непосредственно для операции чтения-записи сектора данных на диск: 256 
байт информации плюс один байт - контрольная сумма сектора. Карта памяти в этот момент 
имеет следующий вид: 


Экранная память 16384 


Буфер принтера 23296 


Системны АЗЫ 
рем Ы 


Системны 
рем ые ТК-ОО5 


257-байтное 
ространство 


Бейсик-программа 24124 <-- РВОС 


<--КАМТОР 


Свободно 


65535 <-- РВАМТ 


По завершении операции чтения-записи Бейсик-программа возвращается на свое 
прежнее место - в адрес 23867. 

Такое изменение адресов не то что происходит незаметно, но, как уже говорилось, 
может создать массу проблем для адаптации магнитофонных версий программ под диск. 
Большинство пользователей Спектрумов начинали с магнитофонных вариантов и БЕТА- 
диском оснащали свои уже готовые компьютеры. Поэтому, конечно, одной из первых 
потребностей, с которой Вы сталкиваетесь, (и с которой столкнулся я), является адаптация 
своих собственных программ под БЕТА-диск. Переделка фирменных игровых программ - 
это тема для отдельного разговора, однако на рынке существует огромное множество 
дисковых версий игр. Дешевле пойти и купить то, что надо. Но свои собственные программы 
Вам придется переделывать самим. Проблемы могут быть вызваны, например, нехваткой 
памяти в связи с выделением дополнительных 112 байт ОЗУ. Если значение РАМТОР 
небольшое, порядка 25000, то под Бейсик-программу остается совсем мало места. И 
программа, которая нормально работает в магнитофонном варианте, может отказаться 
работать в дисковом. Значение РАМТОР изменить бывает проблематично, поэтому 
приходится прибегать к другим приемам по экономии памяти. Многие из этих приемов 
достаточно подробно разбирались на страницах 7Х-РЕВЮ. Это, в частности, замена 
цифровых значений на \/АЁ "..." и другие приемы. Может оказаться так, что в принципе 
Бейсик-программа работает, но если в программе встречаются команды ТВ-0О$ с 
префиксом: 


ВАМООМТ7Е 0$В 15619: НЕМ 


то вместо выполнения их, на экране появляется сообщение об ошибке: "ОШ о 
петогу". Это значит, что свободного места не хватает при попытке выделить 257-байтное 
пространство для операции чтения-записи сектора. 


Если способы экономии памяти исчерпаны, то возможно придется серьезно подумать 
над изменением структуры программы в целях увеличения значения ВАМТОР. Кроме этого, 
следует упомянуть еще об одной проблеме. Во многих программах применяется нулевая 
строка для размещения в ней блоков машинных кодов за оператором ВЕМ. Об этом 
подробно рассказывалось в 2Х-РЕВЮ М 9-10 за 1992 год, см. стр.193. Там говорилось, что 
если строка с ВЕМ это начальная строка программы, то свободное место за ВЕМ начинается 
с адреса РВОС+5. В случае ТВ-0О$5, это будет 23867+5=23872. Однако, если Вы попробуете 
загрузить с диска блок кодов по этому адресу при помощи команды ТВ-0О5: 


ГОА “паме” СОБЕ 23872 


то у Вас ничего не получится. Дело вот в чем. В тот момент когда происходит загрузка 
(выполнение процедуры чтения сектора данных), Бейсик-програма и оператор ВЕМ вместе 
с ней уже имеют другой адрес - на 257 больший, чем тот, который был. Поэтому загрузку 
кодов с диска в нулевую строку надо выполнять следующим образом: 


ГОАБ “пате” СО00Е (23872+257) 


Тогда блок кодов попадет точно в адрес 23872. 
Вышесказанное относится к загрузке блока кодов и адреса между РВОС и ВАМТОР. 
То же относится и к записи блока кодов из этого интервала адресов на диск. 


СИСТЕМНЫЕ ПЕРЕМЕННЫЕ ТВ-О005. 


Продолжая взгляд на ТВН-0ОО$ изнутри, рассмотрим некоторые из системных 
переменных, составляющих дополнительные 112 байт ОЗУ. Еще раз упомяну: 
предполагается, что читатель знаком с описанием ТВ-0О$ в начальном объеме. Сначала 
кратко. 


23752 
23753 
23754 
23755 
23773 
23781 
23782 
23784 
23786 
23787 
23788 
23798 
23800 
23801 
23802 
23803 
23804 
23805 
23823 
23830 
23833 
23838 


#5СС8) - 1 байт - режим работы диска "А" 

#5СС9) - 1 байт - режим работы диска "В" 

#5ССА) - 1 байт - режим работы диска "С" 

#5ССВ) - 1 байт - режим работы диска "О" 

#5СО0) - 8 байт - имя файла в кодах АЗСИ 

#5СЕб5) - 1 байт - тип файла 

#5СЕб) - 2 байта - параметр ЭТАВТ 

#5СЕЗ) - 2 байта - длина файла 

#5СЕА) - 1 байт - объем файла в секторах 

#5СЕВ) - 1 байт - номер первого сектора файла 

#5СЕС) - 1 байт - номер первого трека файла 

#5СЕ6б) - 1 байт - дисковод для временной операции 
#5СР8) - 1 байт - дисковод при операции с 2 файлами 
#5СРО) - 1 байт - признак операции ВЕАВ/ЛМЕН!РУ 

#5СРА) - 1 байт - время перемещения головки дисковода " 
#5СРВ) - 1 байт - время перемещения головки дисковода " 
#5СРЕОС) - 1 байт - время перемещения головки дисковода " 
#5СРО) - 1 байт - время перемещения головки дисковода " 
#500Р) - 1 байт - код ошибки ТВ-0О$ 

#5016) - 1 байт - копия системного регистра 

#5019) - 1 байт - номер дисковода 

#501Е) - 1 байт - номер файла, если он найден. 


> — — мм м м м м м ммм ммм м>Ам—м>—м——— 


Теперь подробнее 


С адреса 23752 по 23755 расположены 4 числа, по одному на каждый из возможных 
четырех подключенных дисководов А, В, Си О. 7-й бит этого числа определяет количество 
дорожек дисковода: 0 - 40-дорожечный дисковод, 1 - 80-дорожечный дисковод. 1-й бит 
этого числа равен 1, если дисковод двусторонний. 0-й бит этого числа равен 0, если 
выполняется команда по использованию 80-дорожечного дисковода, как 40-дорожечного. 

Начиная с адреса 23773, 8 байт занимает имя файла в кодах АЗСИ. При 
инициализации интерфейса в эти ячейки заносится имя "“боо{". Так осуществляется 
подготовка к считыванию с диска программы-загрузчика. 

Следующий байт после имени файла, ячейка 23781, определяет его тип. Это один из 


четырех кодов АЗСИ - "В", "С", "О" или '#". 

Следующие два байта, с адреса 23782, это параметр "ЗТАВТ". Если тип файла - "С", то 
это начальный адрес размещения кодов в памяти Спектрума. Если же тип файла "В", то 
двухбайтное число в этих ячейках является системной информацией, связанной с 
автостартом Бейсик-программы. 

Два байта с адреса 23784 обозначают длину файла в байтах. Один байт по адресу 
23786 определяет длину файла в секторах (по 256 байт). Разумеется, должно иметь место 
выражение: 


РЕЕК 23786 = РЕЕК 23785 + (РЕЕК 23784<>0) 


Очевидно, что если младший байт длины файла имеет хоть какое-то значение, 
отличное от нуля, то должен быть выделен сектор для размещения файла. 

Когда происходит поиск файла на дискете по заданному имени и типу, считывается 
содержимое нулевой дорожки. В том случае, если такой файл найден, его номер заносится 
в ячейку 23838. А в ячейки 23787 и 23788 заносятся соответственно начальные сектор и 
дорожка файла согласно его расположению на диске. Таким образом, теперь имеется вся 
необходимая информация для загрузки файла в память. 

Если Вы выполняете, например, команду: 

А> 10АБ “В:паме” 

то номер дисковода, указанного Вами в качестве временного (в данном случае это 
"В“"), заносится в ячейку 23798. Для дисковода "А" это 0, "В" - 1, "С" -2, "О" - 3. 

Ячейка 23801 содержит признак операции 1ОАБ/Л\/ЕНТГУ. Значение 0 соответствует 
чтению, а 255 - сравнению файла. Вы можете проделать интересный эксперимент: сделайте 
РОКЕ 23801,255, а затем подайте команду ТВ-0О$, например, ГОАО “пате" СОБПЕ. Однако 
вместо загрузки будет выполнена верификация. 

Интересна информация, находящаяся в ячейках 23802...23805. Здесь (по одному 
байту на каждый дисковод) расположен код, определяющий время перемещения головки 
дисководов А...0О. Число, стоящее там после инициализации - 8. Оно соответствует 
наибольшей скорости перемещения головки. Если чтение сектора прошло неудачно, то это 
число увеличивается на единицу, то есть становится 9 - это соответствует меньшей 
скорости перемещения головки. Она отводится на нулевую дорожку, после этого 
повторяется чтение. Если опять неудача, то опять уменьшение скорости (РЕЕК 23802=10) и 
повторяется чтение и так до РЕЕК 23802=11. Это наименьшая скорость перемещения 
головки. Вы можете искусственно увеличить ее после неудачного чтения, подав команду 
(для дисковода "А", например): РОКЕ 23802,86. (Кстати тот же эффект даст РОКЕ 23802,12.) 

Вышесказанное про скорость перемещения головки относится к ТВ-0О$ версии 5.01. 
В более поздних версиях, например, 5.04$, установлена только быстрая скорость 
перемещения головки и она не зависит от содержимого ячеек 23802...23805. Хотя при 
инициализации дисковода туда по-прежнему заносится 8. Это число является признаком 
того, что инициализация произведена (до инициализации каждого из дисководов А...О в 
этих ячейках содержится значение 255). 

В ячейке 23814 задается число байт, по которым в каталоге диска ищется файл. 
Начальное значение этого параметра - 9 (8 байт - имя файла плюс 1 байт - его тип). 

Ячейка 23823 содержит код ошибки ТВ-0О$. На коде ошибки необходимо 
остановиться поподробнее. Наберите и выполните следующую Бейсик-программу: 


10 ВАМООМТУЕ Ц$В 15619 : ВЕМ : ГОАО “абсае” СОБЕ 
20 РВТМТ РЕЕК 23823 


В том случае, если файл "абсае" отсутствует на диске, то сообщения об ошибке не 
последует: программа остановится с сообщением 0 ОК. 20:1. О наличии ошибки 
свидетельствует только единица на экране. По таблице кодов ошибок (смотри в описании 
ТА-ОО5$) это соответствует ситуации "нет файла". Код ошибки из Бейсик-программы можно 
подучить еще и другим способом. Ранее в "7Х-РЕВЮ" мы уже говорили о том, что вместо 


ВАМООМЕЕ ЧЗВ ... вполне можно использовать ЕТ $=Ц$В ... Все это относится точно также 
икадресу 15619. Измените нашу программу: 


10 ТЕТ егг = И5В 15619 : ВЕМ : ГОАО “абсае” СО0Е 
20 РВТМТ егг 


Результат работы этой программы будет точно такой же, как и первой. Можете 
использовать значение ег в Бейсик-программе по своему усмотрению, например: 


20 ТЕ егг<>0 ТНЕМ РАТМТ “ЕВВОВ” 


Продолжаем разговор о системных переменных ТВ-0О5. 


Ячейка 23830 это копия системного регистра. Если посмотреть на схему контроллера 
дисковода, то это тот регистр, который собран на микросхеме 555ТМ9. Интересная 
особенность, но у меня пока что нет никаких данных о том, как практически это можно 
использовать. 

Ячейка 23833 определяет номер накопителя А...О (А-0, В-1, С-2, 0-3). Можете 
проделать небольшой эксперимент. Войдите в ТВ-0О$. Вы увидите приглашение: А>. 
Теперь выполните: *"Б". Приглашение сменится на: В>. Теперь перейдите из ТВ-00$ в 
Бейсик, выполнив ВЕТИВМ, затем сделайте РОКЕ 23833,2 и войдите опять в ТВ-0О5. Вместо 
приглашения: В> Вы увидите: С>, так как искусственно поменяли дисковод, изменив 
содержимое системной ячейки 23833. 

Перечислены основные, но далеко не все системные переменные ТВ-О0О05. Если кто- 
нибудь из читателей обладает более полной информацией, напишите об этом. 

Теперь рассмотрим подробнее вопрос о том, как информация хранится на дискете. 


ФОРМАТ ЗАПИСИ НА ДИСК. 


Данные на дискету записываются в виде секторов, имеющих объем 256 байт. Вдвое 
меньший, по сравнению с 1ВМ РС объем одного сектора позволяет несколько сэкономить 
потери из-за недоиспользования места, так как длина файла не кратна объему одного 
сектора. При большом числе коротких файлов это дает определенный выигрыш. 

Предположим, что имеется двусторонний 80-дорожечный дисковод (во всяком 
случае, таких, наверное, большинство). Если Вы отформатируете дискету, то при 
завершении форматирования увидите, что на дискете имеется 2544 свободных сектора. Но 
80 дорожек умножить на 16 секторов получится 2560 секторов. Где остальные? Дело в том, 
что нулевая дорожка дискеты 16 секторов - является системной. А файлы могут 
располагаться начиная с 1-й дорожки по 159 (так как запись двусторонняя). 

Информация на нулевую дорожку записывается в строго определенном формате. Эти 
16 секторов поделены на две части. В первой части - сектора с 0 по 7 - хранятся заголовки 
файлов. При этом на один заголовок отводится 16 байт информации. Всего на восьми 
секторах может быть размещено 128 заголовков файлов. То есть: 

8 секторов * 256 байт = 2048 байт 

то же самое, что: 

128 файлов * 16 байт = 2048 байт. 

Из максимального числа файлов, кстати, происходит название: "БЕТА-ДИСК 128". 

Для тех, кто программирует в машинных кодах может оказаться полезным еще и такой 
взгляд. Порядковый номер заголовка имеет следующее свойство: старший полубайт этого 
числа (старшие 4 бита) соответствует номеру сектора, в котором записан заголовок файла, 
а младший полубайт (младшие 4 бита) соответствует номеру заголовка в секторе. 

О том, как в память компьютера считать нулевую дорожку - позже. А сейчас о формате 
заголовка файла. Он в точности совпадает с 16 ячейками системных переменных с 23773 по 
23788. Из 16 байт, отведенных на один заголовок, первые восемь занимает имя файла в 
АЗСИ. Следующий байт - тип файла (тоже в АЗСИ) - В, С, В или #. Следующие два байта - 
параметр ЭТАНТ, далее 2 байта - длина файла, следующий байт - объем файла в секторах и 


далее 1 байт - номер начального сектора файла и 1 байт - номер начального трека (дорожки) 
файла на дискете. 

Кроме сказанного, надо добавить следующее. При удалении файла первый символ 
имени (первый байт заголовка) заменяется на код 01. В таком виде файл считается 
удаленным, однако, если Вы не делали команду МОУ\Е, то удаленный файл всегда можно 
восстановить, изменив первый символ его имени в заголовке либо при помощи программ 
типа “"О!$К-ООСТОВ", либо при помощи всевозможных программ-оболочек типа "МОА- 
ЗЕР\СЕ". Однако, если удаляется последний файл каталога, то первый символ имени 
заменяется не на 1, а на 0. По значению 0 определяется конец каталога. Заголовки вновь 
записываемых файлов будут располагаться в каталоге, начиная с этого места. 


Кроме секторов 0...7, в которых располагаются заголовки файлов, есть еще один 
сектор, восьмой, в котором содержится общая информация по диску. Эта информация 
расположена не с начала сектора, а ближе к его концу. Если начать нумерацию байтов 
сектора с 0, то вот содержание байтов, несущих информацию по диску. 

Байты 225 и 226 хранят начало свободного места на диске, доступного для записи 
файлов - сектор и трек соответственно. Сразу же после форматирования дискеты эти байты 
имеют значения 0 и 1 соответственно (как говорилось выше, запись файлов на дискету 
начинается с дорожки номер 1). 

Байт 227 определяет тип разметки диска. Значения этого байта могут быть 
следующими. 

22 (#16) - 80 дорожек, 2 стороны; 

23 (#17) - 40 дорожек, 2 стороны; 

24 (#18) - 80 дорожек, 1 сторона; 

25 (#19) - 40 дорожек, 1 сторона. 

Байт 228 определяет общее количество файлов, записанных на диск. Это число 
включает в себя и удаленные файлы, так как физически они все равно присутствуют на 
диске. То есть это все файлы от начала каталога до начала свободного места. 

Байты 229 и 230 (младший и старший) определяют количество свободных секторов на 
диске. Сразу же после форматирования дискеты командой ТВ-0О$: ЕОАВМАТ "пате", они 
равны соответственно 240 и 9. То есть 240+9*256=2544. Если для форматирования 
воспользоваться программой "ОСУ" Н. Родионова, можно отформатировать диск на 
максимальное число дорожек, для большинства дискет практически до 83-84 дорожек. При 
этом байты 229 и 230 сразу же после форматирования могут иметь другие значения, 
например 2640 или 2672. На первый взгляд может показаться, что на такую дискету удастся 
записать больше файлов. Но это только на первый взгляд. Попробуйте отформатировать 
дискету таким образом, а потом записать на нее файл объемом, например, 1 сектор. После 
записи Вы увидите, что на дискете осталось 2543 свободных сектора (2544-1 = 2543). То 
есть ТВ-0О$ пересчитывает число свободных секторов при записи файла исходя не из того, 
что записано в байтах 229 и 230 системного сектора, а из того, что на диске может быть 
только 80 или 40 дорожек по 16 секторов. 

Единственным преимуществом форматировании на максимальное число дорожек 
пока что видится возможность использования места за 80-й дорожкой для каких-то своих 
целей, например, там может располагаться пароль, защищающий дискету от копирования. 
Практически такой способ защиты очень распространен, но это - тема для отдельного 
разговора. 

Если дискета форматировалась при помощи программы "ОСИ", то байты 223 и 224 
содержат максимальное число форматированных секторов, доступных для записи файлов. 
Сразу же после форматирования дискеты значения этих байтов совпадают со значением 
байтов 229 и 230. Но значения последних изменяются по мере записи файлов на дискету, а 
значения байтов 223 и 224 остаются неизменными и используются при работе программы 
"ОСИ". 

Если дискета форматировалась командой ТВ-0О5$: РОАМАТ "пате", то содержимое 
байтов 223 и 224 равно 0. Ненулевое значение этих байтов является признаком того, что 


дискета форматирована при помощи программы "ОСИ". 

Байт 231 всегда хранит код 16 (#10). Он определяет число секторов на одной дорожке 
и никогда не меняет своего значения. Это число обозначает принадлежность диска к 
операционной системе ТВ-0О5. 

Байт 244 содержит число удаленных файлов - то есть тех, первый символ имени 
которых в каталоге диска имеет значение 01. 

Байты с 245 по 252 хранят имя диска в кодах АЗСИ (всего - 8 байт). 

Сектора с 9 по 15 не несут никакой информации, связанной с обычным 
функционированием файловой системы диска. 

Вот это все, что касается нулевой дорожки. К сказанному можно добавить, что 
искажение системной информации диска и каталога диска широко используется для 
зашиты от копирования, и разговор об этом будет уже в этой статье, но чуть позже. А сейчас 
мы подошли, пожалуй, к самой главной теме. 


ВЫПОЛНЕНИЕ КОМАНД ТВ-00$ ИЗ МАШИННОГО КОДА. 


Трудно переоценить значение этих сведений для программиста, поэтому сразу к делу. 

В фирменном руководстве по ТВ-0О$ описан способ выполнения команд ТВ-О0О$ из 
машинного кода. Суть его в двух словах в следующем. Где-то в памяти Спектрума 
размещается фрагмент Бейсик-программы - некоторая фиктивная Бейсик-строка, 
содержащая команду ТВ-0О$. Формат записи этой Бейсик-строки такой же, каким он 
является в обычной Бейсик-программе. Затем в регистры процессора и системные 
переменные Бейсика заносится адрес, в котором находится новый фрагмент "фиктивной" 
Бейсик-программы. Затем происходит запуск интерпретатора Бейсика для выполнения 
этой фиктивной строки. Такой способ выполнения машинного кода при помощи Бейсика 
настолько громоздок и несуразен, что может иметь разве что чисто теоретическое значение 
и вряд ли кем-то может восприниматься серьезно. Но главное в том, что он выполняет 
только то, что может быть выполнено из обычного Бейсика и не более того. 

Для выполнения команд из машинного кода в ТВ-0ОО$ существуют специальные 
возможности. Основная из них - использование подпрограммы ТВА-0О$ с точкой входа 
15635 (#3013). С этого адреса в конечном счете осуществляется переход к подпрограмме 
10300 (#283С), которая в зависимости от кода, содержащегося в регистре С процессора 
передает управление соответствующей процедуре системы ТВА-0О$. Практически фрагмент 
выполнения команды ТВ-0О0$ из машинного кода может выглядеть следующим образом: 


О 6 = 
САН: #3013 


Кроме регистра С может потребоваться предварительная установка других регистров 
процессора. 

Рассмотрим кратко основные процедуры, выполняемые в зависимости от 
содержимого регистра С. 


С=0. Восстановление, сброс контроллера, при котором головка отводится на нулевую 
дорожку и ожидается появление сигнала ИМТВО. Выход из режима ожидания может быть 
произведен при нажатии клавиши ВВЕАК на клавиатуре. 


С=1. Инициализация дисковода. Предварительно в регистре А должен быть задан 
номер накопителя 0...3. Здесь надо сказать, что если ТВ-ОО$ стартует при открытом 
кармане дисковода или без дискеты, то по адресам 23802...23805 заносятся числа 255. Это 
означает, что дисководы не инициализированы. В результате работы этой процедуры 
устанавливается время перемещения головки дисковода - заносится число 8 по одному из 
адресов 23802...23805 в зависимости от номера дисковода. Далее определяется 
количество дорожек дисковода и результат заносится по одному из адресов 23752...23755 в 


соответствии с номером накопителя (первоначальное значение также 255). Если дисковод 
имеет 40 дорожек, то записывается 0, если 80 дорожек, то 128 (устанавливается 7-и бит). 
Далее задается номер дисковода для временной операции (берется из регистра А) и это 
значение заносятся по адресу 23798. По адресу 23830 помещается копия системного 
регистра. 

Если время перемещения головки (ячейки 23802...23805) уже установлено, то 
операции по инициализации дисковода не производятся. 


С=2. Позиционирование. Предварительно в регистр А помещается номер дорожки, на 
которую должна быть установлена головка. При двустороннем дисководе первому 
физическому треку соответствуют номера 0 и 1, второму - ?иЗит. д. 


С=3. Эта процедура помещает содержимое регистра А по адресу 23807, задавая, 
таким способом номер сектора. 


С=4. Процедура помещает содержимое регистра НЁ по адресу 23808 (2 байта), 
задавая таким способом адрес буфера. 


С=5. Очень важная подпрограмма. Она позволяет читать блок секторов. Для этого 
необходимо подготовить начальные параметры в регистрах процессора. В регистр В 
помещается количество читаемых подряд секторов. В том случае, если В=0, то с диска 
считывается только область заголовка, считывание сектора в память не производится. В 
регистровую пару ОЕ помещается начало считываемого блока секторов: в О - дорожка, авЕ 
- сектор. В регистре НЕ должен быть задан адрес начала буфера в памяти Спектрума, куда 
будет производиться загрузка блока секторов. 


С=6. Процедура записи на диск блока секторов. Все параметры аналогичны тем, 
которые были в предыдущей процедуре. 


С=7. Вывод каталога диска (аналогично команде САТ ТВ-0О5$). В регистре А должен 
быть задан канал для вывода каталога. Для вывода на дисплей, например, в регистре А 
должно быть 2 (кстати, при этом будет очищен экран). Для вывода на принтер - 3. Следует 
также сказать, что перед выполнением этой подпрограммы можно задать номер накопителя 
для временной операции, поместив его по адресу 23798. Эта процедура предварительно 
выполняет процедуру при С=22 - загрузку системного регистра (см. ниже). 


С=8. Чтение заголовка файла. В регистре А должен быть номер интересующего файла 
(сОпо 127). Из каталога диска 16 байт заголовка файла будут помещены в память, начиная с 
адреса 23773. Это может быть и удаленный файл, так как не проверяется, есть ли такой 
файл в действительности. 


С=9. Запись в каталог заголовка файла. 16 байт из памяти, начиная с адреса 23773, 
переписываются в каталог диска на место заголовка файла, номер которого задается в 
регистре А аналогично предыдущей процедуре. 


С=10. Процедура поиска файла. В каталоге диска ищется файл, который по имени и 
типу совпадает с тем, что задано в памяти, начиная с адреса 23773. Количество байт, на 
которые ведется поиск, задается по адресу 23814. Начальное значение - 9. В том случае, 
если файл найден, то его номер будет находиться в регистре С, а также в ячейке 23838. Если 
файл не найден, то в регистре С будет 128 (7-й бит установлен в 1), содержимое 23838 не 
изменяется, а в ячейке 23823 будет 255. 


С=11. Запись кодового файла. При этом с адреса 23773 задается имя и тип файла, в 
регистре НЕ - адрес начала файла в памяти, в регистре ПЕ - длина файла. Эта процедура 


выполняет действия аналогичные команде ТВ-О0О5: 
ЗАМЕ “пате” СООЕ Зфагф, [епоеп. 


С=12. Запись Бейсик-программы. С адреса 23773 должны быть заданы имя и тип 
файла. В том случае, если тип файла отличается от "В", то файл записывается под именем 
"рост" <В>. 


С=14. Загрузка или верификация файла. Имя и тип файла должны быть помещены по 
адресу 23773. Здесь есть несколько вариантов, в зависимости от значения регистра А. При 
А=О адрес загрузки и длина файла берутся из каталога. При А=З загрузка происходит с 
адреса, который задается в регистре НЕ, причем длина загрузки определяется значением 
регистра ОЕ. При А=255 адрес загрузки берется из НЕ, а длина загружаемого файла - из 
каталога диска. Значение по адресу 23801 определяет команду: 0 - ГОА, 255 - МЕНРУ. 


С=18. Удаление файла. Имя и тип файла должны быть заданы с адреса 23773. При 
этом удаляются все файлы с такими данными. Как уже говорилось выше, если файл не 
последний, первый символ имени файла заменяется кодом 01. 


С=19. Эта процедура перебрасывает 16 байт информации с адреса, указанного в НЁ в 
адрес 23773. 


С=20. Процедура, обратная предыдущей. 16 байт перебрасываются с адреса 23773 в 
адрес, указанный в НИ. 


С=22. Процедура загружает системный регистр интерфейса. Код - в аккумулятор 
(регистре А), при загрузке к содержимому аккумулятора добавляется #3С. 


Для других значений С в различных источниках приводятся противоречивые или 
весьма смутные сведения, поэтому на них не будем останавливаться. Для любителей 
покопаться в ПЗУ ТА-0О$ привожу входные адреса процедур, соответствующие различным 
значениям регистра С. 


С=0 #3098 С=13 #0103 
С=1 #30СВ С=14 #290Е 
С=2 #ЗЕбЗ С=15 #0103 
С=З #3702 С=16 #0103 
С=4 #3706 С=17 #0103 
С=5 #1ЕЗО С=18 #2926 
С=б #1ЕАО С=19 #28ЕО 
С=7 #2808 С=20 #28ЕЗ 
С=8 #165С С=21 #2739 
С=9 #1664 С=22 #1ЕЕВ 
С=10 #1СРО С=23 #1РЕб 
С=11 #28ЕВ С=24 #0405 
С=12 #28Е2 


Для выполнения команд ТВ-0О$ из машинного кода существует еще один способ. Он 
позволяет обращаться сразу же непосредственно в теневое ПЗУ ТВ-0О$, в любую его точку. 
Вы спросите, как же это практически сделать, ведь обратившись, например, по одному из 
тех адресов, которые приведены выше, мы попадем всего лишь в основное ПЗУ Спектрума. 
Для этого в системе ТВ-0О$ имеется специальная точка входа с адресом 15663 (#3022). 
Там находится всего лишь одна команда МОР, после чего сразу же идет ВЕТ. Дело в том, что 
при обращении по адресу 15663 селектор адреса БЕТА-ДИСК интерфейса подключает 


теневое ПЗУ, а выполнение команды ВРЕТ приведет к переходу программы на адрес, 
записанный на стеке. Поэтому если перед обращением к 15663 на стек поместить нужный 
адрес, то можно осуществить переход на этот заданный адрес теневого ПЗУ командой: УР 
15663. 

В качестве практического примера использования машинного кода для выполнения 
команд ТВ-0О$ приведу простую программу "ГВ", которая позволяет выводить на экран 
параметры файлов (имя, тип, адрес загрузки, длина ит. п.), содержащиеся в каталоге диска. 
Кроме теоретического, эта программа представляет определенный практический интерес, 
так как выводит кроме обычной информации еще и данные о начале файлов на диске 
(команда ИЗТ ТВ-0О$ эту информацию не выводит). 


Программа "ОВ". 
Машиннокодовая часть программы выглядит следующим образом (адрес 
размещения - произвольный): 


21 00 АВ ГО НЕ, #АВОО Сы 
11 00 00 ГО ОЕ, #0000 (2) 
06 08 ГО В, #08 (3) 
ОЕ 05 ЕО С, #05 (4) 
СО 13 30 САЕЕ #3013 (5) 
С9 ВЕТ (6) 


В регистре НЕ задается (1) адрес буфера, куда будет производиться чтение каталога 
диска (#АВО0=43776). В регистрах О и Е задаются начальные дорожка и сектор (2): чтение 
будет начинаться с 0 сектора 0 дорожки. Число считываемых подряд секторов задается (3) 
равным 8, столько занимает каталог диска. Затем задается (4) параметр, определяющий 
процедуру: С=5, то есть чтение блока секторов и далее (5) выполнение подпрограммы ТВ- 
005. После чего (6) - возврат в вызывающую программу. 

После того, как содержимое нулевой дорожки считано в буфер, его можно 
рассмотреть более подробно. Этим уже займется Бейсик. Программа выглядит следующим 
образом: 


2 ВОНОЕВ 1: РАРЕН 7: ТМК 1: СЕЕАН 39999 

3 ВЕЗТОВЕ : РОН а=40000 ТО 40013: ВЕАБ 6: РОКЕ а, Б: МЕХТ а: БАТА 33, 0, 171, 17,0, 0,6, 8, 14,5, 
205, 19, 61, 201 

4 60 ТО 100 

5 ВАМООМТУЕ Ц5Н 15619: ВЕМ : 5А\МЕ “ОТВ” 

6 5ГОР 

20 РАТМТ АТ 0, 0; РАРЕВ 6; ТМК 2; "Мате ”; РАРЕН 2; ТМК 7; "Туре" ; РАРЕА 3; ТМК 0; “ бат 
[епофи ” ; РАРЕВ 4; "Ведзпп" ‚ РАРЕВ 5;” еп” 

22 РВТМТ ВАТСНТ 1: ТАМ ЕВСЕ Ц АЗСТТ "; ТМУЕВЗЕ 0; “”Вутез "; ТМ\УЕНЭЕ 1; "Тгк”; ТМУЕАЗЕ 
0; “ Зестог” 

24 ВЕТУВМ 


30 РОВ а=а ТО а+7: ТЕТ п$=п$-+СНА$ РЕЕК а: МЕХТ а: ВЕМ паме 
31 ТЕТ 1$ = СНА$ РЕЕК а: ВЕМ туре 

32 (ЕТ а=а+1: ТЕТ $1=РЕЕК а+256*«РЕЕК (а+1): НЕМ зфаге 

33 ТЕТ а=а+2: [ЕТ 1еп=РЕЕК а+256*РЕЕК (а+1): НЕМ 1епоти 

34 [ЕТ а=а+2: [ЕТ 9=РЕЕК а: ВЕМ 1епофй 5ЕС 

35 ТЕТ а=а+1: ЕЕТ зес=РЕЕК а: НЕМ беплп 5ЕС 

36 [ЕТ а=а+1: [ЕТ 1г=РЕЕК а: АЕМ Бед1п ТАК 

37 ТЕТ а=а+1: НЕТИУВМ 

100 ВАМООМТУЕ 158 40000 


300 60 5ЦВ 20: (ЕТ ]=2: ВЕЕР .01, +10 

1000 ТЕТ п$="": 60 50В 30 

1010 РАТМТ АТ 1,]; РАРЕВ 6; ТМК 2; п$; РАРЕВ 2; Т№К 7; 1$; 

1020 РАТМТ РАРЕВ 3; ТМК 0; ТАВ 10; 31; ТАВ 16; 1еп; ТАВ 22; РАРЕН 4; ТМК 0; ТАВ 
(22+(1г<100)); 1г; ТАВ 26; зес; ТАВ 28; РАРЕВ 5; ТМК 0; ТАВ 29; а; ТАВ 32; 

1030 ТЕТ ]=)+1: ВЕЕР а +10: ТЕ +>=22 ТНЕМ РАУЗЕ 0: СЕ$ : 60 ТО 300 

1040 ТЕ а<43776+256»*8 ТНЕМ 60 ТО 1000 

2000 РЕТМТ. #0; ТМУЕВЗЕ.1; “ОТАТО.К.”: ВЕЕР. .1;26: ВЕЕР ;.1,20: РАДЕ 0: (1$ : 060 ТО 200 


После набора программы сделайте ВУМ 5 - это запись программы на диск. Нет 
необходимости записывать программу на диск с автостартом. Любой загрузчик ("Боо{") 
запускает программу с начальной строки. При этом строка 2 формирует в памяти 
необходимый кодовый блок, после чего происходит чтение восьми секторов нулевой 
дорожки (строка 100). Считанная информация размещается с адреса 43776 (#АВО0). СО 
ЗОВ 20 в строке 300 - это распечатка "шапки". Переменная |] - это номер строки экрана для 
вывода последующей информации. 

Со строки 1000 расположена программа распечатки одного экрана информации. 
Подпрограмма СО $УВ 30 производит расчет параметров для каждого заголовка файла. 
Первые 8 байт - имя программы (п$, строка 30). Затем тип (1$, строка 31). Следующие 2 
байта определяют параметр $ЗТАЛНТ ($1, строка 32). Затем 2 байта - длина файла (еп, строка 
33). Потом идет 1 байт - длина файла в секторах (а, строка 34). Следующая пара байт начало 
файла на диске - сектор и дорожка (соответственно $ес и {г в строках 35 и 36). 

Строки 1010 и 1020 - это распечатка полученных данный по одному заголовку - 16 
байтам нулевой дорожки. Строка 1030 - завершающие операции по распечатке заголовка и 
проверка на достижение конца экрана. Если он достигнут, то очистка экрана и распечатка 
следующего (со строки 300). 

Строка 1040 проверяет, не достигнут ли конец каталога (8 секторов по 256 байт). Если 
нет, то переход к расчету и печати информации о следующем файле (со строки 1000). Иначе 
- завершение работы переходом на строку 2000, где программа зацикливается, 
возобновляя вывод информации с первого заголовка файла. 

Теперь предположим, что Вы запустили эту программу, вставив в дисковод какую- 
нибудь дискету. После того, как на экран будет выведена информация о всех существующих 
файлах (при этом удаленные файлы будут начинаться со знака "?"), если на дискете больше 
нет файлов, то вся последующая часть каталога будет состоять из нулей. Чтобы не 
"прокручивать" вхолостую весь каталог, можно добавить в программу такую строку: 


1035 ТЕ РЕЕК а=0 ТНЕМ 60 ТО 2000 


Так как начало свободного места на диске обозначается нулевым первым кодом 
имени файла, то как только встретится такой код, вывод будет завершен переходом на 2000 
строку. 

Как еще можно усовершенствовать программу? Ну, например, можно в конце 
добавить вывод информации по диску, его имя, число файлов, наличие свободного места и 
т.д., в общем, все то, что можно "выудить" из восьмого системного сектора. Для этого надо 
чтобы с нулевой дорожки было считано не 8 секторов, а 9. Для этого в строке 3 после ВАТА 
число 8 должно быть заменено на 9. Теперь заодно с каталогом в память будет считан и 
системный сектор. Попробуйте сами сделать такое усовершенствование, если хотите, 
расположив эту часть программы, начиная со строки 2000. Вся необходимая информация по 
расшифровке системного сектора приведена выше. 

Для того, чтобы просмотреть новый диск, можно нажать ВВЕАК, затем сделать ВУМ. 
Используя блок кодов “ОМ ЕВВОВ СО ТО" (см. 2Х-РЕВЮ М 5-6 за 1992 год, стр.113), Вы 
можете еще более усовершенствовать программу: она будет перезапускаться с начальной 
строки при нажатии ВВЕАК для того, чтобы можно было просмотреть новый диск. 


ПРИЕМЫ ЗАЩИТЫ ОТ КОПИРОВАНИЯ. 


До сих пор мы вели разговор о том, как все должно работать, как говорится, “по 
букварю". Теперь подойдем более критически к некоторым вопросам. Например, длина 
файла. В 16 байтах заголовка длина файла фигурирует дважды. Действительно, длина 
файла это два байта: 11-йи 12-й. Кроме того, это 13-й байт - длина файла в секторах. Зачем 
он нужен? Ведь он же легко рассчитывается из известных 11 и 12 байтов. ТВ-0О$ устроена 
так, что точная длина файла (11-12 байты) необходима для процедуры загрузки файла в 
память, а вот при операциях перезаписи файла ТВ-0О$ оперирует именно с 13 байтом, 


резервируя на диске столько места, сколько обозначено в 13 байте. Поэтому если 
искусственно, “вручную“, например, при помощи программы типа “ОЗК-ОБОСТОА", 
изменить значение этого байта, задав нулевое значение, то файл будет загружаться и 
стартовать нормально (11 и 12 байты не изменены), но при перезаписи файла на другую 
дискету будет переписано ноль секторов, то есть фактически перезаписи не произойдет. 

На этом принципе работают некоторые самые простые программы по защите файлов 
от копирования, например программа "СТОЗЕ". Эта программа обнуляет 13-й байт 
заголовка у файлов, имеющих расширение “В”, задавая, таким образом, нулевую длину 
файла в секторах. Кроме того, эта программа искажает системную информацию по диску, 
изменяя значения параметров системного сектора. Искажению подвергаются: начало и 
количество свободного места на диске, тип диска (вместо двустороннего задается 
односторонний), количество файлов. Кроме того, в имя первого файла вводятся 
непечатаемые управляющие коды. Однако при этом не нарушается нормальный старт 
программ с диска. Такие диски удается скопировать только целиком при помощи 
специальных копировщиков типа “диск в диск", когда копируется без изменения 
содержимое всех 80 дорожек диска. Кстати, изложенные в этой статье сведения позволяют 
Вам самостоятельно разработать такой копировщик даже на Бейсике, с выполнением 
одного фрагмента в машинных кодах, аналогично программе "ОА". Пофайловое 
копирование всего диска при помощи команды ТА-О0ОО$: СОРУ В, а также копирование при 
помощи программ-оболочек типа "МОА-ЗЕВ\ЛСЕ" в этом случае не помогает. 

Этот способ защиты широко распространен на рынке программного обеспечения, но 
пользуются им не разработчики оригинальных программ, а скорее "работники торговли". Их 
дискеты недостаточно хорошо скомпонованы, чтобы копировать их целиком. Обычно на 
дискете бывает несколько хороших программ, остальное - мусор для заполнения дискеты. 
Впрочем, это уже отклонение от темы. Так или иначе, Вы должны быть свободны в вопросах 
компоновки своих дискет, поэтому я поделюсь с Вами программой, созданной мной в 
противовес “СТОЗЕ". Она называется “ОРЕМ". На самом деле проблема достаточно 
примитивна. Испорченную длину файла в секторах легко можно восстановить, вычислив 
разность между началом этого файла (байты 14 и 15 заголовка) и началом следующего 
файла. Заодно программа "ОРЕМ" также рассчитывает объем и начало свободного места на 
диске и восстанавливает всю остальную системную информацию по диску. 


Программа "ОРЕМ". 
2 ВОВОЕВ 7: РАРЕН 7: ТМК 0: СТЕАВ 39999 
3 ВЕЗТОВЕ : РОН а=40000 ТО 40012: ВЕАО 6: РОКЕ а,6: МЕХТ а:БАТА 33, 0, 171, 17,0, 0, 1,5, 9, 
205, 19, 61, 201 
4 60 ТО 100 
5 ВАМООМТИЕ ЦУ$Н 15619: ВЕМ : 5АУЕ “ОРЕМ” 


100 (1$ : РВТАМТ #0; “ТМЗЕАТ ОТ$К АМО РВЕЗЗ АМУ КЕУ": РАЦЗЕ 0 

110 ТМРИТ ТМКЕУ$: РАТМТ #0; ТАВ 8; РЕЕАЗН 1;” РЕЕАЗЕ МАТТ " 

200 НАМБОМТУЕ 058 40000 

210 [ЕТ а=43776: ЕТ п=0: ТЕТ 49е1=0: ЕЕТ Ргее=2544 

220 60 508 1000 

230 ГЕТ а=43776+128*16 

240 60 50В 2000 

300 ТМРИТ ТМКЕУ$: РВТМТ #0: "“ОМЕАМВТТЕ ТВАСК <0> (У/М) ? ": РАУЗЕ 0: ТМРУТ Т№МКЕУ$ 
310 ТЕ ТМКЕУ$="у” ОВ ТМКЕУ$="У” ТНЕМ РОКЕ 40007,6: ВАМООМТУЕ 158 40000 

320 ТОР 


1010 ТЕ РЕЕК а=0 ТНЕМ ВЕТОВМ 


1030 ТЕ РЕЕК а=1 ТНЕМ 1ЕТ 4е1=49е1+1: @0 ТО 1050 

1040 ТЕ РЕЕК а<32 ОВ РЕЕК а>127 ТНЕМ РОКЕ а, 63 

1050 1ЕТ 6ед1=РЕЕК (а+14)+16*РЕЕК (а+15) 

1060 1ЕТ 6е92=РЕЕК (а+14+16)+16*РЕЕК (а+15+16) 

1070 ТЕТ 1еп$=6ед2-6е91 

1080 ТЕ РЕЕК (а+16)=0 ТНЕМ ГЕТ Тепз=РЕЕК (а+12)+(РЕЕК (а+11)<>0) 
ОКЕ (а+13), 1еп$ 


г 
(<>) 
(<=) 
(<) 

|5) 


1100 ГЕТ Ггее=Тгее-1епз 

1110 ТЕТ а=а+16 

1120 @0 ТО 1000 

2000 ВЕМ 01$К-дата 

2010 1ЕТ зрасе=бед1+1епт$ 

2020 ЕЕТ $рЕ=ТМТ ($расе/16): 1ЕТ $зр$=зрасе-$рЕ*16 
2030 РОКЕ (а+225), зрз: РОКЕ (а+226), ре 

2040 РОКЕ (а+227), 22 

2050 РОКЕ (а+228), п 

2060 ГЕТ Ег2=ТМТ (Ргее/256): 1ЕТ Тг1=Ргее-Рг2*256 
2070 РОКЕ (а+229), Рг1: РОКЕ (а+230), Рг2 

2080 РОКЕ (а+244), д9е1 

2090 ВЕТУНМ 


По своей структуре программа похожа на "ГМА". После старта с начальной строки, 
программа формирует кодовый блок для чтения девяти секторов нулевой дорожки, затем 
останавливается (строка 100) для того, чтобы можно было вставить в дисковод 
засекреченный диск. После нажатия клавиши происходит чтение нулевой дорожки, затем 
начинаются расчеты. Задаются начальный адрес каталога (а), число файлов (п) и число 
удаленных файлов (46!) принимают для начала нулевые значения, а число свободных 
секторов на диске (Нее) - максимальное значение для двусторонней дискеты 80 дорожек - 
2544 сектора. 

Подпрограмма со строки, 1000 приводит в порядок каталог диска. Строка 1010 
проверяет, не достигнуто ли свободное место на диске и если да, то выход из 
подпрограммы. Если нет, то число файлов увеличивается на единицу (строка 1020), затем 
проверяется, не удаленный ли это файл (строка 1030). Если да, то счетчик удаленных 
файлов увеличивается на единицу строка 1040 исправляет значения тех кодов в названии 
файла, которые могли быть искусственно изменены для невозможности произвести 
распечатку каталога командами ТВ-0О5: САТ или М$Т. Управляющие коды либо токены 
ключевых слов, подставленные в имя файла заменяются символом АЗСИ с кодом 63 - это 
знак вопроса. 

Далее рассчитывается длина файла в секторах (!еп$). Для этого определяется начало 
текущего файла (Бед1), затем начало следующего файла (5ед2). Эти значения 
рассчитываются непосредственно в секторах от начала диска. Их разность (строка 1070) 
определяет длину текущего файла. Однако в том случае, если текущий файл является 
последним на диске (строка 1080), то значение Бед2 даст нулевое значение. Поэтому длину 
файла в секторах в этом случае можно рассчитать непосредственно по его длине в байтах. 
После занесения рассчитанного значения в память (строка 1090), рассчитывается 
оставшееся свободное место на диске (строка 1100), затем - переход к следующему 
заголовку путем возврата на строку 1000. 

После того, как выполнена подпрограмма восстановления каталога (в строке 220), 
значение адреса устанавливается на начало системного сектора (строка 230). 
Подпрограмма со строки 2000 восстанавливает системную информацию диска. Начало 
свободного места на диске в секторах (зрасе) определяется как начало последнего файла 
плюс его длина (строка 2010). Далее это значение преобразуется (строка 2020) в номер 
дорожки ($ру1) и сектора ($р$) и заносится в память (строка 2030). 

Строка 2040 устанавливает тип диска: двусторонний, 80 дорожек. Далее в память 
заносится общее число файлов (строка 2050), рассчитываются старший и младший байты 
числа свободных секторов (строка 2060) и полученные значения заносятся в память (строка 
2070). Заносится в память и число удаленных файлов (строка 2080). Далее - возврат из 
подпрограммы на строку 300. Здесь выводится предупредительная табличка и, в случае 
подтверждения (клавиша "\"), происходит перезапись нулевой дорожки диска (строка 310). 
Здесь значение регистра С в ячейке 40007 вместо чтения (С=5) заменяется на запись (С=6б). 
После этого программа останавливается. Можете запускать дискету обычным порядком и 
копировать файлы с нее на другие дискеты. 


РОВУМ 


Русификация резидентной процедурой 

Тема русификации это, пожалуй, вечная тема для “Спектрума". Пока что не 
существует способ (и будет ли когда-нибудь существовать), который бы был достаточно 
универсален и хорош для всех. Многие программисты ломают голову над решением этой 
проблемы. В этот раз интересное письмо пришло к нам от Александра Еременко из 
Свердловска. Он прислал программу в машинных кодах, позволяющую переключать 
символьный набор одновременным нажатием двух клавиш (ЗУМВОЕ ЗНЕТ)+(ЕМТЕВ). При 
первом нажатии включается загруженный в ОЗУ символьный набор, а при повторном 
нажатии - опять символьный набор из ПЗУ. Самое главное, что такое переключение можно 
сделать в любой момент как пишет Александр, неважно, где Вы работаете, в режиме 
редактирования Бейсик-строк или в программе, все равно можно производить 
переключение шрифта. 

Нам понравилась идея уважаемого корреспондента и мы даем ее всем читателям, 
снабдив собственными комментариями и постаравшись немного ее развить. 

Вот эта программа: 


С07С  ЗЕСВ ЕО А, #СВ 
СО7Е 212060 ЕО НЕ, #0020 
081 3600 ЕО (НЕ), #С0 
083 2В ОЕ НЕ 

084 ВС СР Н 

(085 20РА ЧА №7, #081 
(087  ЗЕСС ЕО А, #СС 
(089 ЕП47 ЕО Т.А 

С08В РЕЗ от 

С08С  ЕБЗЕ ТМ 2 

С08Е ЕВ ЕТ 

СО8Е 59 ВЕТ 

(090 (5 РОЗН ВС 

(091 15 РУЗН БЕ 

6092: - 25 РУЗН НЕ 

(093 Е РУЗН АЕ 

(094  ЗЕ?ТЕ ЕО А, #7Е 
(096  ОВЕЕ Т А, (НЕЕ) 
098 ГЕРБ СР #Р0 

СО9А 202А ЧА №7, #0006 
С09С  ЗЕВЕ ЕО А, #ВЕ 
С09Е  ОВЕЕ Т А, (НЕЕ) 
СВАО РГЕЕЕ СР НЕЕ 

СОА? 2022 УВ №7, #0006 
СОА4  ЗА1ОСО ЕО А, (#С010) 
СОА7Т 3С МС А 

СВА8 321000 ЕО (#С010), А 
СОАВ  СВ47 ВТ О,А 

СРАБ 2805 УВ 2, #0084 
СВАЕ о 010030 ЕО ВС, #3000 
(082 1803 ЧА #СОВУ 
084 010066 ЕО ВС, #000 
СОВ7 213650 ЕО НЕ, #5036 
СОВА 71 ЕО (НЕ), С 
СОВВ 23 С НЕ 

СОвС 70 ЕО ИВ 
СОВЬ 219701 ЕО НЕ, #0197 
00 116400 ЕО ОЕ, #0064 
С0С3  С08503 САЕЕ #0385 
066 21 РОР АР 

(067 Е1 РОРо НН 


С068 101 РОР ПЕ 


6069 С1 РОР ВС 

СОСА 633800 УР #0038 

060 6390 УР #0090 

000 ...... символьный набор 


Как видим, принцип действия этой программы основан на использовании прерываний 
второго рода 1М 2. Подробнее о прерываниях Вы можете прочитать в нашей книге, 
посвященной программированию в машинных кодах. Там мы рассказывали, что на 
использовании прерывания первого рода основан основной режим работы "Спектрума". В 
этом режиме (если он разрешен командой Е!) всегда в ответ на прерывание, поступающее 
по шине ПМТ (а это происходит 50 раз в секунду), выполняется обращение по адресу 0038 Н. 
Процедура, расположенная с этого адреса, обеспечивает сканирование клавиатуры в 
поисках нажатой клавиши. 

Теперь о прерывании второго рода. В компьютерах иных систем, собранных на базе 
процессора 7-80, для программиста существует возможность самому задать адрес, по 
которому будет происходить обработка этого прерывания. Он определяется следующим 
образом. Старший байт поступает из регистра | процессора (он так и называется "вектор 
прерываний"), а младший байт должно выдавать периферийное устройство, от которого 
получено прерывание. В паре ячеек, адрес которых определен таким образом, хранится 
адрес процедуры, обслуживающей прерывание. Программ, обслуживающих такое 
прерывание может быть 128, так как старший байт определен регистром |, а младший байт - 
это 256 ячеек, в которых можно записать 128 двухбайтных адресов. В "Спектруме" режим 
прерываний второго рода не используется для взаимодействия с периферийными 
устройствами, поэтому появляется возможность использовать этот режим в своих целях. 


Теперь конкретно 6) предложенной программе. Вначале выполняется 
инициализирующая процедура. Она запускается с адреса загрузки, то есть СО7СН (52604). 
При этом происходит следующее. Область, начиная с ССООН, и кончая адресом СО20Н 
заполняется кодом СО. Затем в регистре | процессора задается старший байт адреса 
ячейки памяти, в которой хранится адрес обслуживающей процедуры СС. Далее происходит 
включение режима прерываний второго рода и выполняется возврат в вызывающую 
программу. 

Что же происходит при получении сигнала на прерывание, (который, как мы помним, 
приходит 50 раз в секунду) Несмотря на то что неопределен младший байт ячейки с адресом 
обслуживающей программы, обратившись по любому адресу со старшим байтом СС (то 
есть начиная ССООН и кончая ССЕЕН), получим один и тот же адрес обслуживавшей 
программы СОСОН, так как вся эта область заполнена кодом СБ. 

По адресу СОСВН (см. листинг программы) видим безусловный переход на адрес 
СО9ОН. Это и есть начало программы, обслуживающей полученное прерывание. Перед 
началом выполнения каких либо действий, на стеке запоминается содержимое всех 
регистров процессора, которые могут быть изменены при работе обслуживающей 
процедуры. Затем выполняется сканирование двух полурядов клавиатуры (о том, как 
производится опрос клавиш, Вы также можете прочитать в нашей книге, посвященной 
программированию в машинных кодах). Вначале проверяется нажатие клавиши ЗУМВОЕЁ 
ЭНЕТ и, если она не нажата, то сразу переход на завершение процедуры обработки 
прерывания. Если ЭУМВОЕ ЗНИЕТ нажата, то проверяется факт нажатия ЕМТЕРН. Если нет, то 
также переход на завершение процедуры, а если и эта клавиша нажата, то происходит 
дальнейшая работа. 

Проверяется содержимое ячейки, определяющей включение одного или другого 
символьного набора это ячейка СО1ОН. От значения младшего бита этой ячейки (четное 
число или нечетное) зависит выбор одного из двух символьных наборов, при этом 
происходит увеличение на единицу содержимого этой ячейки (то есть подготовка к 
включению в следующий раз противоположного символьного набора). Соответствующее 
значение системной переменной СНАВ$ пересылается при помощи регистра ВС, в область 
системных переменных, в ячейку 5СЗ6Н. Далее происходит вызов подпрограммы ВЕЕРЕН из 


ПЗУ (параметры: тон и длительность звукового сигнала задаются в регистрах НЕЁ и ПЕ). 
Звуковой сигнал свидетельствует о произошедшем переключении символьного набора. 

Далее выполняется финишная процедура: восстановление со стека прежних значений 
регистров процессора и безусловный, переход на адрес О03З8Н. Как это должно быть в 
случае обработки прерываний первого рода, с этого места работа компьютера совпадает с 
традиционной. 


При реализации этого метода следует помнить, что символьный набор располагается 
сразу же за самой программой, с адреса СОООН (52688). При этом системная переменная 
СНАНВ$ равна ССООН. Но Вы можете расположить символьной набор там, где это Вам 
удобно, изменив значение СНАА$ в ячейках СОВБН и СОВбН. Кроме того, оба 
переключаемых символьных набора могут находиться в ОЗУ, и Вы можете поочередно 
переводить на любой из них. Для этого значение системной переменной сВаг$ для второго 
символьного набора должно быть задано в ячейках СОВОН и СОВЛН. Следует также 
помнить, что для работы программы необходима область кодов с адреса ССООН (52224), то 
есть перед стартом инициализирующей процедуры (РАМРОМ!МЕ 95. 52604) надо 
зарезервировать это место, изменив РАМТОР командой СЕЕАВ 52223. 

Следует также учитывать тот факт, что раз уж мы работаем с прерываниями второго 
рода, призванными обслуживать периферийные устройства, то работа с последними, 
например с дисководом, после инициализации блока кодов будет невозможна. Для работы 
с периферией необходимо восстановить традиционный порядок работы. Об этом еще будет 
разговор ниже. 

Вообще нам очень понравилась идея, заложенная в этой программе и тот изящный 
способ, при помощи которого эта идея реализуется. Для того, чтобы поглубже 
"прочувствовать" действие этой программы, наберите простую демонстрационную 
программку на Бейсике: 

1 60 ТО 100 

2 СТЕАВ 52223: 10АБ “гиз”СОбЕ 52604: 10АБ “сбг” СО00Е 52688 
3 ВАМООМТУЕ У5Н 52604 

4 НИМ 


100 РАТМТ "Ргез$ <5.5.>+<ЕМТЕВ> Тог сопфго1”'`: РАЦЗЕ 0 
200 РОВ а=32 ТО 127; РАТМТ СНВ$ а;: РАУЗЕ 1: МЕХТ а: 60 ТО 200 


После набора запустите её с первой строки командой НУМ и внимательно 
понаблюдайте за реакцией компьютера. Хотя ничего неожиданного сейчас произойти не 
должно (компьютер не подпрыгнет, он по-прежнему останется на своем месте), но все-таки 
остановимся на происходящем подробнее. Сразу после старта на экране появится надпись: 
"нажмите <$.5.>+<ЕМТЕВН> для управления" и программа остановится на РАЧЗЕ 0, ожидая 
нажатия клавиши. Попробуйте нажать указанную комбинацию клавиш. Пауза прервется 
(ЗУМВОЕ ЗНЕТ здесь ни при чем, сработало нажатие ЕМТЕРА) и начнется распечатка 
символьного набора из ПЗУ. Когда заполнится весь экран, появится привычный запрос: 
"эсгой?". Попробуйте опять нажать ЗУМВОЕ ЗНЕТ + ЕМТЕВ. Вывод символов на экран будет 
продолжен. 


Теперь остановите программу нажатием ВРВЕАК и запустите ее со второй строки (с 
которой должен происходить автостарт) РУМ 2. При этом загрузите (заготовленные за 
ранее) исследуемый блок кодов "ги5" и любой имеющийся у Вас символьный набор "спи" 
(лучше "утолщенный" или стилизованный, так будет нагляднее). После загрузки произойдет 
инициализация программы в кодах, после чего Бейсик программа запустится с начала, как 
это делали Вы командой РУМ. Сравните реакцию компьютера. После появления надписи в 
верхней строке, нажмите ЭУМВОЕ ЗНЕТ + ЕМТЕРВ. Вы услышите короткий звуковой сигнал, 
свидетельствующий о нажатии на клавиши, но больше ничего на экране не изменилось: 
пауза не прервалась, как раньше. То есть, указанная комбинация клавиш теперь не влияет 
никаким образом на работу Бейсик-программы. Теперь она воспринимается именно как 
ЗУМВОЕ ЗНЕТ + ЕМТЕВ, а не как просто ЕМТЕНВ. Прервите паузу нажатием на любую 
клавишу, и Вы увидите, что на экран выводится новый символьный набор, то есть 


произошло переключение. Пока экран заполняется, можете попробовать несколько раз 
нажать ЭУМВОЕ ЗНЕТ + ЕМТЕВ и убедиться в том, что происходит переключение 
символьных наборов. Когда экран будет заполнен и появится запрос “$сго!?", опять 
нажмите комбинацию клавиш. Кроме звукового сигнала, свидетельствующего о 
переключении символьных наборов, ничего не происходит. Для продолжения работы надо 
нажать, например, просто ЕМТЕВ. Можно, таким образом, сделать вывод: приведенный блок 
кодов не оказывает никакого вмешательства в работу интерпретатора Бейсика, он только 
исправно выполняет то, что ему предписано - переключает символьные наборы. 


Продолжаем наше исследование. Вызовите на редактирование 100 строку Бейсик- 
программы. Попробуем в кавычках напечатать текст, состоящий из символов разных 
символьных наборов. Для этого, находясь в середине текста, нажмите ЭУМВОЕ ЗНИЕТ + 
ЕМТЕВ. Звуковой сигнал - переключение произошло, но на экране ничего не меняется до 
того момента, пока Вы не нажмете какую-нибудь клавишу. А происходит следующее. Весь 
текст редактируемой строки перерисовывается заново, причем символами нового 
символьного набора, отсюда второй вывод: нельзя при помощи этого блока кодов решить 
задачу совмещения символов разный символьных наборов внутри одного оператора РЕМТ, 
действительно, чудес ведь не бывает. Кодовый блок только переключает символьный набор, 
а текст, подлежащий выводу на экран, никак не изменяется, то есть каким было кодовое 
выражение строки текста, таким оно и осталось, таким и выводится на экран, только в новом 
символьном наборе. То же относится и к оператору ИМРОТ. Нельзя при вводе текстовых 
выражений совместить русские и английские буквы. 

И еще один вывод. Переключение символьного набора таким способом происходит 
только "вручную", то есть, если по алгоритму выполнения программы должно произойти 
переключение символьного набора, то оно должно быть выполнено, как обычно, 
изменением СНАА$ при помощи РОКЕ. Так что же, новый изящный метод переключения 
шрифтов не вносит ничего нового по существу проблемы? Видимо, такое заключение 
преждевременно. Существуют ситуации, где изложенный способ сможет оказать 
действительно неоценимую пользу. Например, программа “МОЗАИКА", которая 
опубликована в этом выпуске 7Х-РЕВЮ на с. 1. Там переключение из текстового в 
графический режим происходит включением регистра САР$ 1ОСК, из-за чего существует 
ограниченное число псевдографических символов, только по числу малых букв латинского 
символьного набора - 26. Если переключать символьные наборы новым способом, то во 
сколько раз можно расширить графические возможности, а следовательно и 
привлекательность этой программы! Ведь все до одного 96 символов нового символьного 
набора можно отдать графическим образам, да и захватить еще часть первого символьного 
набора, как это сделано в "МОЗАИКЕ". 

Другой пример. Вы набираете программу, в которой заведомо будет только русский 
текст (какой-нибудь тест или обучающая программа). И естественно, хотите для придания 
программе большей привлекательности, использовать русские заглавные и строчные буквы, 
используя загружаемый только русский символьный набор. При этом, если Вы набиваете 
текст программы, используя стандартный символьный набор ПЗУ, то легко можете 
допустить ошибки при наборе русского текста в операторах РНМТ, так как набор ведется 
практически "вслепую". Если же Вы переключитесь на русский символьный набор, то сама 
Бейсик-программа, токены, имена переменных - все это станет "нечитаемым". Применение 
изложенного в этой статье приема позволит вам при наборе и отладке программы без труда 
переключаться с одного на другой символьные наборы в зависимости от того, что Вы в 
данный момент предпочитаете видеть. 


Мы уверены, что если начать развивать эту тему, то появятся новые оригинальные 
программы с использованием этого метода. Определенные проблемы для начинающих 
может вызвать тот факт, что блок кодов нельзя переместить в другое место памяти, но при 
желании можно это сделать. Мы попробовали поэкспериментировать и у нас получился 
несколько измененный и немного усовершенствованный вариант этой программы. Вот то, 


что у нас получилось. 


РВЕ4  ЗЕРВ ЕО А, #ЕВ 
РВЕб Е047 ЕО Т.А 

РВЕ8  ЕОбЗЕ ТМ 2 

РВРА 09 ВЕТ 

РВЕВ 00 МОР 

РВЕС 2056 ТМ 1 

РВЕЕ 09 ВЕТ 

РВЕЕ  О1ЕС БЕРВ  #ЕС01 
ЕС01 05 РОЗН ВС 

РС02 105 РОЗН ОЕ 

203 Е РОЗН НЕ 

РС04 РЁ РОЗН АЕ 

РС05  ЗЕТЕ ЕО А, #7Е 
РС07  ОВЕЕ Т А, (НЕЕ) 
209 ГЕРБ СР #Р0 

РСОВ 2020 ЧА М, #ЕСЗА 
ЕСО  ЗЕВЕ ЕО А, #ВЕ 
РСОЕ ОВЕЕ Т А, (НЕЕ) 
ЕСТ. -РЕРЕ СР НЕЕ 

РОТ" 2025 ЧА №, #ЕСЗА 
РС15 2132ЕС ЕО НЕ, #2032 
РС18  СВУЕ ВТ 7, (НЕ) 
РОСЛА 2807 УВ 2, #2023 
РСС  11003С ЕО ОЕ, #3000 
РСЛЕ  СВВЕ ВЕ. (НЫ) 
ЕС21 1805 ЧА #РС28 
ЕС23 1158РВ ЕО ОЕ, #858 
Ро26." `СВРЕ ЗЕ 7, (НЕ) 
РгС28 213650 ЕО НЕ, #5036 
ЕС2В 73 ЕО СНЕ, Е 
ЕС2С 23 с н 

РС20 72 ЕО (НЕ), 0 
ЕС2Е 210002 ЕО НЕ, #0200 
ЕС31 117-00 ЕО ОЕ, #0072 
РС34 (08503 САЕЕ #0385 
ЕС3З7 00 ОР 

РС38 00 ОР 

ЕС39 00 ОР 

РОЗА [1 РОР АЕ 

РСЗВ Е1 РОР о НЕ 

РСС 101 РОР ОЕ 

ЕС30 С1 РО” = ВС 

РСЗЕ (33800 УР #0036 


Прежде чем начать пояснения, рассмотрим подробно карту памяти, тех областей, 
которые имеют значение для работы программы. 


ВАМТОР 64499 


Программа в машинных 64500 
кодах (новый вариант) ЕВЕАН 
77 байт 
Свободное место; пля ра- 64577 
боты программы не исполь ЕСАТН 
зуется 23 байта 
Символьный набор 64600 
(любой по вкусу) ЕС5ЗН 
768 байт 
0рс-графика, стандартно 65368 
расположенная здесь ЕРЪЗН 
168 байт 


Р_ВАМТ 


Эта область памяти должна быть зарезервирована при старте Бейсик-программы, 
путем переустановки РАМТОР командой СЁЕАН 64499. Файл, содержащий блок кодов, 
начинается с адреса 64500 и включает в себя, в зависимости от конкретных задач, либо 
только программу в кодах (до адреса 64577), либо программу и символьный набор (заодно с 
23-мя неиспользуемыми байтами), либо еще и блок УОС-графики (то есть по адрес 65535 
включительно). Область памяти с адреса 64577 (23 байта) в работе программы не участвует, 
Вы можете использовать ее по своему усмотрению. 

Инициализация выполняется командой НВАМРОММЕ Ч$ВН 64500. С этого адреса 
(ЕВЕАН) начинается инициализируемая процедура. Кстати сказать, нет необходимости 
заполнять почти 300 байт кодом для задания адреса обслуживавшей процедуры. Дело в том, 
что при существующей архитектуре "Спектрума" младший байт всегда будет равен ЕГ. То 
есть, если в регистре | процессора задать, например ЕВ, то при прерывании второго рода 
переход произойдет всегда на программу, адрес которой хранится в ЕВЕГН. В этой паре 
ячеек (ЕВЕ - младший байт, в ЕСОО - старший байт) находится адрес процедуры, 
обслуживающей прерывание второго рода. Читаем этот адрес (см. листинг программы): 
ЕСОТ. 

Начало процедуры, расположенной по этому адресу точно такое же, как и в неполном 
варианте. Так же опрашивается нажатие интересующих клавишей, а дальше начинается 
отличие. Системной ячейкой, определяющей, какой символьный набор должен включиться, 
выбрана ячейка ЕСЗР2Н. Точнее, определяющим является 7 бит числа, находящегося там, 
(получается либо 7Е, либо ЕР). В этой ячейке содержится параметр, задающий время 
звукового сигнала для подпрограммы ВЕЕРЕНВ, вызываемой из ПЗУ. Таким образом, 
переключение на символьный набор из ОЗУ сопровождается длинным звуком, а обратное 
переключение на символьный набор из ОЗУ - коротким. 

После вызова подпрограммы ВЕЕРЕВ, зарезервировано 3 свободных ячейки памяти. 
Здесь, при необходимости, можно организовать вызов каких-то дополнительных сервисных 
процедур, если это потребуется в будущем (вызов какой-нибудь подпрограммы: САШЕ ... или 
переход - УР... - все это занимает 3 байта) далее - финишные операции и переход на адрес 
оозЗн. 

Кроме указанных отличий, новый вариант программы предусматривает возможность 
отключения режима прерываний второго рода, это необходимо делать прежде, чем, 
например, обращаться к дисководу. Иначе произойдет сбой, зависание или сброс 
компьютера. "Де-инициализация" или восстановление традиционного режима работы 
выполняется командой РАМОРОММЕ У$В 64508. С этого адреса (ЕВЕСН) расположена 
восстанавливавшая процедура. Здесь включается режим прерываний первого рода, 
восстанавливая исходный режим работы "Спектрума". 


В заключение хочется поблагодарить Александра Еременко за присланную 
программу. Надеемся, что она подтолкнет и других читателей к решению насущных проблем 
оригинальными, нетрадиционными методами. 


Расчет резонансных характеристик. 


Кроме оригинальной программы для переключения символьных наборов, в своем 
письме Александр Еременко из Свердловска делится с читателями также программой на 
Бейсике, которую можно использовать для расчета резонансных характеристик пассивных 
фильтров в диапазоне звуковых частот. Расчет производится для двух типов фильтров по 
схемам, приведенным на рисунках 1 и 2. Мы приводим эту программу с некоторыми 
непринципиальными изменениями. Кроме того, мы русифицировали ее по методике, 
приведенной в "7Х-РЕВЮ"-92г. № 1,2, стр. 31. 
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Вот программа для расчета резонансной частоты фильтра по рис. 1 (автостарт 

программы со строки 9000, где загружается русский символьный набор): 

1 ВОАБЕВ 0: ТМК 7: РАРЕВ 0: 01$ 

2 РОН Е=0 ТО 170 ЭТЕР 16: РИОТ 0,Е: ОВАМ 255,0: МЕХТ Е 

3 РОВ Е=0 ТО 21 $ТЕР 2: РАТМТ АТ Е+1,0; (20-Е)»*8: МЕХТ Е 

4 ЕОВ Е=54 ТО 220 ЭТЕР 32: РОТ Е, 0: БВАМ 0, 170: МЕХТ Е 

5 РАТМТ АТ 0,0; " 40 160 640 2560 10240” 

10 ТМРИТ “СЛ (ФАРАД) : ";С1: ТМРУТ "02 (ФАРАД): ”;С2: ТМРУТ "А1(0М): “АТ: ТМРУТ “А2 (0М): 
НО 
71 ТЕТ Р=1: ЁЕТ Х=16 
12 ЕЕТ Р=ЁР*1.0442738: ТЕТ Х=Х+1 
20 ТЕТ С1Н=1/(Е*С1»2*РТ) 
30 ТЕТ С2А=1/(Е*С2*2*РТ) 
40 ТЕТ В1С1=А1+С1В 
| 8В2С2=С2А*Н2/ (С28+8В2) 

60 ТЕТ У=Н2С2* (170/(В1С1+Н2С2)) 

70 ТЕ Х>255 ТНЕМ 60 ТО 10 

80 РОТ Х, У 

90 @0 ТО 12 

9000 СТЕАН 64599: [ОАБ "СНг” С00Е 64600 

9010 РОКЕ 23606,88: РОКЕ 23607, 251: НИМ 

После старта программы на экран будет выведена сетка с оцифровкой. По 

горизонтали - частота, по вертикали - затухание фильтра, Введите по очереди номиналы тех 
элементов, которые будете использовать в фильтре. После ввода всех номиналов 
программа выдаст Вам амплитудно-частотную характеристику фильтра. Можете оценить ее 
и попробовать изменить вводимые номиналы для получения требуемой резонансной 
частоты, добротности и затухания фильтра. При любых изменениях номиналов результаты 
расчета тут же будут выведены на экран в виде изменившейся характеристики фильтра. Вы 
имеете возможность сравнивать характеристики между собой, так как все они на одном 
экране перед Вами. Благодаря этой программе подбор элементов для фильтра с требуемой 
амплитудно-частотной характеристикой можно выполнить легко и быстро. Результат работы 
программы представлен на рис. 3. 
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Рис. 3 
Для фильтра, представленного на рисунке 2, надо изменить строку 10 программы для 
ввода большего числа входных параметров: 


10 ТМРУТ “С1 (ФАРАД): “;С1: ТМРУОТ "С2 (ФАРАД): ";С2: ТМРУТ "С3 (ФАРАД): ”;С3: ТМРУТ "А1 
(ОМ): ";В1: ТМРОТ "А2 (0М): ";Н2: ТМРОТ ”ВЗ (0М): "; АЗ: ТМРУТ "Н НАГРУЗКИ (0М): “; АМ 
Кроме того строки, начиная с 20 должны быть: 
20 [ЕТ А=А2*ВМ 
30 (ЕТ В=1/(Е*2*РТ*С3) 
40 1ЕТ С=В*А/(В+А) 
50 [ЕТ \1=С*(170/(В1+С)) 
60 1ЕТ \/2=ВМх (У1/(В2»НМ)) 
70 ЕТ 0=1/(Р*2*РТ»С2) 
80 ТЕТ Е=0+ВМ 
90 (ЕТ б=НЗ*Е/(В3+Е 
100 ТЕТ Н=1/(Р*2*РТ»С1) 
110 ЕТ \3=6*(170/(Н+а)) 
120 ТЕТ \4=ВМх (\3/(0+В№)) 
130 ТЕ \2>\4 ТНЕМ ЕТ У=\2: 60 ТО 150 
140 ТЕТ \=\/4 
150 ТЕ Х>255 ТНЕМ 60 ТО 10 
160 РОТ Хх, У 
170 @0 ТО 12 
Результат работы программы представлен на рис. 4. 
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Если Вас заинтересовали эти программы, то при практической реализации их, мы со 
своей стороны можем порекомендовать маленькое усовершенствование, которое, 
наверняка, сможет сделать каждый. Поскольку номиналы конденсаторов удобнее задавать в 
микрофарадах, а номиналы резисторов - в килоомах, то разумно будет этот пересчет 
поручить компьютеру. Организуйте для этого дополнительные строки. Кроме того, 
попробуйте объединить два варианта расчета в одну программу. Для этого можно 
посоветовать при загрузке готовой программы выводить экран-заставку, на котором будут 
изображены рисунки 1 и 2, а далее должен следовать запрос, для какой схемы будет 
производиться расчет. 


Нестандартная загрузка. 


Комиссаров Павел из пос. Видово Мурманской обл. пишет о том, что он занимается 
взломом программ, в которых используется нестандартная загрузка или есть что-то 
необычное. У него уже набралась небольшая коллекция таких загрузчиков. Павел прислал 
распечатку одного из них. Он загружает блоки кодов с изменением цвета бордюрных полос. 
Павел пишет, что он взял этот загрузчик из программы "ВААВАНАМ-З3" (ВУ В СШ ВЕАЯТ). Он 
начинается с адреса 65000 и используется точно так же, как и процедура "ГОАВ ВУТЕ$" из 
ПЗУ, расположенная по адресу 1366 (0556Н). Вот этот загрузчик: 


ГОЕЗ 14 м 0 

РОЕЯ 08 ЕХ АЕ, АЕ` 
ГОЕА 15 ОЕ О 

ГОЕВ РЗ ОТ 

ЕОЕС  3ЕО0О ЕО А, #00 
ГОЕЕ  ОЗЕЕ 09 (НЕЕ), А 
ГОРО 213705 [В НЕ, #0532 
ЕОРЗ Е5 РУЗН НЕ 

ЕОР4  ОВЕЕ Т А, (НЕЕ) 
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2, #ЕЕ0б 
#ЕЕ75 

С, НЕБЕВ 
А, #9С 
#ЕЕ75 
С, НЕБЕВ 
А, #06 
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С, НЕБЕЕ 
Н 


ЖРЕТ 
В, #09 
#ЕЕ79 

С, НЕБЕВ 
А, В 

#04 

С, НЕЕ?1 
#ЕЕ79 


ГЕВА 7С ЕО А,Н 
ГЕбВ АБ ХОВ Г 

ГЕбС 67 ЕО Н, А 
ГЕбО 7А ЕО А, 0 
ГЕбЕ В3З ОВ Е 

ГЕВЕ 20СА УВ №, #НРЕЗВ 
ГЕ 7С ЕО А, Н 
ГЕ72 ГЕОЛ СР #01 
ГЕ7Т4 09 ВЕ 

РЕГ . ООУУРЕ САЕЕ #РЕЕ’ТЭ 
ГЕТб 00 ВЕ МС 

ГЕ7Т9 3Е1б6 ЕО А, #16 
ГЕТВ 30 ОЕ А 

ГЕТС 2020 УВ №, НРЕТВ 
ГЕТЕ А? Аб А 

ГЕТЕ 04 МС В 

ГЕО (8 ВЕТ 2 

РЕВ ЗЕЕ ЕО А, Н7Е 
ГЕЗЗ  ОВЕЕ Т А, (НЕЕ) 
РЕЗ5.` ЛЕ ВНА 

ГЕЗб 00 МОР 

ГЕЗ7 АЭ хо С 

ГЕЗ8  ЕбЕО АМ #20 
ГЕЗА 28Е3 УВ РсНРЕТЕ 
ГЕЗС 79 ЕО А, С 
РЕЗ Е СРЕ 

ГЕЗЕ 4Е ЕО С, А 
РЕБЕ” 82 Аб А, О 
ГЕЗО АЭ хо С 

ГУ ° 2607 АМ #07 
ГЕЗЗ 2608 ОВ #08 
ГЕ9З5  ОЗЕЕ 09 (НЕЕ), А 
РЕЭК 197 СЕ 

РЕ98^ 509 ВЕ 


Перед вызовом загрузчика надо в регистре (Х задать адрес загрузки, а в регистре ПЕ - 
длину загружаемого блока кодов. Процедура вызова загрузчика, например для загрузки 
экрана-заставки может иметь следующий вид: 

00210040 [В ТХ, #4000 


110018 ЕВ ОЕ, #1800 
ЗЕЕЕ ЕО А, НЕЕ 

37 СЕ 

СОЕЗЕО САЕЕ  #РОЕЗ 

С9 ВЕТ 


При этом блок кодов, подлежащий загрузке, может быть записан на ленте обычным 
способом, надо лишь удалить заголовок, оставив только коды. 

Цвет полос бордюра во время загрузки будет периодически меняться, временами 
полосы вообще будут исчезать, затем появляться вновь с новыми цветами. Клавиша ВАЕАК 
при загрузке не действует. 

По окончании загрузки значение флага переноса содержит информацию об ошибке 
при загрузке: 1 - не было, 0 - была. Здесь надо сказать, что и как в случае использования 
процедуры 1366 (0556Н) ПЗУ, об ошибке свидетельствует только значение флага переноса, 
никакие дальнейшие действия, связанные с наличием ошибки не выполняются. Но если Вы 
хотите, чтобы при ошибке программа останавливалась с выдачей сообщения: "В Таре 
|оаЧтоа еггог", то надо поступить аналогично тому, как это делается в ПЗУ. Там для вызова 
процедуры 1366 используется процедура 2050. Применяя аналогичный прием, вызов 
приведенного загрузчика может выглядеть следующим образом: 


и подготовка пара- 
ие, метров (см. выше) 


СОЕЗЕО САЕЕ  #РОЕЗ 
08 ВЕТ С 
СЕ Аст 8 


ТА ОЕРВ  #1А 


На этом можно было бы и закончить, но вот что случилось спустя некоторое время, 
после того, как мы успешно оттестировали этот загрузчик. Неожиданно выяснилось, что 
загрузчик упорно не хочет работать на другом компьютере. Мы решили выяснить, почему 
это происходит. К счастью, программа "ВААВАНАМ-3" оказалась в нашей "фонотеке". Мы 
опробовали ее и выяснили, что на обоих компьютерах программа нормально загружается. В 
чем же дело? Стали исследовать коды загрузчика, который приводит Павел. Как и 
следовало ожидать, загрузчик похож на процедуру "ГОАБ ВУТЕЗ$", расположенную в ПЗУ по 
адресу 1366. Но стоп! Что это такое? По адресу ЕОЕЭН видим команду: САШЕ ЗС6бЕнН. Это 
вызов подпрограммы из ПЗУ. Но ведь мы знаем, что в ПЗУ на этом месте ничего нет. Или 
есть? Так вот, оказывается, где кроется разгадка. Дело в том, что на том компьютере, где 
этот загрузчик не работал, стоит стандартное ПЗУ, а на том, где работал нормально, стоит 
ПЗУ "ТУРБО-90", а котором на свободном месте, перед символьным набором расположены 
программы, расширяющие функциональные возможности компьютера, в частности, 
загрузка с удвоенной скоростью. Для этого процедура 0556Н (1366) этого ПЗУ содержит в 
точности то, что видим в листинге загрузчика, который приводит Павел, по адресу ЕОРЭН: 
выполнение подпрограммы ЗС6бЕН. Это связано с загрузкой на удвоенной скорости. В 
обычном ПЗУ подпрограмма 5С6бЕН отсутствует, поэтому этот загрузчик и не может 
работать с другим ПЗУ, кроме "ТУРБО-90". Кстати, у Комиссарова Павла, наверняка, тоже 
ПЗУ "ТУРБО-90" (необходимый инструмент любого “взломщика"). 

Вроде бы разобрались, но опять непонятно, почему же программа “ВАВВАНАМ-3" 
работает с любым ПЗУ: и с обычным, и с "ТУРБО-90". Полезли в программу. А выяснилась 
очень интересная вещь. В программе "ВААВАН!АМ-3" отсутствует загрузчик кодов в том 
виде, в каком его приводит Павел. Загрузчик в кодах формируется в программе из 
подпрограммы 1366 ПЗУ. Мы немного поискали и нашли ту процедуру, которая выполняет 
эту работу. Она в процессе загрузки "ВАВВАНМАМ-З3" располагается с адреса СЗОБН (50133). 
Вот что там находится (фрагмент кодов приводим с некоторыми изменениями, в виде 
завершенной подпрограммы, готовой к употреблению): 


(305 215605 ЕО НЕ, #0556 
(308  ТТЕВЕО ЕО ОЕ, #РОЕЗ 
С30В  ОЛАРОО ЕО ВС, #ООАЕ 
СЗВЕ  ЕБВО ЕОТВ 

СЗЕО 211904 ЕО НЕ, #0419 
СЗЕЗ  118ЕЕЕ ЕО ОЕ, #РЕЗЕ 
СЗЕб 010400 ЕО ВС, #000А 
СЗЕ9  ЕБВО ЕОТВ 

СЗЕВ 2175ЕЕ ЕО НЕ, #РЕТЗ 
СЗЕЕ_ 220ЕЕР ЕО НРЕОЕ), НЕ 
ОЗРТ! -даТ5ЕЕ ЕО НРЕТЬ), НЕ 
С3Е4 2250ЕЕ ЕО РЕЗО) НЕ 
СЗЕ7 21ТЭЕЕ ЕО НЕ, #РЕТ9 
СЗЕА  22ЕЕЕО ЕО НРОЕР), НЕ 
СЗЕО 2224ЕЕ ЕО #РЕ24), НЕ 
(400 222ЕР ЕО НРЕЗЕ), НЕ 
(403 2276ЕЕ ЕО РЕГ НЕ 
(406 215СЕ ЕО НЕ, #РЕ5С 
(409 2268ЕЕ ЕО НРЕбб), НЕ 
(406 АР ХОВ А 

(400  З2ЕБЕБ ЕО НРОЕО), А 
(410  З2ЕБР ЕО НРОЕО), А 
(413  3286ЕЕ ЕО НЕЕВб), А 
(416 С9 ВЕ 

(417 00 ОР 

418 00 ОР 

(519 82 Аб А, 0 

САЛА АЗ хо С 

С41В Еб07 АМ #07 

(416 [608 ОВ #08 

С4ЛЕ ОЗЕЕ ОТ (НЕЕ), А 
(421 37 СЕ 

(422 (9 ВЕ 


Эта подпрограмма формирует загрузчик кодов, расположенный с адреса 65000, а 
далее Вы можете использовать его так, как рассказывалось выше. 

Если сформировать загрузчик кодов, пользуясь приведенной подпрограммой СЗОБН, 
при использовании ПЗУ "ТУРБО-90", получим тот загрузчик, который приводит Комиссаров 
Павел. А если сформировать загрузчик при использовании стандартного ПЗУ, то получим 
следующие отличия по-сравнению с вариантом для "ТУРБО-90": 


ЕОР9 2602 ОВ #02 
ЕОРВ  4Е ЕО С, А 
ГЕОЗ 211504 [№ НЕ, #0415 


Кстати, если внести эти изменения в вариант Павла, то загрузчик будет работать с 
обоими ПЗУ. Почему же в "ВААВАНАМ-3" используется казалось бы более головоломный 
прием, когда загрузчик формируется при помощи другой подпрограммы (СЗО5Н) из 
процедуры 0556Н ПЗУ? Ответ прост. Если у Вас стандартное ПЗУ, то Вы работаете как 
обычно. А если у Вас "ТУРБО-90", то сохранится возможность загружать всю игру в режиме с 
удвоенной скоростью (как это предусмотрено, введя перед командой [ОАВ "". Несмотря 
на то, что загрузчик кодов в общем-то нестандартный, в нем поддерживается турбо-режим. 
Это происходит как раз из-за вызова подпрограммы ЗС6ЕнН, который мы видим по адресу 
РОРЭН. Те читатели, у которых есть “ТУРБО 90", могут убедиться в том, что загрузчик, 
приведенный Павлом, работает и на удвоенной скорости (правда при этом пропадает 
эффект переключения цвета бордюрных полос). Кроме того, процедура, которая создает 
загрузчик, гораздо короче самого загрузчика, поэтому такой путь еще и экономит память и 
время загрузки исходной программы. 

Эта история показывает, насколько осторожным и предусмотрительным надо быть, 
проектируя автономные загрузчики для загрузки кодов. Иначе за Вашей замечательной 
программой, в которой Вы примените такой загрузчик, может закрепиться репутация 
"капризной" или “неработоспособной". Надеемся все же, что приведенный пример не 
отпугнет программистов, а вооружит сведениями, позволяющими выполнить эту работу 
более квалифицированно. 


ПРОФЕССИОНАЛЬНЫЙ ПОДХОД 


Отладчик машинного кода "ТВАСЕВ" 


Создание резидентных программ - один из самых интересных моментов в работе 
программиста. Резидентные программы работают как бы "поверх" основных и позволяют не 
выходя из главной программы выполнять еще какую-либо ценную задачу. Так, например, в 
разделе "ФОРУМ" Вам была представлена резидентная программа-русификатор, которая 
50 раз в секунду проверяет нажатие комбинации клавиш ЗУМ.$Н. + ЕМТЕР и, если они не 
нажаты, то резидент себя не проявляет и остается "прозрачным" для пользователя. 

В игровых программах резидентные процедуры как правило занимаются тем, что 
воспроизводят музыку одновременно с работой других процедур, а иногда им поручают 
обслуживание клавиатуры в поисках нажатия нужной клавиши. Нередко их используют и при 
организации мультипликации. 

Создание резидентных программ для "Спектрума" основывается на использовании 
режима прерываний 2-го рода (1М2) и сегодня мы представляем Вашему вниманию еще 
одну полезную резидентную программу, которая поможет тем, кто программирует в 
машинных кодах, особенно там, где иные средства откажутся работать. 


Кто не испытывал трудностей при отладке программ в машинных кодах, когда 
казалось бы вполне "хорошая" программа почему-то вдруг ни с того ни с сего "зависает" и 
никак не удается определить, почему же это происходит. Проблему отчасти решает 
пошаговая отладка программы при помощи мощных мониторов, таких, как, например 
"МОМ$-3", "МОМ$-4". Но только отчасти, так как для того, чтобы вручную “прощелкать" 
достаточно большую программу, требуется уйма времени, ведь программы содержат массу 
различных циклов и придется повторять выполнение программы в одних и тех же адресах 
многократно. В общем задача эта - не из простых. Пошаговая отладка - это конечно, 
хорошо, но неужели только этим ограничиваются возможности "влезть внутрь" программы и 
посмотреть, что же там происходит. Сегодня мы предлагаем читателям еще один 
инструмент, позволяющий заглянуть внутрь программы во время ее работы, причем в 
режиме реального времени. Конечно, использование приведенного метода требует 
определенной квалификации, но если Вы хорошо разберетесь с ним, то получите в свой 
арсенал инструмент, значение которого трудно переоценить. 


Итак, вниманию читателей предлагается отладчик машинного кода, использующий 
режим прерываний второго рода. 


Программа-отладчик машинного кода называется "ТААСЕВ". Она позволяет выводить 
в правой части экрана заданную информацию в шестнадцатеричном коде. Что это может 
быть за информация? Это зависит от Ваших требований. Что Вы зададите. Например, Вы 
хотите просмотреть число, записанное в какой-нибудь ячейке памяти, как оно изменяется. 
Или как меняется содержимое какого-то регистра. Или что записано на вершине машинного 
стека. Принцип работы отладчика состоит в том, что 50 раз в секунду будет происходить 
прерывание Вашей исследуемой программы и 50 раз в секунду интересующие Вас 
сведения будут выведены на экран в столбец в правой части экрана. Процедура, 
обслуживающая прерывание, должна формировать требуемый параметр и выдавать его на 
печать. От того, что конкретно Вы хотите просмотреть, зависит начало этой процедуры. В 
качестве примера, рассмотрим вариант кодов, который позволяет просмотреть число, 
записанное на вершине машинного стека. Блок кодов, который это делает, приведен в 
распечатке (Листинг 1), а возможный пример работы отладчика - на рис. 1. 
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Рис. 1 


Включение отладчика в работу происходит при выполнении инициализирующей 
подпрограммы ЗТАНТ, расположенной с адреса РЕР7Н (РАМРОМИИЕ У$В 65271). При этом 
происходит следующее. Вначале задается адрес в дисплейном файле, куда будет 
производиться вывод результатов: в регистр НЁ записывается адрес верхней пиксельной 
линии того знакоместа экрана, куда будет производиться печать. Это значение заносится в 
системную ячейку ЕЕЛЗН. Затем обнуляется другая системная ячейка 5С81Н (это 
неиспользуемый адрес в таблице системных переменных). Здесь будет организован счетчик 
строк для выводимой информации. После этого происходит включение режима прерываний 
второго рода. В регистр | процессора записывается число РЕН. Поэтому при прерывании 
произойдет переход на программу, адрес которой записан в ячейке памяти РЕРЕН. Там 
записан адрес РЕБСН. Это начало обрабатывающей процедуры. Затем происходит 
переключение на режим прерываний второго рода и возврат. 

Теперь 50 раз в секунду будет выполняться обслуживающая процедура. По условию, 
которое мы задали, она должна выдавать значение двухбайтного числа, находящегося на 
вершине машинного стека. Считывание этого значения происходит следующим образом. 
Текущее значение регистра НЕЁ сохраняется в неиспользуемой ячейке 6СВОН в таблице 
системных переменных. Далее интересующее нас число с вершины стека заносится в 
регистр НЕ. При этом необходимо восстановить стек в том виде, в каком он был, что 
выполняется при помощи обратной записи числа из НЕЁ на стек. Далее на стеке сохраняются 
значения всех регистров процессора, которые задействованы и будут изменены в 
процедуре обработки прерывания. 

Теперь надо интересующее нас число (в регистре НЕ) вывести на печать. Это 
выполняется следующим образом. Проверяется значение счетчика строк 5С81Н. Если не 
достигнут нижний край экрана, то происходит переход на процедуру СОМТ, а если 
достигнут, то для последующего вывода задается опять верхняя строка экрана путем 
занесения в системный счетчик ЕЕЛЗН исходного адреса в дисплейном файле. Счетчик 
строк при этом обнуляется. 

Процедура СОМТ начинается с того, что в регистр ОЕ наносится текущее значение 
адреса для вывода в дисплейном файле. Затем старший байт интересующего числа 
записывается в регистр А и при помощи ротации вправо старший полубайт становится на 
место младшего. Выполняется его печать при помощи подпрограммы РЕМТ, которая 
выполняет печать четырех младших битов, содержащихся в регистре А (в 
шестнадцатеричном представлении четырем битам соответствует один символ). После 
печати значение ГЕ увеличивается на единицу, что соответствует переходу к следующему 
знакоместу. Затем в регистр А опять записывается значение из регистра Н и выполняется 
печать младшего полубайта. Значение ОЕ опять увеличивается на 1. Далее то же 
повторяется и со значением регистра |, точно так же за два приема выполняется печать двух 
полубайтов. 

Далее, путем выполнения ротации и суммирования, в счетчике ЕЕЛЗН получается 
следующий адрес в дисплейном файле, соответствующий выводу на следующей строке. 
Такой способ вычисления этого адреса связан с тем, что экранная память состоит из трех 
сегментов и надо получить правильный результат при переходе от одного сегмента к 


другому. В нашей книге "Элементарная графика" мы подробно разбирали все вопросы, 
связанные с выводом на экран. Поэтому, для более ясного представления о том, как все это 


происходит, заказывайте и читайте нашу книгу. 
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Листинг 1 


‚ Сохранение НИЕ. 

‚ Получение требуемого 
‚ параметра в НИ. 

‚ Восстановление стека. 
‚ Сохранение 

‚ значений 
‚ регистров. 
‚ Переход 
‚ следующей 

‚ строке. 

‚ Проверка на достижение 


^ 


‚ конца экрана. 
‚ Переход на 

‚ начало экрана. 
‚ Обнуление 

‚ счетчика строк 


‚ Текущий адрес 

‚в дисплейном файле. 
‚ Выделение 

‚ старшего 
‚ полубайта. 


‚ Печать старшего 
‚ полубайта. 


‚ Печать младшего 
‚; полубайта. 

‚ Выделение 
‚ старшего 


‚ полубайта. 


‚ Печать старшего 
‚ полубайта. 


‚ Печать мл. 
‚ Расчет 
‚ адреса 
‚ в дисплейно 
‚ файле 
‚ с учетом 
‚ сегмента 
‚ экрана. 


полубайта. 


‚ Финишные операции 
по восстановлению 
значений 
регистров. 

Переход на НУТ #38 


‚ Преобразование 
‚ кода в символ 
‚ согласно 

‚ таблице 


ЕЕСО 0600 ЕО В, #00 ‚ с учетом 

ЕЕС2 ДЕ ЕО С, А ‚ шестнадцати- 
ЕЕСЗ 09 АБО НЕ, ВС ‚ ричного 

ЕЕС4 46 ЕО В, (НЕ) ‚ представления. 
РЕСЬ 23 ТС НЕ 

ЕЕСб 4Е ЕО С, (НЕ) 

ЕЕС7У (5 РОЗН ВС 

ЕЕС8 Е1 РОР НЕ 

ЕЕСУ 0608 ЕО В, #08 

ЕЕСВ ТЕ РАТ ЕО А, (НЫ) ‚ ВЫВОД 

ЕСС 12 [О (ОЕ), А ‚ символа 

РЕСО 23 ТМ НЕ ‚ на 

ЕЕСЕ 14 ТС О ‚ экран. 

ЕЕСЕ ТОРА 00№7  НРЕСВ 

ЕЕО1 7А ЕО А, 0 

РЕБ? 0608 ЗВ #08 

ЕЕО4 57 ЕО О, А 

ГЕО Е1 РОР НЕ 

ЕЕО$ 09 ВЕ | 

РЕБУ 308030 ТАВЕЕ БЕЕРВ ‚ Таблица 

ЕЕБА 883090 ОЕРВ ‚ ДЛЯ 

ЕЕББ 309830 ОЕЕВ ‚ преобразования 
РЕЕО  АОЗОА8 ОЕЕРВ ‚ кода 

ЕЕЕЗ 308030 ОЕРВ ‚В СИМВОЛ 

ГЕЕб  В830С0 ОЕЕРВ ‚ с учетом 

ЕВЕЯ  З0С83Е ОЕРВ ‚ шестнадцати- 
РЕЕС  083Е10 ОЕЕРВ ‚ ричного 

ГЕЕР  ЗЕ18ЗЕ ОЕЕВ ‚ представления. 
ЕЕ?  203Е28 ОЕЕРВ 

ЕЕР5 3Е30 ОЕЕРВ 

РЕРУ 211040 ОТАНТ 10 НЕ, #4010 ‚ Инициализирующая 
ГЕРА  2213ЗЕЕ ЕО (НЕЕ1З), НЕ ‚ процедура 

ЕЕРО 1802 УВ ВЕРО1 

РЕЕРЕ: ^5СЕЕ АБВ ОЕЕВ ‚ Адрес перехода по ТМ2. 
РЕОЯ АЕ РАЗЗ ХОН А ‚ Продолжение 

ЕЕО2 32815 ЕВ (#5081), А ‚ инициализирующей 
ЕЕО5  ЗЕРЕ ЕО А, НЕЕ ‚ процедуры. 

ЕЕО7  Е047 ЕО Т.А 

ЕРО9  ЕШББЕ ТМ 2 

ЕРОВ  С9 ВЕТ 

ЕЕОС Е056 ТОРТ 1 ‚ Восстанавливающая 
ЕРОЕ  ЗЕЗЕ [О А, #НЗЕ ‚ процедура. 

ЕР1О  Е047 ЕО Т.А 

ЕЕ12 09 ВЕТ 

ЕЕ13 00 ОСВР МОР ‚ Текущее значение адреса 
ЕЕ14 00 МОР ‚в дисплейном файле. 


После выполнения печати искомой величины, происходят финишные операции. Это 
восстановление со стека значений регистров процессора. При этом значение регистра НЕ 
как мы помним, находится в ячейке 5СООН, оттуда его и считываем. Далее - переход на 
адрес ООЗВН, как и в случае прерывания первого рода. 

Непосредственно печать выполняется при помощи подпрограмм печати РАМТ и РНТ. 
Вначале зануляются старшие байты регистра А (выполняется печать только одного 
полубайта). Для того, чтобы обеспечить печать в шестнадцатеричном виде, используется 
перевод кода в символ при помощи таблицы, расположенной с адреса РЕОТН. В 
зависимости от значения кода происходит установка в регистре НЁ адреса в символьном 
наборе, с которого находится изображение этого символа. Затем процедура РВТ выполняет 


переписывание восьми байт из символьного набора в дисплейный файл. 

В результате работы программы-отладчика в правой части экрана Вы будете видеть 
столбец непрерывно меняющихся цифр. Это и есть результат работы программы - числа, 
которые находятся на вершине стека в процессе работы программы. Они меняются 
достаточно быстро, но ведь все происходит в режиме реального времени. Да и ктому же это 
просто демонстрационный пример, показывающий возможности программы. 

На практике, для того, чтобы “вытаскивать" из исследуемой программы требуемые 
параметры, Вам придется несколько видоизменить начальную часть процедуры, 
обслуживающей прерывание. Хорошенько разобравшись с принципом действия этой 
программы, Вы сможете легко применять ее для своих вполне конкретных целей. 

Для того, чтобы отключить отладчик, надо выполнить останавливающую 
подпрограмму, расположенную с адреса ЕРОСН (ВАМРОММЕ Ч$В 65292). При этом 
происходит переключение на режим прерываний 1 рода - восстановление обычного режима 
работы "Спектрума". 

И в заключении об одном ограничении на работу отладчика. Вывод на экран будет 
возможен только в том случае, если прерывания разрешены (Е!). Если в исследуемой 
программе они запрещаются командой П[!, то прерываний не будет и, следовательно, не 
будет вывода на экран. 


МАЛЕНЬКИЕ ХИТРОСТИ 


ПРОГРАММА "ТЕНЕВОЙ КОНТУР" 


На страницах "7Х-РЕВЮ" уже не раз приводились примеры того, как можно внести 
некоторые усовершенствования в программы на Бейсике, применяя для этого фрагменты в 
машинных кодах. Сегодня, в продолжение этой темы, мы приводим блок кодов, который 
позволит вносить определенные изменения в изображение, имеющееся на экране. 
Посмотрите на рисунок. Изображение, которое Вы видите, как бы объемно. Создается 
впечатление, что оно приподнято над плоскостью экрана. Вам, наверное, приходилось 
видеть такой прием в программах. Мы предлагаем Вашему вниманию оригинальный способ 
получения этого эффекта. 

Суть метода заключается в том, что теневое оконтуривание выполняется 
автоматически программой в машинных кодах. Сначала "плоское" изображение выводится 
на экран обычными способом, будь то Бейсик или процедуры в машинных кодах. 

Можно даже заготовить "плоскую" картинку при помощи графического редактора. В 
общем, представим, что имеется изображение, полученное любым способом. Затем, 
вызывая приведенную ниже программу в кодах, выполняется теневое оконтуривание этого 
изображения, причем весь экран может быть обработан за один прием, а можно вызывать 
кодовую программу несколько раз, выполняя оконтуривание в несколько приемов. 

Критерием, определяющим то, что надо оконтуривать, а что не надо, является 
повышенная яркость (ВЕСНТ 1). Все, что на экране нарисовано с повышенной яркостью, 
будет оконтурено при вызове блока в машинных кодах. Как это эффективнее всего 
использовать в программах придумайте сами. Дело за Вашей фантазией. Мы же 
предлагаем программу в машинных кодах под названием "Теневой контур". Ее БЕЙСИК- 
загрузчик приведен в Листинге 1, а машинный код с комментариями - в Листинге 2. 
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ВАТА 250, б6, 4, 221, 126 
ВАТА 0, ПО 2 цию 
ВАТА 205, 58, 250: : 16} 244 
ВАТА 253, 126, 33, 254, 64 
ВАТА 210, 35, 250, 241, 245 
ВАТА 254, 32, 210 195. 250 
ВАТА 19, 13, 32, 220, 195 
ВАТА 35, 250 

ВАТА 0, 0, 128, 64, 160 
ВАТА 80, 160, 80, 160, 80 
ВАТА 160, 80 

ВАТА 42, 2 10, Э 128 
ВАТА 64, 160, 80 
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Для демонстрации действия блока машинных кодов надо набрать Бейсик-программу, 
приведенную ниже. Программа имеет автостарт со строки 2, где происходит загрузка 
необходимых кодов. Сам блок “теневой контур" надо оформить в виде файла "еп" СООЕ 
64000,211. Кроме того, программа русифицирована по методике, приведенной в 2Х-РЕВЮ- 
92 М1,2. стр.31. Русско-латинский символьный набор загружается в виде файла "спг" СОБЕ 
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‚Эта подпрограмма выполня- 
‚ет расчет адреса в дисп- 
‚лейном файле по известно- 
‚му адресу в файле атрибу- 
‚ тов. 


‚Эта подпрограмма выполня- 
‚ет операции, связанные с 
‚ наложением оконтуривающе- 
‚го изображения на тот ри- 
‚ сунок, который имеется на 
‚ экране. 


‚Не последняя ли это коло- 
‚нка, если да, то возврат, 
‚т.к. негде оконтуривать. 


‚ Базовый адрес таблицы 
‚ для построения оконтури- 


‚ вающего рисунка. 


, 


‚Если знакоместо не угло- 
‚вое, то переход на [00Р_2 
‚если угловое, то оконту- 
‚ ривание снизу. 


, 


‚ Проверка необходимости 
‚ выполнения наложения 
‚на имеющееся на экране 
‚ изображение. 

: Выполнение наложения. 


, 


РАЗ?  РЪ РОЗН АР | 
ГАЗЗ ЕБ РОЗН о НЕЁ з 
РАЗА  ЕЕТВ СР #18 ‚Не последняя ли строка. 
РАЗб 0223ЕА УР МС, НЕА23 ‚Если да, то негде окон- 
‚ туривать и переход на 
‚ РАЗ5. 
РАЗУ  РОЕБ РОЗН ТУ : 
РАЗВ 01 РОР ОЕ 
РАЗС ЕВ ЕХ ОЕ, НЕЁ : 
РАЗО 012000 ЕО ВС, #0020 
ЕА9О 09 АБО НЕ, ВС : 
ЕАЭ91 ЕВ ЕХ ОЕ, НЕ : 
РА92 0Е02 ЕО С, #02 : 
ГАЗА  ОО21СВЕА ЕО ТХ, НЕАСВ ‚ Базовый адрес в таблице, 
‚ определяющей оконтурива- 
‚Юющий рисунок. 
РА98  СО2ЕРА СА НЕА2Е | 
РАЗВ 0604 ЕО В, #04 : 
РАЗЬ  007ЕОО Е А, (ТХ+0) Проверка необходимости 
РААО Вб ОВ (НЕ) ‚выполнения наложения 
РААТ 77 ЕО (НЕ), А ‚на имеющееся на экране 
ГАА? 0023 ТАС ТХ ‚ Изображение. 
РААА4  СОЗАРА САЕЕ НЕАЗА ‚Выполнение наложения. 
РААТ 10Е4 № #РАЭО 
РААЗ  РО7Е?1 ЕО А, (1У+33) 
РААС РЕЕ4О СР #40 | 
РААЕ 0223ЗЕА УР МС, НЕА23 : 
РАВЯ Е РОР АЕ 
РАВ? Е РОЗН АР | 
РАВЗ РЕ20 СР #20 
РАВ5  0223ЗЕА УР МС, НЕА23 : 
РАВ8 13 ТАС ОЕ 
РАВУ 00 ОЕ С | 
РАВА 2000 УВ №7, #РА98 ; 
РАВС  СЗ2ЗЕА УР ВЕА23 : 
РАВЕ 000080 РТСТИВЕ РЕРВ #00, #00, #80 ‚Базовая таблица, по ко- 
РАС? 404050 ОЕЕВ #40, #АО, #50 ‚торой строится оконтури- 
РАС5  А050АО РЕРВ  НАО, #50, НАО ‚вающий рисунок. 
РАС8 504050 РЕРВ #50, НАО, #50 : 
РАСВ  2А150А БЕРВ  #2А, #15, НОА : 
РАСЕ 058040 РЕРВ #05, #80, #40 : 
РАБ 4050 БЕРВ  НАО, #50 
1 60 ТО 100 
2 СЕЕАВ 63999: 1О0АБ “Ъфеп” СОБЕ 64000 
3 [ОАБ “сиг” С00Е 64600 
4 РОКЕ 23606, 88: РОКЕ 23607, 251: ВЕМ НИЗ 
100 ВОВОЕН 1: РАРЕВ 1: ТМК 7: ВВТОНТ 0: (15 
200 ВВТОНТ 1 
300 ГЕТ А$=”В” 
1000 РОВ У=8 ТО 12: ЕОН №=0 ТО 15: РВТМТ АТУ, 1+№;А$;: МЕХТ №: МЕХТ У 
1010 РОВ У=3 ТО 17: РОВ №=0 ТО 9: РАТМТ АТ У, 4+№: А$: МЕХТ №: МЕХТ У 
1020 РОВ У=5 ТО 15: РАТМТ ВАТЕНТ О: АТ У, 7; "МЕХТ У 
1030 РАТМТ ВАТСОНТ 0:АТ 10,3; ' 
2000 РОВ №=5 ТО 15: РАТМТ АТ М, ", МЕХТ М 
2010 РВТМТ АТ 8, 20; "ПРОГРАММА" 
2020 РВТМТ АТ 9, 20; “ДЕМОНСТРИ-” 
2030 РВТМТ АТ 10, 22: "РУЮЩАЯ" 
2040 РВТМТ АТ 12, 20: “""ТЕНЕВОЙ" 
2050 РВТМТ АТ 13, 23; “КОНТУР""" 
2100 РАЦЗЕ 50: РЕОТ 145,48: ОААМ 0,86: ОВАМ 102,0 
3000 РАЦЗЕ 50: НАМООМТУЕ 58 64000 
4000 ВАТаНТ 0 


После старта программы со строки 2, загрузки кодовых блоков и включения русского 
символьного набора, происходит формирование изображения на экране, которое в 
дальнейшем будет оконтурено. Для этого перед подачей команд РЕШМТ происходит 
включение режима повышенной яркости ВЁСНТ 1 (строка 200). Обратите взимание, что 
отверстие в левой фигуре, состоящей из букв "В", прорисовывается в режиме ВНСНТ 0. В 
правой части экрана получен прямоугольник, подлежащий оконтуриванию. Это выполняется 
печатью нескольких строк пробелов в режиме ВНСНТ 1 (строка 2000), а текст впечатывается 
уже потом. Для завершенности фигуры этот прямоугольник слева и сверху замкнут 
прорисовкой прямых линий (строка 2100), так как оконтуривание производится только 
справа и снизу. 

Если оконтуривание должно быть выполнено поверх символов, напечатанных на 
экране и имеющих ВЕАСНТ 0, то происходит наложение оконтуривающего фона на 
имеющееся изображение, это можно наблюдать, если добавить в программу строку: 


150 РОН №=1 ТО 32»22: РАТМТ "+"; : МЕХТ № 


Итак, дело за Вашей фантазией, уважаемые читатели! 


Компьютерная новелла 


Дорогие читатели! 


С этого номера мы начинаем новую постоянную рубрику в "7Х-РЕВЮ" для тех, кто 
любит и ценит игровые программы. Эту рубрику мы назовем "Компьютерная новелла". 

Изобретатель этой рубрики, он же ее главный редактор - наш постоянный 
корреспондент из Москвы Матвеев Юрий Александрович. Он экспериментирует в этом 
жанре уже не первый год и сегодня на Ваш суд предлагается первая работа. В ближайших 
выпусках Вас ожидают новые увлекательные приключения героев широкоизвестных 
компьютерных игр. 

Должны сказать, что за прошедшие годы мы не раз пробовали экспериментировать с 
представлением игровых программ. Ключевой проблемой здесь является, на наш взгляд то, 
что подробная "раскрутка" игры и доведение ее до уровня простейших подсказок (1$) не 
только не способствует ее популяризации, но и наоборот, навсегда может оттолкнуть от нее 
возможного пользователя. Как Вы думаете, что скажут альпинисты, если подходы к 
основным вершинам мира кто-то услужливо забетонирует ступеньками? 

Итак, основная цель хорошо составленного описания компьютерной игры должна 
быть, на наш взгляд в том, чтобы с одной стороны дать заинтересованному пользователю 
необходимые “хинты" для прохождения игры, но, с другой стороны, сделать это настолько 
мягко, чтобы они не бросались в глаза при первом прочтении и не портили бы будущую игру. 

Так родилась идея компьютерной новеллы. Идея понравилась нам еще и потому, что 
такую новеллу могут читать отнюдь не только те, кто имеют данную программу и желают ее 
пройти. В принципе, она делается как независимое художественное произведение и может 
читаться даже теми, у кого нет и не было под рукой персонального компьютера. И если у них 
появится после этого желание приобрести компьютер, найти и запустить эту игру, вот тогда 
мы и будем считать, что наша главная цель - достигнута. 

У Вас на глазах рождается новый жанр. Мы внимательно следим за новинками в 
зарубежных компьютерных журналах, но систематического исследования такого 
направления пока не встречали, т.е. дело это совершенно неисследованное. Вы можете и 
сами принять посильное участие в становлении и обкатке этого направления. Мы будем 
признательны за критические отзывы, советы, рекомендации. Может быть у Вас есть какие- 
то иные оригинальные идеи развития такого жанра. Мы с радостью примем Ваши 
пожелания, а наиболее интересные и дискуссионные обсудим на страницах "7Х-РЕВЮ". 
Письма можете направлять по нашему адресу на имя редактора раздела "К.Н." - Матвеева 
Ю.А. 


Матвеев Ю. А. 


КОНФЕРЕНЦИЯ 


(по игре Колина Свинбурна "Джо Блэйд"). 


| 

Джо Блэйд, удобно устроившись на заднем сидении автомобиля, прикурил сигарету и 
вопросительно посмотрел на мэра города. 

- Едем, - сказал тот шоферу и, когда они выехали на шоссе, ведущее к городской 
тюрьме, наконец повернулся к Джо: 

- Ты смелый парень и мне остается надеяться только на тебя. - Он сделал 
многозначительную паузу. - Ты, конечно, знаешь, кто такой Кракс Бладфингер: влиятельное 
лицо в городе, президент мощной военно-промышленной компании, почетный член 
городского магистрата. 

Джо усмехнулся. Он никогда не признавал авторитетов, тем более тех, кто стоял у 
власти. Власть, по мнению Джо Блэйда, всегда ограничивала его свободу, мешала спокойно 
жить, а свободу он любил больше всего. 

Мэр расценил усмешку собеседника как иронию и поспешил согласиться. 

- Да, ты прав. Этот человек - оборотень, и не тот, за кого себя выдает. В полиции уже 
давно под него копают, но... Его организация словно спрут охватила важнейшие точки 
города. Везде есть его люди. По сути, мэр города - это он. Я - лишь прикрытие и ничего не 
могу сделать. Все идет так, как хочет он. О чем говорить, если даже городская тюрьма в его 
подчинении. Есть сведения, что Кракс превратил ее в склад боеприпасов. Также известно, 
что Кракс Бладфингер нелегально торгует не только оружием, но и наркотиками. У него 
четко отлаженная сеть сбыта и верная агентура. 

Пока мэр рассказывал о Краксе, Джо Блэйд, приоткрыв окно, щелкнул в туман 
окурком. Мэр не открыл Америки, в народе уже давно ходили слухи о мафии Кракса, однако 
на официальном уровне это никогда не обсуждалось. 

- Я так понимаю, - задумчиво отозвался Джо, - что на сегодняшний день вопрос встал 
ребром: или вы, или Кракс? 

- Не совсем, - ответил мэр. - Все дело в том, что завтра здесь начинается 
международная конференция по правам человека. Это, можно сказать, крупнейшее событие 
в истории нашего города. Среди прочих к нам вчера приехали шесть лидеров мирового 
ранга. В какой-то степени они могут изменить положение. Их влияние в мире, их связи были 
бы способны очистить наш город от этого паука Кракса и его нечисти. Однако... 

- Однако..? - повторил Джо Блэйд. 

Вчера ночью Кракс похитил их и теперь шантажирует меня. 

- Что? Всех шестерых? 

- Да. Впрочем это, наверное, от жадности или от наглости. Для скандала достаточно 


было бы и одного. 

- Так чего же он хочет? 

- Завтра на Конференции я, как мэр города, делаю доклад. Я собирался, когда 
готовил речь, дать понять о мощной мафиозной структуре, выросшей в нашем городе за 
последнее время. Я хотел косвенно указать на Кракса, как на главаря этой структуры. И 
ПОТОМ... 

- Интерпол..? - засмеялся Джо Блэйд. 

- Вот именно. Но рукопись моей речи каким-то образом оказалась у Кракса. И он 
среагировал быстро. Возможно, ему было бы проще устроить мне автомобильную аварию, 
но я предусмотрительно усилил охрану и стал для него недоступен. Я даже подумать не мог, 
что он решится на захват заложников. Сегодня Кракс звонил мне и намеком дал понять, что 
если я делаю доклад в его пользу... 

- То есть? - переспросил Джо. 

- ..Кракс Бладфингер первое лицо в городе, отстаивающее права человека, 
борющееся с преступностью, безгранично верное Президенту и стране, гений, ну и так 
далее. Он хочет добиться благосклонности всех мировых лидеров, которые будут 
присутствовать на конференции. Он ждет аплодисментов, но он их не получит! - Мэр сжал 
кулаки. 

- Конечно, он же показал теперь всем свое истинное лицо, - улыбнулся Джо Блэйд. 

- Нет. Просто вчера, ближе к ночи, сразу после приезда делегатов, он предложил им в 
рамках ознакомления побывать в городской тюрьме, посмотреть условия жизни 
заключенных, уровень охраны... До сих пор они не вернулись. Кракс придумал предлог, 
чтобы задержать их там до начала конференции и только после моего доклада в его пользу 
они будут доставлены на место. Никто даже не заметит ничего подозрительного. Пятнадцать 
минут роли не играют. А в противном случае они вообще не появятся в зале и конференция 
будет сорвана. Обвинят потом, конечно, не его, а меня. Я обеспечиваю транспорт, питание, 
организацию, безопасность. Кракс выходит сухим из воды, я же - теряю пост мэра, 
общественность отвернется от меня, а уж потом в долгу не останется и Кракс. Понимаешь? - 
Мэр посмотрел в глаза Джо Блэйда, ища сочувствия. 

Джо молчал. 

- Я послал пять лучших агентов: Джаббу, Симона, Криса, Кевина и Колина для 
освобождения заложников, но они вернулись ни с чем. Кракс усилил охрану, и тебе, парень, 
будет нелегко. Теперь ты знаешь все. Я верю, ты поможешь нам, тем более, что твои 
крепкие кулаки и меткий глаз теперь найдут настоящую работу. - Мэр похлопал Джо по 
плечу. - Какое у тебя оружие? 

Джо, не говоря ни слова, вытащил из-за пазухи блестящее короткоствольное ружье. 

- Я видел эту штуковину у Кракса на заводе, - сказал мэр. 

- Да, - подтвердил Джо, - это их последняя разработка - электронный распылитель. 
Оставляет от человека легкое облачко дыма. 

- Причем, опасное, - добавил мэр. 

- Пока не рассеется, - кивнул Джо. 

- Откуда это у тебя? 

Джо повертел ружье в руках и спрятал обратно. 

- Купил по случаю в одной лавке. 

- Пользуешься услугами Кракса, - вздохнул мэр. 

- Исключительно против его системы, - ответил Джо Блэйд и посмотрел в окно. 

Утренний туман еще не растаял, да и день обещал быть серым и скучным. Но только 
не для него. Один, против целой банды головорезов, обученных и хорошо вооруженных. 
Схватка не на жизнь, а на смерть. И это его устраивало. Он считал возможным помочь мэру, 
да и всему городу, избавиться от хитрого и страшного Кракса Бладфингера. 

- Самое главное это заложники, - сказал мэр. - С Краксом мы успеем разобраться. 
Для заложников ты - сотрудник безопасности. Чтобы снять их подозрения о каше, которая 
здесь заварилась, скажешь им что нибудь о взрыве боеприпасов, который вот-вот должен 
произойти. Наши машины будут ждать недалеко от входа. Помни, что заложники ничего не 


знают и чувствуют себя достаточно спокойно. Когда все шестеро будут за пределами базы, 
найди способ взорвать эту "богадельню", ну а сам сматывай удочки. У тебя будет несколько 
минут, чтобы унести ноги. 

- Ровно двадцать минут, - сказал Джо Блэйд и пояснил: - бомбы Кракса последней 
разработки срабатывают через двадцать минут после запуска часового механизма. 

- Сумеешь разобраться в коде? 

Джо кивнул. 

- У меня будет тридцать секунд до того, как система самоуничтожения сработает. 
Этого вполне достаточно, чтобы выставить нужную комбинацию. 

Мэр с восхищением посмотрел на собеседника. Он понял, что этот парень знает толк 
в оружии. 

- Запасные патроны есть? - на всякий случай поинтересовался он. 

Джо Блэйд отрицательно покачал головой. 

- Это только сапожник без сапог, а у Кракса всегда можно найти необходимое. Я 
надеюсь, что мне хватит двадцати патронов на первое время. 

- Ну, смотри сам, - нахмурился мэр и, пристально вглядываясь в даль по ходу шоссе, 
тронул шофера за плечо. - Тормози, дальше опасно. 

Следом за ним остановилась, взвизгнув тормозами, машина черного цвета. Блэйд 
нащупал ствол. 

- Моя охрана, - успокоил его мэр. 

Они находились почти за километр от серых кирпичных стен тюрьмы, расположенной 
чуть в стороне от шоссе на небольшом возвышении. Джо Блэйд осмотрелся. Ни души. 
Запретная зона. А по сути - одно из владений Кракса Бладфингера. Мэр и Блэйд вышли из 
машины. 

- Советую пройти тем леском, - мэр вздохнул и добавил: - ну, успеха... Я верю в тебя. 

Они пожали друг другу руки. Чуть пригнувшись, мэр направился ко второй машине. 
Хлопнула дверца, и машины почти одновременно рванули с места. 


|| 

Напевая про себя простенькую мелодию, Джо быстрым шагом пошел по направлению 
к тюрьме и через несколько минут оказался у высокого забора. Вход был чуть в стороне, 
справа, но Джо рассчитывал на внезапность. Недолго думая, Блэйд перелез через забор. Он 
оказался на дорожке, ведущей к одноэтажному кирпичному зданию. Стоявший у входа 
охранник не сразу сориентировался и не успел выстрелить: Джо Блэйд опередил его. "С 
почином", - подумал Джо и тут же увидел ключ, видимо выпавший из рук охранника. Он 
поднял его, подождал пока растворится в воздухе белое облачко и направился к двери. 
Самое трудное было впереди. 

Он оказался в длинном, тускло освещенном коридоре. Здесь никого не было. Крепко 
сжимая в руках распылитель, Джо быстро шел вперед. Он обратил внимание на странные, в 
человеческий рост витражи, которые украшали стены. Рельефный металлический, 
устрашающего вида полу-человек, полу-вампир лязгал клыкастой челюстью. "Бред какой- 
то", - подумал Джо Блэйд. В конце коридора он заметил две человеческие фигуры. 
Блестящая каска и армейский мундир сразу бросились в глаза. Это был охранник. Второго 
он не успел разглядеть. Джо выстрелил в охранника. Когда облако рассеялось, он подбежал 
ближе. В неярком свете Джо увидел человека в строгом сером костюме с надвинутой на 
глаза шляпой. Заложив руки за голову, он сидел, прислонившись спиной к каким то ящикам. 
Похоже, заложник даже не обратил внимания на неожиданное исчезновение охранника и 
появление человека в куртке, кепке и джинсах. Свидание было коротким. Джо Блэйд 
представился сотрудником безопасности, кратко и не совсем внятно объяснил ситуацию 
так, как просил мэр. 

- А мы ждем транспорт, - развел руками делегат конференции и робко улыбнулся. - 
Только я отстал и не знаю, где остальные. 

- К выходу, там вас ждут! - почти выкрикнул Джо, уже открывая дверь в соседний 


коридор. 


Сразу два охранника, чуть замешкавшись, бросились к нему. Дверь захлопнулась в ту 
же секунду и он понял, что обратной дороги нет. Джо уже не успевал уворачиваться от 
здоровенных детин в армейских мундирах. Дав задний ход, он прижался спиной к холодной 
стене и выстрелил прямо в упор. Дым рассеялся не сразу. Джо, впечатавшись в стену, ждал, 
пока воздух очистится от молекул распыленных тел. Однако, как он ни старался укрыться от 
едкого дыма, нескольких вздохов хватило для того, чтобы закружилась голова, а в ногах 
появилась слабость. В этот момент он пожалел о том, что не взял обыкновенный "Узи", хотя 
"Узи" все равно выдал бы его шумом. 

На стене висел ключ от тюремной камеры. Джо снял его с крючка и пробежал до конца 
коридора. Здесь было сразу две двери: одна налево, чуть приоткрытая, другая направо - 
наглухо запертая тяжелая стальная дверь. Джо вставил ключ в замочную скважину стальной 
двери и, распахнув ее, шагнул в ярко освещенный коридор голубоватого цвета. Там 
расхаживал охранник с автоматом наперевес. В секунду его не стало. Коридор был 
свободен. Чувствуя легкое недомогание после прошлой газовой атаки, Джо открыл первую 
попавшуюся дверь. Это был склад. Он ещо никогда не видел такого количества 
боеприпасов. Территория тюрьмы служила надежным хранилищем для оружия мафии 
Кракса. Огромные ящики, стоявшие друг на друге вдоль стен, оставляли лишь небольшой 
проход по центру. "Да ведь они никогда не будут стрелять здесь", - мелькнуло у Джо. Это 
было бы самоубийством. Столь простой и логичный довод прибавил ему сил. Он уверенно 
пошел вперед, внимательно осматривая склад. Неожиданно из-за горы ящиков на Джо 
бросился толстый улыбающийся кладовщик. В его руке сверкнул нож. Прежде, чем Джо 
успел выстрелить, лезвие задело висок. Кладовщик метил в лицо, но не попал. Он 
замахнулся еще раз. Распылитель хлопнул в то мнгновение, когда, казалось, длинный 
кривой нох, как сабля разрубит тело пополам. Но Джо успел. 

Пока растворялось облако, Джо переодевался в мундир охранника, найденный среди 
ящиков с боеприпасами. Тяжелая каска, сапоги, материал, пропитанный специальным 
составом, пожалуй, могли защитить и от опасных молекул распылённых тел, а уж о том, что в 
таком облачении Джо Блэйд ничем не отличался от всех остальных охранников, говорить не 
приходилось. Еще раз внимательно окинув взглядом склад, Джо побежал к выходу. 

Двадцати патронов могло не хватить, и Джо это понимал. Он надеялся, что рано или 
поздно найдет патроны нужной системы. Однако среди этого военного великолепия ничего 
подходящего он не видел. 

Тюрьма поражала своими размерами и Джо Блэйд подумал о плане помещений. 
Конечно, было бы не плохо его иметь, но, как всегда, приходилось рассчитывать только на 
себя. К тому же нужно было экономить время, патроны и силы. Пару раз Джо удалось 
проскочить незамеченным. Но даже когда он лоб в лоб столкнулся с охраной одной из 
камер, никто не обратил на него внимания. Его спасал мундир, найденный на складе. 

Вскоре он нашел бомбу. Огромный шар черного цвета лежал прямо в проходе. Джо 
хотел оставить ее незаряженной, но, перепрыгивая через бомбу услышал щелчок, сигнал 
зуммера, и понял, что жить ему осталось ровно тридцать секунд. Высокочувствительный 
механизм срабатывал от малейшего движения. Код состоял из пяти букв и нужно было 
выставить определенную комбинацию. Шифр Джо знал. Один из продавцов оружия 
рассказал как-то о новой разработке военных - супербомбе, и сказал, что пока идут опытные 
образцы. Шифр прост - АВСПЕ. Именно в такой последовательности следовало выставить 
буквы. Сложность заключалась только в том, что передвигать буквы по табло можно было 
лишь по заданной схеме. Таймер безжалостно отсчитывал секунды. Когда до 
самоликвидации бомбы оставалось пять секунд, Джо установил последнюю букву на место и 
услышал длинный монотонный сигнал. На счетчике засветились цифры 20.00 и начался 
обратный отсчет времени. Теперь остановить таймер не смог бы и Господь Бог. 

Почти одновременно с сигналом неожиданно выстрелило ружье Джо Блэйда. "Что за 
черт?" - подумал Джо. На один патрон, действительно, стало меньше и Джо понял, что 
сильный электромагнит в бомбе заставил сработать электронный боек его ружья. "Такими 
темпами у меня через пять минут будет пустой магазин". Но Джо решил, что лучше 
пожертвовать патронами, чем опоздать, и не стал особо переживать. Ему нужно было найти 


еще пятерых заложников, да и одной заряженной бомбы на тюрьму явно не хватит. 

В следующем помещении Джо понял, что от военной формы придется отказаться. 
Здесь охранники были одеты в ту же форму, но другого цвета. Он не рискнул нарушить 
порядок и в надежде на новую форму стянул с себя старый мундир. Пробежав через 
коридор и стараясь быть незамеченным, Джо нырнул в открытую дверь. Тюремщик с 
большим животом видимо собирался вкусно поесть. На столе стояла бутылка воды, в 
широкой вазе лежали фрукты. Джо не был голоден, но знал, что при молекулярном 
отравления лучше всего помогают именно вода и фрукты. Тюремщик не успел даже вскочить 
из-за стола. "Ради этого стоило потратить патрон", - подумал Джо, доедая яблоко и запивая 
его водой. На часы он не смотрел. Лишняя суета - плохой союзник. Подкрепившись, он 
сразу почувствовал себя лучше. 

Он плохо помнил, как в течение двух минут успел найти и зарядить еще две бомбы, а 
также освободить ничего не подозревающего делегата. 

В длинных коридорах тюрьмы он редко стрелял, предпочитая уворачиваться от ударов 
и пробегать мимо охранников там, где это было возможно, зная, что ни один не решится 
выстрелить в набитой до отказа боеприпасами тюрьме, Джо просто прыгал как пантера 
через ошалевших бойцов и рвался вперед. 

Он еще раз нашел новую, с иголочки, форму и уже в ней, давая себе передышку, 
вышел на улицу во внутренний двор тюрьмы. Теперь стало ясно, что заложников развели по 
разным зданиям и коридорам. Каждый, видимо, думал, что отбился от основной группы. 
Охрана относилась к ним лояльно и поэтому бунта не возникало. Джо посмотрел на 
пасмурное небо и подумал о своем возвращении. Бежать из тюрьмы можно было только 
через выход, минуя коридоры и охрану. Дорогу назад он помнил. В одной из камер он 
оставил нетронутыми еще один мундир и каску, которые позволят уйти незаметно. 

Только сейчас он рассмотрел на часы. До взрыва оставалось одиннадцать минут. 

Убрав охранника возле небольшого кирпичного дома, Джо с радостью обнаружил 
внутри боекомплект для своего оружия. Десять патронов, тщательно упакованные в 
небольшом ящике, быстро перекочевали в магазин распылителя. На душе стало легче. В 
соседней комнате он нашел безмятежно спавшего мирового лидера. Джо объяснил 
ситуацию. Тот быстро согласился и направился бодрым шагом к выходу. Джо знал, что этот 
серый костюм никто не тронет и он спокойно найдет выход и всех остальных. Спустя 
несколько секунд Джо чуть было не поплатился жизнью, оказавшись один на один в тесной 
камере с каким-то заключенным. Вплотную прижав Джо к стене, он принялся душить его. 
Схватка была короткой, но решительной. Силы уже покидали Джо Блэйда, когда ему 
удалось, оттолкнувшись от стены, перепрыгнуть за спину противника и, быстро 
развернувшись, выстрелить тому в живот. 

Сквозь облако испарений Джо увидел, что входная дверь захлопнулась и он оказался в 
каменном гробу из четырех стен. Пот лился градом, а Джо лихорадочно шарил по карманам. 
Наконец ключ был найден. Слава Богу, что он зашел сюда с запасным ключом, иначе 
пришлось бы ему последние десять минут жизни провести за тюремными стенами. Джо 
снова вышел во внутренний двор. Слева от него был целый ряд самых разных построкк, но, 
чтобы проникнуть туда, нужно было пройти мимо центрального поста, а потом уж повернуть 
налево. Бдительный охранник получил свою порцию смертоносного луча, когда пытался 
задержать Джо у входа. Блэйд подошел к дверям. Их было две. Он открыл правую и на этот 
раз интуиция не подвела его: в одной из трех тесных комнат Джо обнаружил комплект 
боеприпасов для распылителя, немного еды и уставшего заложника. Полдела сделано. Ему 
осталось осмотреть ту часть построек, которые находились слева от центрального поста. 
Дверь еще не успела открыться, как в лицо Джо выдохнул перегаром стоявший напротив 
охранник. 

- Стой! Кто такой? 

Вопрос в лоб. Ответ был достоин вопроса. За Джо заговорило его ружье. Легкое 
облако быстро разносил ветер. "Интересно", - подумал Джо, - "они уже ищут меня или нет?" 
Судя по всему, информация о проникшем на территорию тюрьмы постороннем не 
поступала. Джо застал всех врасплох. Чуть больше десяти минут находится он здесь, а 


кажется, что прошла целая вечность. 

У входа в первое здание, слева от главной дороги, сразу два солдата угрожающе 
шагнули к Джо. Он выстрелил. Чуть подумав, решил не идти через дверь, а влез в окно. 

Длинный зеленый коридор показался ему сплошным кошмаром. Он изрядно потратил 
патроны, прежде чем добрался до черной двери. Здесь он нашел сразу несколько ключей: 
они обеспечивали свободу перемещения и были нужны, как воздух. Три ключа Джо оставил в 
запасе для возвращения обратно. Вскоре он нашел еще двух заложников, отдыхавших по 
разным концам коридора. После прощания с ними Джо в темпе осмотрел несколько камер. 
В одной из них он нашел бомбу и на этот раз запустил ее без труда. Минуты летели с 
неимоверной быстротой. Шесть кругов оставалось пройти секундной стрелке до взрыва, а 
онеще не нашел последнего, шестого делегата конференции. Эх, знать бы, где он! 

А заложник был недалеко, в соседнем здании. Джо не стал ничего объяснять. Показав 
ему дорогу к выходу, он помчался по коридору в надежде найти патроны. Патронов он не 
нашел, а за две минуты успел зарядить еще две бомбы. "Подарок Краксу\", - подумал Джо, - 
"шесть бомб - шесть заложников. Меняемся!", - он улыбнулся своим мыслям, однако спустя 
несколько секунд понял, что радоваться рано. Возвращаясь к центральному посту, Джо 
наткнулся на вновь прибывшую смену. Не раздумывая, он нажал на курок, но ружье молчало. 
Патроны кончились, Джо повернул назад. К нему шли еще двое. В отчаянии он применил 
свой коронный прием: прыжок с выброшенной вперед ногой заставил чуть наклониться 
охранника и Джо буквально перелетел через него. Тот бросился сзади, но не успел - Блэйд 
бегал быстрее. 

Три ключа были в кармане. Где-то в глубине самого первого здания его дожидался 
спасительный мундир. Нужно было только успеть. Теперь, видимо, информация о нем 
дошла и его, наверняка, попытаются либо убить, либо взять живым. Выйти из тюрьмы ему не 
дадут... 

...За две минуты до взрыва Джо в форме охранника бежал по коридору к выходу. На 
него не обращали внимания. Все искали коренастого в штатском. 

Последний ключ он вставил в дверь за полторы минуты до взрыва. Дорожка с которой 
он начинал свою миссию, теперь показалась ему слишком длинной. Но все! Он успевает! 

Черный лимузин увозит его прочь от обреченной тюрьмы. В машине, кроме шофера, 
он один. Все остальные готовятся к конференции и лишь немногие знают, что через минуту 
тюрьма Кракса перестанет существовать. 

Все остальное будет потом: награда, всеобщее признание, свобода, наконец. А в эту 
минуту Джо Блэйду хотелось одного: откинувшись на спинку сиденья, вдохнуть глубоко 
воздух и дождаться красного зарева и раскатов грозы над тюрьмой. Джо все еще видел в 
зеркало заднего вида очертания тюремных стен и построек. Он молча ждал. Шофер тоже 
молчал. Только мягкое гудение двигателя да шорох шин нарушали тишину. 
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Эта игра является довольно развитым представителем жанра аркадных адвентюр и 
требует от играющего как быстрой реакции и сообразительности, так и логического 
мышления. 

Фабула игры основана на том, что по неизвестным причинам нарушилась ткань 
времени и в нашу эпоху стали проникать мифические создания и герои древних легенд. Для 
исследования причины такого смешения Вам поручается провести историческую 
экспедицию и побывать в некоторых узловых точках истории человечества. 

Игра многоуровневая, с пятью дозагрузочными этапами. Для перехода с одного 
уровня на другой, необходимо собрать пять энергетических шаров. Первые четыре из них 
обычно находятся довольно легко, последний же, как правило, хитроумно запрятан или 
защищается могучим стражем. 

В верхней части экрана индицируется количество оставшихся попыток и очки (слева), 
жизненная энергия героя и количество собранных шаров (справа), а также задействованный 
в данное время предмет (в центре). Когда герой теряет более 80% энергии, его 
изображение начинает мерцать. 

В начале каждого уровня дается обычно один предмет, используя который Вы 
добываете и другие. Смена предмета - нажатием клавиши ЗРАСЕ. Кнопка "огонь" совместно 
с "вправо" или "влево" позволяет использовать текущий предмет. 


| 
"Тре Воаа то Не/". 
("Дорога вад") 
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Итак, Вы в далеком прошлом. Ваш маршрут начинается под старым кладбищем. 
Единственное исходное оружие - удары ногой или рукой. Они выполняется нажатием 
клавиш "вправо", “влево” или "вверх" при нажатой клавише "огонь". Ногой открываются 
сундуки и разбиваются сосуды, внутри которых могут быть найдены некоторые полезные 
атрибуты, восстанавливающие энергию героя, дающие временную неуязвимость, 
дополнительные заряды ит.п. 


Основные опасности - скелеты, монстры, извергающие огонь, смертоносные вулканы. 
Первые три энергетических шара собрать легко - найдя шар, надо выстрелить в прыжке. 
Шар упадет и его можно взять. С остальными шарами дело обстоит сложнее... 

Расстреляв не менее десяти ходячих скелетов, подберите оставшиеся от них черепа, 
спуститесь на самый нижний этаж и идите влево к огненному озеру. Там бросьте эти черепа 
в пламенные воды. Из пламени возникнет демон. Победив его, Вы сможете по возникшему 
островку добраться и до четвертого энергетического шара. На этом же островке надо взять 
мощное оружие - трезубец и идти к другому огненному озеру. Из середины озера 
поднимется островок, который позволит дойти до гигантского огнедышащего дракона, 
победить которого Вам поможет волшебный трезубец, а боевым трофеем станет ключ, 
которым открывается дверь пещеры, в которой хранится последний шар. 


Последняя задача - переход на новый уровень. Портативный телепортер Вы найдете 
на нижнем этаже, неподалеку от огненных озер. А использовать его надо там, откуда Вы 
начинали игру (место отмечено воротами, на которых есть изображение Вашего 
телепортера). 


1 
"Сгеесе. Роиг Нипагеа ВС". 
(Греция. 400 лет дон. э.) 

Пронизывая пласты времени, Вы попадаете в 400 год до н.э. И вот перед Вами 
древняя Греция. Свой первый шар Вы найдете без труда, а уничтожив мечом пару колонн, 
подберете спрятанные за ними атрибуты и волшебный мешок. Он пригодится впоследствии 
для транспортировки смертоносной головы Медузы Горгоны. 


Если Вы сумеете успешно отразить атаки агрессивных привидений и минуете статую 
льва, то попадете в уютный дворик, в конце которого отдыхает прекрасная нимфа. Однако, 
при Вашем приближении она превратится в огнедышащего монстра, единственное 
спасение от которого - спрятаться за колонну. Вдоволь натешившись, нимфа улетит, а Вы 
станете обладателем еще двух энергетических шаров. 


С опаской поглядывая наверх, откуда начал капать смертельно ядовитый дождь, 
подойдите к пустому портику. В него можно войти и передохнуть, ненадолго присев. 

Ваша следующая задача - Медуза Горгона, охраняющая четвертый шар. Хорошо, что у 
нас есть бронзовый зеркальный щит - им можно прикрыться от ее испепеляющего взгляда. 
Когда возьмете шар, заодно отрубите Горгоне ее голову и осторожно положите ее в свою 
волшебную сумку. 

Если на обратном пути хорошо обыскать пещеры, Вы непременно найдете огромного 
трехголового дракона. Быстро достаем голову медузы Горгоны и с ее помощью уничтожаем 
одну за одной все три головы страшной рептилии. Победив дракона и забрав пятый шар, Вы 
без труда вернетесь за телепортером в пещеру Горгоны, возвратитесь к месту старта и, 
немного отдохнув, продолжите свою экспедицию. 


Ш 
"Зсапатама. Еме Нипагеа АО" 
(Скандинавия. 500 год н.э.) 
Теперь мы попадаем к норманнам в Древнюю Скандинавию. Очутившись на корабле 
Драккаре в разгар свирепого шторма, сопровождающемся громом и молниями, Вы не сразу 
сообразите, что от Вас требуется. 


Осмотритесь, опробуйте свой огромный топор и можете приступать к битве с 
командой корабля. Если сражение пройдет нормально и Вы победите главного викинга - 
конунга, то взяв его оружие, Вы сможете приобрести первый энергетический шар, после 
чего окажетесь уже на суше. 


Здесь Вас ждет толпа злобных гоблинов, вооруженных дубинами. Трофеями этой 
победы будут ножи, которые впоследствии Вам пригодятся. Изредка вашим взорам будут 
представать прекрасные лесные феи - брумгильды, но они не менее опасны, чем гоблины. 
Идя налево и разбивая по пути ящики и сосуды, Вы найдете второй энергетический шар, 
после чего можно начать исследовать правый фланг. 

Погасить жертвенный костер Вы сможете, вызвав дождь с помощью заклинания из 
старинной рукописи. На месте пепелища Вы найдете ключ от замка скандинавского бога 
Одина. 


Двигаясь направо, Вы придете к третьему шару, но дальнейший путь преградит 
злобный дракон Нидхог, справиться с которым Вы сможете только метанием ранее 
собранных ножей с достаточно близкого расстояния. 


Четвертый шар Вы найдете на подступах к замку Одина. Попасть в замок Вы сможете, 
опустив подъемный мост через ров, воспользовавшись ключом из жертвенника. В замке Вас 
встречает сам бог Один. Есть только один предмет, которым можно его поразить. 
Интересно, успели Вы найти к этому моменту молнию? Если да, то победа и пятый шар будут 
Вашими. 

Телепортер найдете на обратном пути, а пользоваться им Вы уже умеете. 


[№ 
"Едур\ Тпгее ТПоизапа ВС". 
(Египет. 3000 лет дон. э.) 


На этот раз Вас забросили в историю еще дальше. На календаре трехтысячный год до 
нашей эры. Древний Египет. Выбравшись из великой реки Нил, подойдите к пирамиде. Не 
правда ли, войти туда не удается? Как будто неведомая сила отталкивает Вас от входа. К 
счастью, в карманах завалялся револьвер и пары выстрелов достаточно, чтобы разнести 
дверь в щепки. Теперь путь свободен! Мы попадаем в пирамиду и спускаемся вниз. 

Главный мотив этого уровня лабиринт. Отсюда пути ведут в разные стороны. Слева - 
четыре ниши, в каждой из которых начинается своя часть лабиринта, а справа от развилки - 
пятая, которая откроется после прохождения первых четырех ветвей. На каждой ветви Вы 
найдете по одному энергетическому шару и по одному древнему предмету - артефакту. 


Начнем свое исследование с самого левого хода. Сразу подберем первый шар. 
Уворачиваясь от острозаточенных маятников и вскрывая по пути сундуки и сосуды 


доберемся до первого артефакта. 

Вернувшись назад, пойдем во вторую ветвь и бежим направо. Здесь по шару надо 
выстрелить издалека. Близко не дайдут подойти острые шипы, торчащие из пола. Впрочем, 
после того, как шар упадет, шипы задвинутся обратно. Забираем его и в левом тупике 
второй ветви берем второй артефакт. 

В третьей ветви у Вас есть интересная возможность восстановить все жизни своего 
героя. Это делается с помощью магического креста. Надо использовать его, стоя под 
изображением аналогичного креста. Стоит время от времени приходить сюда на 
"подзарядку". 

Как и в прочих ветвях, здесь Вы также найдете энергетический шар и артефакт. 

Четвертая ветвь довольно проста, стоит опасаться только шипов в полу. Берем шар и 
артефакт, после чего возвратаемся на развилку. 

Вы увидите, что изображение глаза в пятом проходе начало мерцать. Вставьте на это 
место и используйте такой же предмет, как и глаз - попадете в начало длинного туннеля. 
После тяжелой борьбы Вам удастся прорваться к золотому саркофагу. Здесь надо выложить 
все четыре артефакта и тогда Вы встретите основного противника - огромную золотую 
маску Рамзеса. Победить ее можно с помощью припасенной ранее головы фараона. 


Дальше все просто: взять последний шар, найти телепортер и, собравшись с духом, 
переходить на следующий уровень. 

Примечание: на четвертом уровне следует как можно чаще передвигаться прыжками, 
а не бегом. Здесь много мест с падающими стенами, с шипами в полу, с острыми секирами, 
которые при первом же прикосновении начинают с угрожающей быстротой раскачиваться, 
как маятники. 


\ 
"Бие! мий Батегоп" ("Дуэль с Дамероном") 

Все дальше и дальше мы проникаем вглубь времени. Уже не видно и людей, вот и 
Земля куда-то пропала. Мы летим в бесконечном космосе. Неожиданно перед нами 
поднимается злой демон времени - ангел Хаоса Дамерон. Теперь понятно, кто виновен во 
всех неполадках. Ничего не остается, как сразиться с ним. Победить его непросто. 
Уворачиваясь от летящих в Вас огненных шаров и тщательно прицеливаясь, Вы поражаете 
Дамерона в единственно уязвимое место - туда, откуда вылетают его шары. 


Но он не погиб. Потеряв значительный кусок своего тела, он перестраивается и 
продолжает извергать смертельные заряды. Снова и снова отбиваете Вы от него кусок за 
куском и, наконец, враг повержен. 

Так заканчивается Ваша историческая миссия. Ткань времени восстановлена, 
цивилизация спасена! 


ТНЕ ОАВК \/НЕЕЁ 


Продолжение. Начало см. в 2ХРЕВЮ-92, стр. 175-176, 218-220, 262-264. 


ГЛАВА 5 


Выход из подпространства как всегда сопровождался тошнотой, потерей ориентации 
и головокружением. Легкая дрожь охватила тело. Прямо перед ними, на приличном 
расстоянии тускло светил красно-голубой диск планеты Ксезавр. Он не очень выделялся на 
фоне сверкающих звездных полей. Тусклое солнце этой системы находилось неподалеку. 
Умирающая звезда с трудом проливает красный свет на этот застывающий мир. И никакая 
индустриальная и научная мощь планеты не в силах остановить этот неумолимый процесс 
старения галактики. 

Да, Ксезавр превратился в мир, в котором уют и тепло ценятся превыше всех благ на 
свете. Вот где они получат достойную цену за те шанаскилские меха, которыми загружен их 
корабль. 

Как обычно, все шло по раз и навсегда установленному порядку. Подходит к концу 
еще один скучный торговый рейс. Элиссия сладко зевнула, а Алекс ввел замеренные 
координаты в автопилот и приготовился убить время, необходимое для скучного подхода к 
планете. 

Однообразный, установленный порядок, к которому Алекс уже давно привык: выход из 
подпространства, медленный перелет, швартовка у станции "Кориолис", - и нечего делать, и 
не на что смотреть. 

Вдруг "Кобра" вздрогнула, эхом в боевой рубке отозвался скрежет разрываемого 
металла. 

- Унас компания, - вскрикнул Алекс. 

Элиссия очнулась от сна и захлопала удивленными глазами, стряхивая остатки 
дремоты. Она поняла ситуацию в мгновение ока, но осталась неподвижной в своем кресле. 
Алекс был у консоли и уже владел ситуацией. 

В какой-то степени его поймали врасплох. И дело вовсе не в элементарной 
невнимательности, дело в том, что атакующие корабли оказались необычно близко к точке 
выхода из гипертуннеля. Более того, они занимали положение между объектом своей атаки 
и солнцем, так что какое-то время оставались невидимыми и имитировали при этом 
движение астероидов, беспорядочно кувыркаясь и дрейфуя в пространстве. 

Алекс в общем-то их видел, но проигнорировал и теперь его "Кобра" приняла на себя 
первый залп. 

Противники сгруппировались сзади и образовали боевой порядок. Непрерывно 
сканируя пространство, Алекс набирал максимальную скорость. 

Вновь заскрежетали энергетические щиты, на которых заиграло лазерное пламя 
очередного залпа. 

- Лучевые лазеры! Да, эти корабли неплохо вооружены. - подумал Алекс, - но и наша 
"Немезида" теперь им не уступит! 

"Немезида" - такое драматическое имя древней богини мести дали Алекс и Элиссия 
своему кораблю. 

Алекс включил экран заднего обзора, подогнал прицельный квадрат и дал две 
коротких вспышки из новехонького кормового лазера. 

Корабли противников сломали строй и разошлись. Один из них закувыркался. Пока 
враг был на экране, Алекс нацелил ракету. 

О приближении вражеской ракеты оповестил экран, вспыхнув сообщением об 
опасности, впрочем Алекс видел ее и так. Он немедленно привел в действие систему ЕСМ и 
после томительных секунд ожидания ракета исчезла в жаре и пламени. 

Тряхнуло корпус и Алекс нырнул вниз. Краем глаза он успел заметить сброс энергии 


защитных экранов в первый энергетический отсек. 

Элиссия спокойно сидела в своем кресле. Алекс уверенно владел ситуацией. Прямо 
перед ними стремительно нарастал диск планеты. Казалось, что он то взлетал, то падал, 
вращаясь при этом с головокружительной скоростью - это Алекс маневрировал, занимая 
наилучшую боевую позицию. 

Он действовал почти инстинктивно. Резко развернув свой корабль, он вдруг 
решительно бросил его навстречу ближайшему преследователю. Это оказался "Фер-де- 
Ленс", быстрый и изящный корабль, по-видимому сверху донизу забитый самым 
изощренным навигационным и боевым оборудованием, установленным его прежним 
владельцем. Впрочем, может быть и нет... Для содержания такого оборудования 
необходима куча денег, а этот корабль уже многое повидал на своем веку. 

Сближаясь с пиратом, Алекс решил применить ракету. У них на борту было четыре 
ракеты, причем одна из них уже была нацелена. Он нажал на пусковую клавишу, "Кобра" 
вздрогнула, смертоносный снаряд пошел к своей цели. Она нашла ее и "Фер-де-Ленс" 
буквально исчез. 

"Может ушел в гиперпереход?" - подумал Алекс, - "Вроде не похоже". На самом деле 
он проскочил мимо противника и теперь, включив задний экран, увидел огромное 
отливающее серебром облако, быстро расширяющееся навстречу звездам. 

- Отличная стрельба! - вдохновенно откликнулась Элиссия. 

Из облака пепла и металла проступили контуры другого корабля и Алекс вновь ушел в 
петлю. Новый лазерный заряд принял на себя кормовой экран. Теперь, когда охотник знал, 
что его жертва обладает системой подавления ракет, он решил "сесть на хвост" и добивать 
ее лазером. 

Это тоже была "Кобра". Грузоприемники широко распахнуты, готовые подобрать 
контейнеры с драгоценный шанаскидским мехом разбитого торговца. 

Но у Алекса на сей счет были иные планы. Маневр. Ксезавр опять перед ними. Огонь 
кормового лазера. Нырок вниз, разворот, выход в непростреливаемую зону и Алекс нацелил 
новую ракету. 

- Не надо, побереги ее, - с сожалением вздохнула Элиссия. 

- Я знаю, но нам хватит денег на замену, - сказал Алекс. 

- Тогда не хватит на энергозаборники, - напомнила Элиссия и оба от души 
расхохотались. В такое время они думали о новых покупках! 

До станции с ее системой обеспечения безопасности оставалось еще слишком 
далеко. Алекс сделал крутой вираж к солнцу и резко сбросил скорость. Преследователь 
идеально повторил первый маневр, но на несколько секунд запоздал с ориентацией и не 
успел затормозить. Он не успел еще понять, что произошло, а охотник и жертва уже 
поменялись местами. 

- Давай, Алекс, давай! - кричала в восторге Элиссия, а Алекс вгонял один за другим 
лазерные заряды в тело вражеского корабля. "Кобра" на экране крутилась и 
изворачивалась, но Алекс не думал, он только реагировал и методично добивал противника. 
Температура носового лазера опасно повысилась. Пират выпустил ракету, но Алекс не стал 
отвлекаться на программирование ЕСМ и спокойно расстрелял ее лазером. 

У Элиссии перехватило дыхание и она в восторге смотрела на юношу, уверенно 
державшего в руках их жизнь и судьбу. 

Еще через мгновенье все кончилось. Пират взорвался, энергии его защитных полей не 
удалось сдержать такой натиск. Алекс успел увидеть мелькание спасательной капсулы и на 
мгновенье вспомнил ту вспышку огня, которая уничтожила его собственный корабль, он 
вспомнил гибель родной "Авалоним". 

Его первой реакцией было броситься в погоню, но подумав, он успокоился и 
отказался от этой идеи. А вокруг сверкали и кувыркались контейнеры с разбитого корабля. 

- Подумать только, какая жалость, что у нас до сих пор нет грузозаборника! — 
пробурчала Элиссия. 

Зато мы получим премию за пиратов, - ухмыльнулся Алекс, - и притом за двоих. 

- Алекс, ты был великолепен. Летать с тобой между звезд - большая честь. 


Алекс спокойно вел свой корабль к планете и больше никто не сказал ни слова. Они 
даже не упомянули тот факт, что это было первое настоящее сражение, которое он провел 
без ее помощи. 


ГЛАВА 6 


Они уже торговали в течение трех месяцев и теперь в "Немезиде" трудно было бы 
узнать ту "Кобру", которая когда-то была надгробным камнем Генри Белла. Покрашенная, 
расцвеченная опознавательными знаками, оснащенная новыми боевыми надстройками, она 
все более и более походила на боевой корабль. 

Три месяца торговли и ни на час Алекс не забывал о главной цели своей жизни. Кто-то 
или что-то, замаскировавшись под мирного торговца, убил его отца и сделал это 
преднамеренно. Да, его отец вел сложную жизнь и, согласно неписанной галактической 
традиции, сделал все возможное, направив и сына по тому же пути. И Алекс Райдер 
оправдает веру отца. 

Вопросов перед Алексом возникало не меньше, чем боли и гнева. То же состояние 
переживала и Элиссия, хотя она, как и все женщины Теорга, редко проявляла свои эмоции. 
Тем не менее, Алекс чувствовал кипение горячих чувств под холодной внешнее оболочкой. 

У них была общая задача. Они должны были выжить, стать сильными и отомстить. Им 
предстояло долго вместе ждать и оба понимали, что лучшего и более молчаливого партнера 
для своей цели им не найти. В то же время, им обоим было нелегко... 

Встреча с пиратами немного повредила кораблю. Здесь и там пострадала краска, 
разболтались некоторые панели облицовки боевых надстроек. Это означало необходимость 
посещения станции обслуживания. Впрочем, этой возможностью стоило воспользоваться, 
поскольку им, как победителям пиратов, этот сервис полагался бесплатно. 

Это сражение для Алекса было первым самостоятельно выигранным боем, но это был 
не первый их бой. Если бы Элиссия не скрывалась, она вполне имела бы право подавать 
заявку на ранг "Опасный". А так как ей приходилось сохранять свое инкогнито, все победы 
заносились в реестр Алекса. Сегодняшний бой Алекс воспринял как значительный шаг 
вперед и впервые у него появилось чувство, что он по-праву носит тот ранг, который ему 
присвоили благодаря успехам Элиссии. 

Он направил свой корабль внутрь тысячекилометровой зоны над поверхностью 
планеты и ее диск заполнил собой весь экран переднего обзора. Корабль развернулся на 
самой малой скорости и медленно вращающийся металлический куб засверкал перед ними 
- планетная станция с распахнутым зевом приемного отсека. 


- Кстати о стыковочном компьютере.., - начал было Алекс, уравнивая скорости 
вращения корабля и станции. 
- Пустая трата денег... - пресекла его попытку Элиссия. - Если ты не можешь 


стыковаться так, чтобы не ободрать краску с бортов, тебе вообще нечего делать в космосе. 

Алекс был прекрасным пилотом, но вход в приемный отсек станций типа "Кориолис" 
был его самым слабым пунктом. Он, конечно, сделал это и на сей раз, но вздохнул спокойно 
только тогда, когда корабль, вошедший в просторный ангар, был подхвачен магнитным 
манипулятором и притянут к свободному стапелю. Тут же стыковочная штанга автокома 
скользнула вдоль корпуса и подключилась к разъемам корабля. 

Покя Элиссия как обычно пряталась в спасательной капсуле, Алекс с интересом 
рассматривал кубическое внутреннее пространство станции: таможенные, полицейские, 
рекламные корабли, ремонтные модули, - все это медленно перемещалось в пространстве. 
У каждого свое дело, каждый знал свой бизнес. 

По каналам автокона Алекс доложил о грузе на борту и получил подтверждение 
регистрации победы над пиратами и свидетельство начисления призовых тридцати кредов. 
Это как раз то, что нужно для покупки новой ракеты. 

Когда все формальности проверок и перепроверок были закончены, Элиссия наконец 
покинула свое убежище. Так уж получилось, что именно спасательная капсула стала для них 
предметом первейшей необходимости, без которого они не могли бы посетить ни один 
порт. Им удачно удалось купить подержанную всего за четыре сотни и само собой 


разумеется, что они не собирались использовать ее по назначению. 

Теперь начались обычные торговые процедуры. Сначала продажа, затем обсуждение 
очередного рейса и, наконец, покупка нового товара. 

Торговля во многом напоминает игру. При известном спросе и быстром обороте 
всегда можно получить небольшой, но надежный доход на продуктах, текстиле, простейшем 
промышленном оборудовании и незамысловатых безделушках для богатых. Но непрерывно 
возрастающая стоимость обслуживания корабля и потери от периодических стычек очень 
скоро съедают эту скромную, с таким трудом полученную прибыль, после чего все 
предприятие становится практически бессмысленным. Узнать цену на те или иные товары в 
другой звездной системе нет никакой возможности. Все правительства ревниво оберегают 
коммерческую информацию о своих рынках. За передачу информации о ценах по каналам 
факс-связи следует очень тяжелое наказание. 

Естественно, цены нестабильны. Во всех системах, даже в самых бедных, орудуют 
сети спекулянтов. Еще вчера за тонну пусторесничника, купленного на Реорте за три креда 
давали на Цейнзиле по восемь, а сегодня с трудом покупают всего за два. И дело вовсе нев 
том, что спрос на пусторесничник сократился. Просто банда спекулянтов сыграла свою игру 
и подмяла рынок. 

До сих пор Алексу и Элиссии везло. Они перевезли варгорнские шелка от Рексебе на 
Инеру и удвоили свою первую сотню кредов. Потом они торговали золотистой чешуей 
геретеанских рептилий и с трудом вернули затраченное. Они поставили двадцать тонн 
семян подсолнечника амфибиоидам на Биерле, для которых это был изысканный деликатес 
и лишь прибыв к месту назначения с удивлением обнаружили, что всепланетная мутация 
изменила вкусовые железы обитателей... и поставила последних перед проблемой поиска 
новых деликатесов. Достаточно близко подходили для этой цели ароматические масла и 
лавандовая туалетная бумага, но все же это не то. Где-то все-таки должна быть возможность 
НАСТОЯЩЕГО дохода и рано или поздно он придет. 

Переброска оборудования из высокоразвитых миров в среднеразвитые оказалась 
весьма прибыльным делом. Алекс и Элиссия быстро поняли также, что на развивающихся 
промышленных планетах всегда можно иметь хороший доход от торговли предметами 
роскоши, но самой прибыльной обещала стать операция с продажей шанаскилского меха на 
Ксезавре. Они купили его по тридцать кредов за тонну и сейчас Алекс в нервном 
напряжении ожидал ответа на запрос биржевых сводок по мехам. 

Он не удержался и в триумфальном жесте вскинул руки, когда понял, что они с 
Эмиссией утроили свой капитал. На этот раз им улыбнулось настоящее счастье. 

Мех они продали без проблем и запросили сводку цен на бортовое оборудование и 
вооружение. Новая ракета стоила свои стандартные тридцать кредов. Алекс заказал одну и 
автоматический робот приступил к исполнению заказа. Лучевые лазеры по тысяче за штуку 
являли собой почти непреодолимое искушение. Топливо и совершенно необходимое 
энергогрузозаборное устройство обходились в пятьсот двадцать пять, а энергетическая 
бомба стоила еще вдвое больше. 

Конечно, энергозаборники обещали большую экономию. Можно будет в дальнейшем 
не тратиться на горючее, а пополнять баки, подпитываясь от звезд. Это было хорошее 
вложение, даже при том, что цены здесь были на сотню выше, чем обычно. Алекс заказал 
одно устройство. На доставку и монтаж уйдет примерно двадцать часов (один стандартный 
день). Заправив корабль, Алекс приступил к изучению списка Ксезаврианских деликатесов. 
У них еще оставалось триста двадцать кредов - сумма, с которой чувствовать себя было 
неуютно. С другой стороны, корабль имел дополнительную энергетическую защиту, лазеры 
с четырех направлений, полный боекомплект ракет и грузозаборник. Пройдено более 
половины пути превращения торговой "Кобры" в боевой крейсер. 

Элиссия тоже внимательно изучала список. Удивительно, но ксенозаврианцы, 
большие любители экзотики, мало что могли предложить в этом плане. Так, например, всего 
два вида наркотиков было на рынке: арктурианский лопнитрав и, как ни странно... табак. 
Алексу было над чем подумать. 

- Думаю, что с табаком можно было бы попробовать... 


- Не-а, - промолвила Элиссия. - Не выйдет, никотин смертелен в малых дозах для 
большинства рас. 

- Аесли в гуманоидную систему? 

- Все равно опасно. 

Широко предлагались минералы, но цены были не те. Дюрасьон - руда, из которой 
после очистки и старения получают дюралиум для строительства кораблей, шел всего по 
восьми за тонну. А он исключительно хорошо продается на Лейве, но до Лейва отсюда 
столько световых лет! Не подходит. 

Драгоценные камни? Предлагались каштанит и серебристый спектонал. Еще были 
красно-зеленые эмеронды. Но пираты учуют такую добычу даже за пару световых лет. 

Чисто из любопытства Элиссия обратила внимание на продажу двухсот окаменевших 
костей диронофаксаурина по сорок кредов за штуку. 

- Когда нибудь слышал о них? 

Алекс ответил: 

- Даже видел одну в музее у себя дома. Они живые и поют. Им более сорока 
миллионов лети, тем не менее, они поют. Непонятно, чего они ждут. То ли им нужна какая-то 
наседка, то ли ждут изменения климата. Это тазовые кости, так что возможно, что они 
служат чем-то вроде инкубационной камеры, но толком никто ничего не знает. 

- Аони ценятся? 

- Очень, хотя точную цену я не знаю. 

- Проверь по списку запрещенных грузов. 

Алекс проверил. Никаких известных ограничений на импорт этих окаменелостей он не 
нашел, 

- Кажется, это интереснее, чем еда. 

- Это уж точно. 

- Так берем..? 

- Пожалуй... 

Но не успел Алекс набрать на клавиатуре заказ торговому центру, как вспыхнул экран 
"Получено сообщение...". 

- Рейф. - радостно сказал Алекс. Элиссии тоже понравилась перспектива повидать 
Рейфа Зеттера и поговорить с ним еще раз. 

Но вовсе не старый космический торговец появился на экране, когда Алекс вышел на 
связь. 

Изображение на экране явно принадлежало человеческому существу, а не гуманоиду. 
Но его лицо не поддавалось никакому описанию. Есть масса способов изуродовать человека 
до неузнаваемости и превратить его в подобие ночного кошмара, например пролететь 
слишком близко от звезды, слишком часто подвергаться воздействию межзвездного 
вакуума, поработать в некоторых рудниках... Но сейчас, глядя на бугристые серые опухоли, 
покрывающие плоть человеческого лица, Алекс не мог себе даже представить что 
произошло с его собеседником. 

Губы, как обрывки паутины, затрепетали на серой плоти, скелетообразная скрюченная 
рука, сквозь которую просвечивали красные кровеносные сосуды, коснулась тонкой пряди 
волос, причудливо спадавшей с деформированной головы. 

- Ты Райдер? 

По крайней мере, голос был нормальным и притом мужским. 

- Назовите себя. 

Игнорируя вопрос, незнакомец продолжал. - Чем сегодня торгуешь? Минералы? 
Специи? 

- Авам зачем? 

- Не знаю твоих планов, но что бы ты ни делал, у меня есть для тебя предложение 
получше. 

- Не стал бы с тобой торговать даже ради спасения от сверхновой. 

- АРейф Зеттер бы стал. Чего это ты такой нервный? 

- Ты знаешь Рейфа? - удивился Алекс, озадаченный упоминанием знакомого имени. 


- Ияи пол Вселенной. - Изуродованный человек наклонился вперед. Черты лица 
заняли весь экран. Это паразиты. 

- Не понял?! 

- Я говорю, это паразиты, - незнакомец прикоснулся к лицу. - Личинки пауков. Я 
работал на Дикстре, где и пришелся по вкусу этим червякам. Здесь их пара миллионов. 
Период инкубации примерно десять лет - это и будет моим концом. Хотел бы я быть на 
торжественном обеде у своего недруга, когда меня разорвет, но так трудно все точно 
рассчитать! В общем, парень, я не виню тебя за то, что ты мне не доверяешь, но не надо 
судить только по внешности, Алекс. Ты ведь Алекс, не так ли? Я имею в виду, скажи ради 
бога, туда ли я попал? 

- Да, я Алекс Райдер. 

- Ая Патрик Мак Греви. Я хочу сказать тебе только две вещи. Первое: убей змею. 
Приложи это привидение, которое преследует меня целых пять лет. Я не пилот. Кто я, не 
имеет значения, но таких, как я, больше, чем подсолнечных семечек, которые ты перевез за 
свою жизнь. Мы ждем возмездия и не можем получить его сами. Убей змею и ты поможешь 
всем нам. 

Алекс не смог сдержать усмешки на своем лице, хоть и понимал, что менее всего 
сейчас пристало улыбаться. Он чувствовал, что им манипулируют. Им управляют, как 
запрограммированным роботом, заставляя ходить по замкнутому бессмысленному кругу. 
Что происходит вокруг него, черт побери?! Еще три месяца назад его счет побед 
фиксировался только на имитаторе. Краска на его лицензии еще не высохла и, тем не 
менее, какие то силы выбрали именно его орудием мести не опасному, а смертоносному 
противнику. 

За ним наблюдает много людей и все они затаив дыхание чего-то ждут. Почему он?! 
Почему именно он?! И как сюда встраивается Элиссия? 

- Хорошо, - спокойно сказал он. - Я понял. Но ты сказал: "Две вещи". 

- Именно. Скажи, это Рейф посоветовал тебе провернуть операцию с шанаскилским 
мехом, как только ты сможешь ее осилить? Я прав? 

Он был прав, это был один из последних ценных советов Рейфа, и Алекс его не забыл. 

Мак Греви продолжал: 

- Дав тебе такой совет, Рейф тем самым послал тебя ко мне. Тебе нужно подковать 
свою клячу. Ты должен взять на борт что-то действительно стоящее. Лети в Саут-Сити, 
найдешь центр частной торговли в Комплексе Магеллана. 

- Яуже подковал свою клячу. 

- Это ты так считаешь. Тем не менее, лети ко мне. Не упусти хороший шанс. Саут- 
Сити. Комплекс Магеллана... 

Алекс колебался недолго. Он глянул на Эллссию. Пожав плечами, она кивнула, и Алекс 
принял предложение. 


(Продолжение следует). 
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МКП "ИНФОРКОМ" 121019, Москва, Г-19, а/я 16 


Вниманию читателей! 

С этого номера мы начинаем публикацию адресов пунктов, где Вы можете приобрести 
наши материалы: 

г. Воронеж. Студия компьютерных игр ЗАМ-ЗАМ. Магазин-салон "Электроника". Тел. 
14-00-73. 

г. Днепропетровск, ул. Шевченко, 34. Фирма "ЭКОС". 

г. Нижний Новгород, ул. Горького, 146. Маг. "Фотолюбитель". ИМА "Ф-ПЛЮС". Тел. 
35-07-18. 

Вниманию дистрибуторов! Адреса наших оптовых покупателей публикуются 
бесплатно. 


Спектрум в школе 


В этот раз мы предлагаем учебную программу по математике. Но прежде, чем 
переходить непосредственно к программе, остановимся вот на каком вопросе. Выполните: 
РАМТ 10000000. На экране, как и следовало ожидать, будет напечатано: 10000000. Теперь 
выполните: РАМТ 100000000. Сейчас число на экране выглядит иначе: 1Е+8. Вы видите 
особенность вывода на экран числовых значении большой величины. Для большинства 
случаев этот вариант подходит, а может быть и более удобен. Но представьте себе, что Вы 
создаете программу по бухгалтерскому учету или по математике и надо, к примеру, точно 
знать результат сложения двух десятизначных чисел с точностью до последнего знака. 

Попробуйте выполнить простую Бейсик-программу: 

10 ТЕТ А=100000001 
20 [ЕТ В=100000000 
30 РАТМТ А; "-";В; "="; А-В 
На экране Вы увидите: 
1Е+8-1Е+8=1 
А желательно было бы видеть: 
100000001-100000000=1 

Осуществимо ли это? 

В качестве примера, показывающего, как практически достигается такой результат, 
мы приводим учебную программу по математике, которая будет заниматься разложением 
чисел на сомножители. В том случае, если число ни на что не делится, то значит оно 
является простым. Программа называется "РЕШМЕ" (что в переводе означает "простое 
число"). Ее можно использовать как для разложения чисел на сомножители, так и только для 
поиска простых чисел, для чего в предлагаемой программе предусмотрен специальный 
режим. Максимальная величина числа, для которого можно получить результат с точностью 
до последнего знака, равен 2 в степени 32, что составляет 4294967296. 

Программа русифицирована по методике, приведенной в "7Х-РЕВЮ"-92, М1,2; стр. 
29. Итак, текст программы: 

1 60 ТО 100 

2 СЕЕАВ 64599; 1ОАБ “спг” СОБЕ 64600 

4 НИМ 
5 ЗА\МЕ "РАТМЕ" 1ТМЕ 2: ЗА\УЕ “сиг” С00Е 64600, 768: ЗТОР 
8 РОКЕ 23606, 88: РОКЕ 23607, 251: ВЕТИУВМ 

9 РОКЕ 23606, 0: РОКЕ 23607, 60: ВЕТИАМ 


20 РНТМТ #0; АТ 0,0; “ ПРОДОЛЖЕНИЕ - ЛЮБАЯ КЛАВИША ВВОД НОВОГО ЧИСЛА - [5РАСЕ]” 
22 РАЦЗЕ 0: ТМРОТ ; 

29 ВЕТИВМ 

40 ТЕТ Н=ТМТ(М/ЛЕЗ) 

42 ТЕ МОТ Н ТНЕМ РАТКЮТ №; : ВЕТОВМ 

44 РАТМТ Н; (5ТА$ (№-1Е5*(Н-1)))(2 ТО); 

49 ВЕТОНМ 

100 ВОВОЕВ 1: РАРЕН 7: ТМК 0: С1$ 


120 60 508 8 

130 РАТМТ АТ 2, 7; "МАТЕМАТИКА" 

140 РВТМТ АТ 5, 4; "РАЗЛОЖЕНИЕ НА СОМНОЖИТЕЛИ” 
200 РВТМТ АТ 12,4; "[$] - ПОИСК СОМНОЖИТЕЛЕЙ" 
210 РАТМТ АТ 14,4; "[Р] - ПОИСК ПРОСТЫХ ЧИСЕЛ” 


220 РАЦЗЕ 0: ТЕ ТМКЕУ$<>"5" АМО ТМКЕУ$<>"Р” ТНЕМ 60 ТО 220 
300 ГЕТ Т$=ТМКЕУ$: С1$ 
500 ТМРИТ АТ 0,0; “ВВЕДИТЕ ЧИСЛО <=4294967296 “;Т: ЕТ М=Т 
ОВ /=1 ТО 10 
1010 ТЕТ М=М 
0 $0В 2000 
Е М=Т ТНЕМ 60 $0В 20: ТЕ ТМКЕУ$=” " ТНЕМ 60 ТО 500 
1040 ТЕТ М=М+1 
1050 МЕХТ 4: РАТМТ 

60 5ЦВ 20: ТЕ ТМКЕУ$=" “” ТНЕМ 60 ТО 500 
1100 60 ТО 1000 

ВЕЗТОВЕ 2800: ТЕ 1$="5" ТНЕМ 60 50В 40: ТМК 1 


г 
(<>) 
(>) 
"82 
— 


1 

(>) 

>) 

[<= 
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2010 ТЕТ Е=0: ЕТ 0=0 
2020 РОВ В=0 ТО 52 
ВЕАО 7: ЕЕТ 0=0+7 
2100 ТЕТ 09=№/0: ТЕ 0<0 ТНЕМ 60 ТО 2200 
2110 ТЕ 1$="Р” АМО 0=ТМТ 0 ТНЕМ ЕЕТ М=М+1: ЁЕТ №=М: 60 ТО 2000 
2120 ТЕ 1$ = "5" АМО 0= 1М№МТ 0 ТНЕМ РВТМТ “=” АМО МТ Е; 0; "*”;: ЕЕТ Р=1: ЕТ №=0: 60 ТО 2100 
2130 МЕХТ В 
2140 ВЕЗТОНЕ 2900: [ЕТ В=4: МЕХТ В 
2200 ТЕ 1$="Р” ТНЕМ 60 50В 40 
2210 ТЕ МОТ Е ТНЕМ РВТМТ ТМК 2;"” ПРОСТОЕ ЧИСЛО“; 
2220 ТЕ Е ТНЕМ 60 50В 40 
2300 ТМК 0: РАТМТ : НЕТОАМ 
2800 ВАТА 2,1,2,2,4 
2900 ВАТА 2,4,2,4,6,2,6,4,2,4,6,6,2,6,4,2,6,4,6,8,4,2,4,2,4,8,6,4,6,2,4,6,2,6,6,4,2,4,6,2, 
6,4,2,4,2, 10,2, 10 
Автостарт программы происходит со строки 2, где загружается символьный набор, 
после чего выполняется переход на начальную строку программы. Фактическое начало 
программы - строка 100. В строке 120 происходит включение режима САР$З 1ОСК, это 
позволяет упростить опрос клавиатуры при помощи 1МКЕУ$. 
После подготовительных операций на экран выводится главное меню программы, в 
котором два пункта: 
"ПОИСК СОМНОЖИТЕЛЕЙ" 
"ПОИСК ПРОСТЫХ ЧИСЕЛ" 
Нажав "5" или "Р", мы переходим на строку 300, где продолжается работа программы. 
В переменной 1$ запоминается выбранный режим. В строке 500 предлагается ввести 
исследуемое число. Анализ его начинается в строке 1000. Введенное значение числа 
присваивается переменной М, которая является входной величиной для подпрограммы СО 
ЗОВ 2000, которая выполняет поиск сомножителей и вывод результата на экран. После 
этого программа делает паузу. Теперь, если нажать "ЗРАСЕ", можно вернуться к запросу 
нового числа. Если нажать любую другую клавишу, то анализ чисел будет продолжен со 
следующего числа (большего на 1). То есть, можно как анализировать числа по одному, 
вводя их по запросу, так и анализировать массив идущих подряд чисел, введя значение 
начального числа. Во втором случае вывод результатов будет производиться блоками по 10 
чисел (определяется переменной \ в строке 1000). После вывода каждого блока результатов 
можно нажатием "ЗРАСЕ" опять вернуться на запрос нового числа, если это нужно. 


Перед вызовом подпрограммы 2000, значение числа М присваивается временной 
переменной М. Это необходимо делать, так как в результате работы подпрограммы 2000, 
значение ее входной переменной М будет испорчено. 

Переменная Е в подпрограмме 2000 является флагом, переключающимся из Ов 1 в 
том случае, если найден хотя бы один сомножитель для данного числа, то есть если число не 
простое. Переменная 0 - это возможные сомножители. Весь ряд сомножителей получается 
путем увеличения очередного значения О на величину смещения, полученного из строк 
ОАТА. Действительно, если попробовать получать значения О при помощи формулы в строке 
2030, то получим числа возможных сомножителей: 2,3,5,7,9 ... и так далее. Это ничто иное, 
как ряд простых чисел. 

Строка 2100 проверяет, все ли возможные сомножители проверены. Если все, то 
переход на строку 2200 для вывода результата. Строки 2110 или 2120 (в зависимости от 
заданного режима) проверяют, делится ли исследуемое число на сомножитель без остатка. 
В режиме анализа всех чисел, в том случае, если делится без остатка, то значит найден один 
из сомножителей, происходит вывод его на экран и установка флага Ё (строка 2120) и далее 
выполняется продолжение анализа остатка от деления для поиска остальных 
сомножителей. В режиме поиска только простых чисел, зафиксированное деление без 
остатка говорит о том, что это число не простое, поэтому дальнейший анализ не нужен и 
выполняется переход к проверке следующего числа (строка 2110). 

Строка 2200 выполняет печать исследуемого числа и всех его сомножителей, если 
они есть или печать сообщения о том, что число простое. Собственно печать чисел 
выполняется подпрограммой СО ЗВ 40. Здесь, если число меньше, чем 100000, то 
происходит обычная его печать, а если больше, то печать выполняется в два приема. 
Сначала печатается то, что выходит за пределы 100000 (переменная М, строка 44), затем, 
для того, чтобы напечатать младшие разряды, происходит преобразование значения числа в 
стринг. Поясним происходящее на примере. Пусть нам надо напечатать число 4000000027. 
Сначала берутся старшие разряды числа: Н=40000, теперь вычисляется "остаток", 
увеличенный на 100000, и происходит печать его за старшими разрядами: 


надо: 4000000027 
печать]: 40000 <- число 
печать2: 100027 <- стринг 


Т эта единица не выводится, так как полученный стринг печатается (2 ТО). 


В заключение отметим, что поскольку программа производит многократные 
вычисления при поиске сомножителей, и рассчет выполняется в Бейсике, то получение 
результата для больших чисел может занять достаточно продолжительное время. 
Представьте себе, сколько сомножителей надо перебрать для того, чтобы убедиться в том, 
что десятизначное число является простым! Например, для числа 4294987291 - требуется 8 
минут! Поэтому в качестве усовершенствования этой программы мы можем посоветовать 
читателям попробовать скомпилировать подпрограмму со строки 2000 для ускорения 
выполнения вычислений. 


Маленькие хитрости 


Стилизованные шрифты 


Вы, наверное, видели, как во многих программах применяются «стилизованные» 
шрифты. Утолщённые, наклонные и другие разновидности придают программам особую 
привлекательность. Если для этой цели применять загружаемый символьный набор, 
который занимает почти килобайт памяти, то требуется соответствующее время при 
загрузке программы, которая порой меньше, чем сам символьный набор. Поэтому для 
получения оригинальных шрифтов можно воспользоваться несложными процедурами в 
машинных кодах. Правда, выигрыш во времени загрузки получается только в том случае, 
если используется символьный набор ПЗУ, поскольку русский шрифт всё равно приходится 
загружать. Однако в обоих случаях появляется возможность разнообразить программу, 
используя один базовый символьный набор и оригинально модифицируя его. Например, в 
одном режиме работы программы вывод осуществляется утолщённым шрифтом, в другом - 
наклонным, в третьем - готическим и т.д. Для этого не надо загружать такое число 
символьных наборов, а все их можно получить из основного - базового. 

В качестве примера, поясняющего вышесказанное, приводим простую Бейсик- 
программу, построенную на использовании машиннокодовых процедур, в основе которых 
лежат операции с битами. Преобразования выполняются с символьным набором ПЗУ, но Вы 
можете использовать изложенные принципы и для модифицированных загружаемых 
символьных наборов. 


4 60 ТО 100 

8 РОКЕ 23606,0: РОКЕ 23607, 117: ВЕТУВМ 

9 РОКЕ 23606,0: РОКЕ 23607,60: НЕТИВМ 

40 РОВ п=64 ТО 127: РАТМТ СНВ$ п;: МЕХТ п: РАТМТ '*: ВЕТОВМ 

50 НЕЗТОВЕ 50: РОВ п=30000 ТО 30029: ВЕАБ а: РОКЕ п, а: МЕХТ п 

55 ОАТА: 35, 0, ВЕ 17,0, оО эр, ИОВ, 8 ОЗ лаб, ЭРО оли, 95, Та, 119, 
32, 244, 201 
59 60 10 80 

60 НЕЗТОВЕ 60: РОВ п=30000 ТО 30041: ВЕАБ а: РОКЕ п, а: МЕХТ п 

6> ВАТА 35,0, 61..17,0,118, 1,0, 3,:237,176,33,0718,14;96,6,2,126,203,53,203.63,119:35,16,247;6, 
4, 126, 203, 63, 119, 35, 16, 249, 35, 35, 13, 32, 231, 201 

69 60 ТО 80 
70 НЕЗТОВЕ 70: РОН п=30000 ТО 30035: ВЕАВ а: РОКЕ п‚а: МЕХТ п 

75 БАТА 33, 0, 61, 17, 0, 118, 1,0, 3, 237, 176, 33, 0, 118, 6, 96, 197, 35, 35, 35,35, 6, 4, 126, 79, 203, 63, 177, 
11939, 16241, 195, 16;281,.201 


80 НАМООМТУЕ Ц$В 30000: 60 ТО 40 

100 ВОНОЕВ 7: РАРЕН 7: ТМК 0: СЕЕАВ 29999: РВАТМТ АТ 1,0; 
110 60 508 9: 60 $08 40: @0 508 8 

120 60 508 50 

130 60 508 60 

140 60 50В 70 

150 РОКЕ 30027,0: РАЦЗЕ 20: @0 508 80 

160 РОКЕ 30026,39: РАЦЗЕ 20: 60 $508 80 

170 РОКЕ 30027, 177: РАЦЗЕ 20: 60 508 80 

200 60 518 9 


После набора запустите программу командой ВИМ. Вы увидите на экране различные 
символьные наборы. (См. рисунок). 
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о ск, 200:1 

Подпрограммы со строк 50, 60, 70 - формируют в памяти с адреса 30000 (75031) и 
выполняют процедуры в машинных кодах, которые модифицируют символьный набор 
После этого происходит вывод на экран фрагмента полученного символьного набора при 
помощи подпрограммы со стоки 40. 

Переключение символьных наборов происходит при помощи подпрограмм СО ЗЦВ 8 
или СО ЗВ 9. Первая включает полученный символьный набор, а вторая - символьный 
набор ПЗУ. 

Рассмотрим подробно, что же происходит при работе блоков в машинных кодах с 
символьным набором. 


Листинг 1 
Подпрограмма СО $ЧВ 60 создаёт утолщённый символьный набор: 
7530 21 00 30 ЕО НЕ, #3000 ‚ Переброска базового 
7533 11 00 76 [0 ОЕ, #7600 ‚ символьного набора 
7536 01 00 03 [О ВС, #0300 ‚В адрес 76000 (30208 
7539 ЕБ ВО [ОТВ ‚ для модификации. 
ТЪЗВ 21 00 76 [О НЕ, #7600 ‚ Начиная сначала, каждый бит символьного 
ТЪЗЕ 7171 00 03 [О ОЕ, #0300 ‚набора, т.е. каждая линия символа 
7541 ТЕ [ООРЛ 1 А, (НЕ) ‚ загружается в аккумулятор, 
7542 ДЕ [0 С, А ‚ сохраняется в регистре С, зате 
7543 СВ ЗЕ ОВЕ А ‚ сдвигается вправо на один пиксел 
7545 В1 ОН С ‚и объединяется по «ИЛИ» с прежним 
‚ значением, т.е. включенные пикселы так 
‚и останутся включенными, но включатся 
‚ещё и те, которые получены путём сдвига. 
7546 77 ЕВ (НЕ), А ‚ Полученное значение записывается 
‚ обратно в символьный набор. 
7547 23 ТАС НЕ ‚ Переход к следующей ячейке, т.е. к 
‚ следующей линии символьного набора. 
7548 1В БЕС ОЕ 
7549 ТА [В А, 0 ‚ Проверка на достижение конца символьного 
ТЬДА В3 ОН Е ‚ набора, т.е. нуля в счётчике ОЕ 
754В 20 Е4 ЧН №, 100Р1 ‚ Если нет, то повторение процедуры 
7540 С9 ВЕТ ‚ Если да, то возврат в Бейсик 


Листинг 2 
При помощи подпрограммы СО $УВ 70 получается шрифт, напоминающий 
готический: 


7530 21 00 30 ЕО НЕ, #3000 ‚ Переброска 

7533 11 00 76 [О БЕ, #7600 ‚ символьного набора 

7536 01 00 03 ЕО ВС, #0300 ‚в адрес 7600й (30208) 

7539 ЕБ ВО ЕОТВ ‚для модификации. 

ТЪЗВ 21 00 76 [О НЕ, #7600 ‚ Начиная сначала, для всех 

Т5ЗЕ ОЕ 60 ЕО С, #60 ‚ символов символьного набора 

7540 06 02 [ООРЛ 1 В, #02 ‚ берутся две верхних линии (два байта). 
7542 ТЕ [00Р2 1 А, (НЕ) ‚ Байт записывается в аккумулятор, 

7543 СВ ЗЕ ОВЕ А ‚ сдвигается вправо 

7545 СВ ЗЕ ЭВЕ А ‚на два пиксела 


7547 77 (НЕ), А ‚и записывается назад в па 


м : ЯТЬ. 
7548 23 ТМС НЕ ‚ Переход к адресу следующего байта. 
7549 10 РЕ7 УМХ 10ОР2 ‚ Повторение для второго байта. 
Т5АВ 06 04 [О В, #04 ‚ Берутся четыре следующих линии. 
7540 ТЕ [00РЗ 1 А, (НЕ) ‚ Байт записывается в аккумулятор, 
ТЪАЕ СВ ЗЕ ОНЕ А ‚ двигается вправо на один пиксел 
7550 77 ЕО (НЕ), А ‚и записывается назад в память. 
7551 23 ТМ НЕ ‚ Переход к адресу следующего байта. 
7552 10 29 О0М№7 [00РЗ ‚ Повторение для всех четырёх линий. 
7554 23 ТМС НЕ ‚ Оставшиеся две линии из 
7555 23 ТМ НЕ ‚восьми не изменяются. 
7556 00 БЕС С ‚ Счётчик символов уменьшается на 1. 
7557 20 Е’ УВ №, 1ООРЛ ‚ Повторение цикла для следующего символа. 
7559 С9 ВЕТ ‚ Возврат в Бейсик. 
Листинг 3 
Оригинальный шрифт получается, если утолщённой сделать только 

нижнюю часть символа, оставив верхнюю без изменения: 
7530 21 00 30 ЕО НЕ, #3000 ‚ Переброска 
7533 11 00 76 [О ОЕ, #7600 ‚ символьного набора 
7536 01 00 03 [О ВС, #0300 ‚; базового в адрес 7600п (30208) 
7539 ЕБ ВО ЕОТВ ‚ для модификации. 
ТЪЗВ 21 00 76 ЕО НЕ, #7600 ‚ Начиная сначала 
ТОЗЕ 06 60 [О В, #60 ‚ для всех символов символьного набора 
7540 05 [ООРЛ РУЗН ВС ‚ запоминание счётчика цикла на стеке, 

‚так как регистр участвует ещё 

‚в одном, внутреннем цикле. 
7541 23 ТМС НЕ ‚ Четыре верхние 
7542 23 ТМС НЕ ‚линии символа 
7543 23 ТМ НЕ ‚ оставляем 
7544 23 ТМС НЕ ‚ без изменений 
7545 06 04 [О В, #04 ‚Цикл для четырёх оставшихся линий. 
7547 ЩЕ [00Р2 1 А, (НЕ) ‚ Байт заносится в аккумулятор, 
7548 ДЕ ЕО С, А ‚ сохраняется в регистре С, 
7549 СВ ЗЕ ОВЕ А ‚ сдвигается вправо на один пиксел 
754В В1 ОН С ‚и объединяется с прежним значением 

‚ (это выполняется аналогично 

‚ предыдущей программе). 
754С 77 ЕВ (НЕ), А ‚ Полученное значение заносится в память 
7540 23 ТМС НЕ ‚и переход к адресу следующего байта. 
ТЪ5АЕ 10 Е7 №7 Е00Р2 ‚ Повторение цикла для 4-х нижних линий. 
7550 С1 РОР ВС ‚ Повторение цикла для всех остальных 
7551 10 ЕБ №7 100Р1 ‚ символов символьного набора. 
7553 С9 ВЕТ ‚ Возврат в Бейсик. 


Полученный при помощи программы 3 символьный набор, за счёт смещения нижней 
части вправо, получается как бы наклоненным влево. Некоторая модификация этой 
программы, а именно, замена команды ОР С в ячейке 754Вп, командой МОР, позволяет 
получить только наклон символов, без расширения нижней части. Это выполняется в строке 
150 Бейсик-программы. Наклон можно получить и в правую сторону. Для этого нужно 
использовать в ячейке 75491 вместо сдвига вправо (ЗРЕ) сдвиг влево (ЗА), что 
выполняется в строке 160. Наклон вправо с расширенной нижней частью получается, если 
восстановить команду ОВ С вячейке 754ВВ, сохранив команду сдвига влево в ячейке 75491. 
Это делается в строке 170. 

Этим, конечно, не исчерпывается возможности по модификации символьного набора 
Мы только показали, как практически можно достичь простейших эффектов. Уверены, что 
читатели разовьют эту тему и придумают новые оригинальные варианты такой 
модификации 


Стюарт Николс Перевод с английского: Пашорин В.И. 


ПРИМЕНЕНИЕ АССЕМБЛЕРА ДЛЯ СОЗДАНИЯ 
БЫСТРОРАБОТАЮЩИХ ПРОГРАММ 


Продолжение. (Начало см. в "7Х-РЕВЮ-93" М 1,2) 


Заканчивая рассмотрение вопросов выдачи информации на экран, мы должны еще 
обсудить возможность печати в нижней части экрана, т.е. в строках с номерами 22 и 23. 

Для этого применяют те же способы, что были описаны выше для вывода на главную 
часть экрана. Отличие состоит лишь в том, что для вывода в нижнюю часть экрана 
необходимо открывать другой канал, прежде чем применять команду печати ВЗТ 16. Как это 
сделать, показано в демонстрационной программе 1.8. 

Здесь для вывода в нижнюю часть экрана сначала открывается канал с номером 
"минус 3” (253). Чтобы информационное сообщение “0:О0.К.", появляющееся после 
исполнения программы не переместило выведенную нами на экран строку, необходимо 
иметь эквивалент команды РАЦЗЕ 0 в машинных кодах. 

Останов программы можно реализовать, если использовать команду ассемблера 
НАЁТ, которая приостанавливает работу процессора до очередного прерывания (до 
очередного сканирования клавиатуры, выполняемого процедурой ПЗУ КЕУЗСАМ). Для 
реализации команды, аналогичной РАЦЗЕ 0, необходимо после команды НАЁТ выполнить 
проверку состояния 5-го бита системной переменной ЕТАС$, который включается при 
нажатии произвольной клавиши. Если этот бит сброшен, то выполняется возврат к команде 
НАЕТ, в противном случае программа выполняется дальше. Обратите внимание на то, что 
здесь 22-я строка считается нулевой, а 23-я - первой. 

При выводе данных на экран весьма полезной для Вас может оказаться одна 
процедура из ПЗУ, находящаяся там по адресу 3652. Она позволяет уладить заданное число 
строк с экрана, причем отсчет строк начинается с 23-й строки, т.е. с ее помощью Вы можете 
как стирать информацию в системном окне, так и на основном экране. Пользоваться этой 
процедурой придется, по-видимому очень часто. 

Перед вызовом процедуры необходимо записать в регистр В число удаляемых строк. 
Атрибуты экрана остаются такими, какие записаны в системной переменной АТТВ-Р. Так, 
например, нижние две строки экрана могут быть очищены с помощью следующей короткой 


программы: 
ЕО В, 2 
САЕЕ 3652 
ВЕТ 
Листинг 1.8 
АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОН 23760 
23760 ЗЕ РО ЕО А, 253 ‚ Подготовка к открыванию канала. 
23762 СО 01 16 САЕЕ 5633 ‚ Открываем канал “системного 
‚окна компьютера” 
23765 11 ЕА 5С ЕО ОЕ, ОАТА ‚ Адрес начала выводимых 
‚ данных. 
23768 ОТ ЛЕ 00 ЕО ВС, 30 ‚Длина данных с учетом 
‚ управляющих кодов. 
23771 СО ЗС 20 САШЕ 8252 ‚ Вызов процедуры ПЗУ для 
‚ печати сообщения. 
МАТТ ‚ Начало процедуры “задерх- 
‚киИ”, аналогичной РАЦЗЕ 0. 
23774 76 НАЕТ ‚ Прекращение работы процессора 
‚ до прихода системного прерывания 
23775 ЕО СВ 01 6бЕ ВТТ 5, (1\+1) ‚ Проверка пятого бита сис- 
‚ темной переменной РЕЁАС5. 


23779 28 [9 УВ 7, МАТТ ‚Если он выключен - клавиша 
‚не нажималась, то возврат 
‚на метку МАТТ. 
23781 ЕО СВ 01 АЕ ВЕЗ 5, (1+1) ‚ Если он включен, то вы- 
‚ ключаем его и продолжаем работу. 
23785 С9 ВЕТ ‚ Выход из процедуры. 
ВАТА 22 00 10 ‚Аналог “АТ О, 10” 
73 78 80 85 84 ‚ текстовое сообщение 
32 76 73 78 69 ‚ "ТМРОТ ЕТМЕ 0”, записан- 
32 48 ‚ное в кодах АЗСТТ. 
22 01 10 ‚Аналог “АТ 1, 10” 
73 78 80 85 84 ‚ Текстовое сообщение 
32 76 73 78 69 ‚ "ТМРОТ ЕТМЕ 1”, записан- 
32 49 ‚ное в кодах АЗСТТ. 


2. Команды РЕОТ, ОВА\ММ и СВСЕЕ 


РЕОТ 

Команда РЕОТ х,у позволяет поставить на экране точку (включить пиксел), координата 
которой определяются значениями х и у, а цвет зависит от установленного значения МК. 
Координата х определяет номер столбца, а координата у - номер строки той точки экрана, 
где будет включен пиксел. 

Пиксел, координаты которого равны 0,0, находится в нижнем левом углу экрана, а 
пиксел с координатами 175,255 - в верхнем правом углу экрана. 

Для этой цели в ПЗУ компьютера имеется процедура РЕОТ, у которой есть две 
возможные точки входа. 

Первая точка входа имеет адрес 8933 ОЕС (22Е5 НЕХ). Перед вызовом этой 
процедуры по команде САЦ 8933, необходимо в регистр В записать значение координаты у 
(0...175), а в регистр С - значение координаты х (0...255). Пример записи показан в 
программе 2.1. 


Листинг 2.1 


АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 

ОВа 23760 
23760 08 70 ВО ‚ Координата у=125. 
23762 ОЕ 4В ОВО 5 ‚ Координата х=75. 
23764 СВ: ЕР а САЕЕ 8933 ‚ Печать точки (125, 75). 
23767 С9 ВЕТ ‚ Возврат. 


Использование десятиричных чисел вместо шестнадцатиричных мы применяем 
только для того, чтобы начинающие читатели быстрее адаптировались к сути работы в 
машинном коде. Они более наглядны, если применяется раздельная загрузка регистров В и 
С. Однако, если записывать координаты сразу же в регистровую пару ВС, то лучше все же 
использовать шестнадцатиричные числа - при такой записи проще представить положение 
пиксела на экране. 

Вторая точка входа имеет адрес 8924 [ЕС (220С НЕХ). При этом значения координат х 
и у должны быть предварительно записаны не в регистровую пару ВС, а на стек так 
называемого встроенного калькулятора, причем значение у должно находиться на вершине 
стека, а значение х - под ним. 

Начинающий программистам надо сказать и несколько слов о стеке калькулятора. 

Для работы с действительными числами (числами с десятичной точкой) 
целочисленных регистров процессора явно недостаточно. Более мощные машины 
применяют для этого математический сопроцессор. В "Спектруме" же реализован другой, 
более удобный и дешевый подход - в ПЗУ внедрена обширная программа-калькулятор, 
имеющая свою оригинальную систему команд. Когда Вы работаете в БЕЙСИКе, калькулятор 
работает автоматически и для Вас все происходит незаметно. При работе в машинном коде 


приходится программировать его вручную. 

Основным местом для хранения исходных данных и результатов расчета калькулятора 
является его стек, хотя кроме этого калькулятор имеет еще и несколько ячеек памяти. 
Подробно с использованием калькулятора Вы можете познакомиться в нашей книге 
"Программирование в машинных кодах. Первые шаги. Практикум. Справочник." 

Остается, правда, пока открытым вопрос, а как же записать координаты своей точки 
на стек калькулятора? Очень просто, для этой цели тоже используется процедура ПЗУ 
компьютера? Она находится по адресу 11560 ОЕС (2028 НЕХ). Вам нужно поместить 
желаемое число в регистр А процессора и вызвать эту процедуру. Число будет передано на 
стек, чтобы отправить туда два числа, операцию надо сделать дважды. Естественно, что то 
число, которое будет передано последним и будет размещено на вершине стека. 

На первый взгляд кажется, что работа с первой точкой входа намного удобнее, т.к. не 
надо ничего перебрасывать через стек калькулятора. Но это только на первый взгляд. На 
самом же деле в программах очень редко приходится что-то печатать в заранее известных 
координатах. Почти всегда программа сама и рассчитывает эти координаты. Делается это с 
помощью встроенного калькулятора и потому взять результаты расчета со стека и 
использовать их напрямую оказывается весьма удобно. 


Листинг 2.2 
АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 
23760 ЗЕ 4В ЕВ А, 75 ‚ Координата х=7Ъ5. 
23762 СО 28 20 САЕЕ 11560 ‚ Поместили х на стек каль- 
‚ кулятора. 
23765 ЗЕ 70 ЕВ А, 125 ‚ Координата у=125 
23767 СО 28 20 САЕЕ 11560 ‚ Поместили ее на стек. 
23770 СОС 22 САЕЕ 8924 ‚ Печать точки (125, 75) 
23773 С9 ВЕТ ‚ Возврат. 
Листинг 2.3 
АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 
23760 ЗЕ 03 ЕВ А, З 
23762 РО 77 57 ЕВ (Т\+87), А ‚ Включение двух младших 
‚битов сист. перем. Р_РЕЕАб 
23765 06 28 О В, 40 ‚ Координата у=40. 
23767 ОЕ 19 ЕВ С, 25 ‚ Координата х=25 
23769 СО ЕБ 22 САЕЕ 8933 ‚ Печать точки (40,25) в ре- 
‚жиме О\ЕВ 1. 
2372 АР ХОВ А ‚ Очистка регистра А. 
23773 ЕО 77 57 [В (1Т\+87), А ‚ Восстановление Р_РЕЕАС. 
23776 С9 ВЕТ ‚ Возврат. 
Листинг 2.4 
АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 
23760 2Е 7Е ЕВГ, 64 ‚ Номер символа “@"=64 ПЕС. 
23762 26 00 ОН, 00 ‚ Теперь в паре НЁ число 64 
23764 29 АБО НЕ, НЕ ‚ Умножили его на 2. 
23765 29 АБО НЕ, НЕ ‚ Умножили его на 4. 
23766 29 АБО НЕ, НЕ ‚ умножили его на 8. 
23767 ЕВ 5В 36 5С ЕВ БЕ, (23606) ‚ Загрузили в ОЕ адрес, на 
‚ который указывает систем- 
‚ная переменная СНАА$. 
23771 19 АБО НЕ, ОЕ ‚ Прибавили ему “смеще- 
‚ ние” нашего символа от 
‚начала символьного набо- 
‚ра, ранее вычисленное в 
‚ регистровой паре НИ. 
23772 06 08 [р В, 8 ‚ Счетчик строк в шабло- 
‚не символа, равный 8. 


23774 ЕБ РОЗН НЕ ‚ Запомнили адрес начала 
‚ шаблона на машинном стеке 
23775 ОЕ 08 [О С, В ‚ Счетчик столбцов в шабло- 
‚не символа, равный 8. 
23776 ТЕ 1 А, (НЕ) ‚ Принимаем в аккумулятор 
‚ байт шаблона символа. 
23778 05 РОЗН ВС ‚ Запомнили содержимое ВС, 
‚чтобы освободить ВС для 
‚других дел. 
23779 ЕБ 4В ОЕ 50 ЕО ВС, (С008Б) ‚Ввод в ВС координат пози- 
‚ ции печати. 
23783 17 ВЕА ‚ Ротация регистра А влево. 
‚ Содержимое старшего бита 
‘при этом переходит во 
‚ флаг САВНУ регистра Г. 
23784 РБ РУЗН АЕ ‚ Запомнили регистры Аи Е 
‚на машинном стеке. 
23785 30 05 УВ МС, 23792 ‚Если флаг САНВУ выключен, 
‚То точку печатать не надо. 
‚ Делаем обход печати. 
23787 05 РОЗН ВС ‚ Перед печатью точки запо- 
‚ минаем координаты. 
23788 СО ЕБ 22 САЕЕ 8933 ‚ Вызов процедуры РЕОТ. 
23791 С1 РОР ВС ‚ Восстановили координаты. 
23792 0С МС С ‚ Переход к очередному 
‚ столбцу символа. 
23793 ЕБ 43 ОЕ 50 ЕО (С0080), ВС ‚ Запомнили новую позицию 
‚ печати. 
23797 Е1 РОР АЕ ‚ Восстановление пары АЕ. 
23796 С1 РОР ВС ‚ Восстановление счетчиков в ВС 
23799 00 ВЕС С ‚ Уменьшение счетчика столбцов. 
23800 20 ЕВ УВ М7, 23778 ‚ Если он еще не обнулился 
‚ возвращаемся для печати 
‚ соседней точки в ряду. 
23802 05 РОЗН ВС ‚ Если же он равен 0, то 
‚Этим рядом закончили и надо 
‚ переходить к новому. 
‚ Сперва временно запомним счетчики. 
23803 ЕБ 4В ОЕ 50 ЕО ВС, (С008Б) ‚ Возьмем координать 
23807 05 ОЕС В ‚ Уменьш номер ряда 
23808 ЗЕ Е8 [О А, 248 ‚Число 248 - это то же 
‚ самое, что и “минус 8 
23810 81 АБВ А, С ‚В результате сложения из 
‚ содержимого С (коорд. х) будет вычтено 8. 
‚ Результат оставлен в А. 
23811 ДЕ ЕО С, А ‚ Перенесем его в С 
23812 ЕБ 43 ОЕ 50 ЕО (С0080), ВС ‚и запомн в переменной С00ВБ. 
23816 С1 РОР ВС ‚ Восстановили счетчики рядов и столбцов. 
23817 Е1 РОР НЁ ‚ Восстановление указателя. 
23818 23 ТМ НЕ ‚Приняли из символьного 
‚набора конструкцию очередного ряда. 
23819 10 01 № 23774 ‚ Уменьшаем на единицу сче- 
‚тчик рядов в Ви если он 
‚еще не обнулялся, то возвращаемся назад. 
23821 С9 ВЕТ ‚ Выход 
совр 
23822 БЕРВ 100 ‚ Координата у=100 
23823 ОВЕРВ 20 ‚ Координата х=20 


Программа 2.2 показывает использование процедуры РЕОТ со второй точкой входа 
8924 ПЕС (220С НЕХ). Процедура РЕОТ снимет два верхних числа со стека калькулятора и 
использует их как координаты для включения пиксела на экране. Числа на стеке при этом не 
сохраняются. 


Использование калькулятора будет еще обсуждаться более подробно при 
рассмотрении программы 2.8. А пока рассмотрим программу 2.3, в которой показано, как в 
машинных кодах реализовать команду 

РЕОТ О\ЕН 1; х,у. 

В этой программе перед вызовом процедуры РЕОТ необходимо включить нулевой и 
первый биты системной переменной Р-ЕЕАС (М№+87). А затем, после вызова процедуры 
РЕОТ, восстановить прежнее значение этих битов. Если этого не сделать, то и все 
последующие точки и символы будут выводиться на экран в режиме О\ЕН 1. 

Включение режима 1МУЕВН$Е аналогично включению режима О\ЕН. Отличие состоит 
лишь в том, что теперь необходимо включить 2-ой и 3-ий биты системной переменной Р- 
ЕЕАС, т.е. надо записать в эту переменную число 12. 

Используя точку входа 8933, мы можем написать программу для построения символа 
в любом месте экрана по точкам. При этом код АЗСИ символа должен быть в диапазоне 
32...127, а шаблон символа (его конструкция) должен быть задан в участке символьного 
набора (см. программу 2.4). 

Чтобы определить, где хранятся конструкции (шаблоны) символов, служит системная 
переменная СНАВ$ (23606 РЕС = 5СЗ6 НЕХ). Тот адрес, который в ней хранится, указывает 
на 256 байтов ниже, чем начало символьного набора. 

В программе 2.4 код выводимого на экран символа записывается в регистр |. Затем 
это значение умножается на 8 (т.к. в символьном наборе на конструкцию каждого символа 
использовано по 8 байтов) и результат суммируется с числом, которое хранится в 
системной переменной СНАН$. Таким образом определяется начальный адрес восьми 
байтов, описывающих форму нужного вам символа. 

Вы знаете, что первые 32 символа (с 0 по 31) являются непечатными, поэтому очень 
удобно, что СНАНВ$ указывает на 256 байтов ниже, чем начало набора, т.к. благодаря этому 
они-то как раз и оказываются пропущенными (32*8=256). 

Теперь регистровая пара НЕЁ используется как указатель адреса очередного байта, а 
регистровая пара ВС - как счетчик элементов матрицы 8х8 битов, описывающей форму 
символа. Здесь в В хранится номер текущего ряда, а в С - номер столбца. Регистр А 
используется для манипуляций с текущим байтом. 


Листинг 2.5 
АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 
23760 2Е 7Е ГОТ, 87 ‚ Номер символа “\М"=87 БЕС 
23162. поры ати Строки 23762... 23791 
И ааа ‚этой программы соответ- 
РОТ ° зао Мова бери ‚ ствуют программе 2/4. 
23792 04 ТМС В ‚ Переход к очередной стро- 
‚ ке экрана. 
23793 ЕБ 43 ОЕ 50 ЕоССоОВО), ОВС ‚ запомнили позицию печати 
23797 Е1 РОР АЕ ‚ Восстановление пары АЕ. 
23798 С1 РОР ВС ‚ Восстановление счетчиков. 
23799 00 ВЕС-.6 ‚ Уменьшение счетчика 
‚ столбцов. 
23800 20 ЕЗ УВ №, 23778 ‚ Если он еще не обнулялся, 
‚ возвращаемся для печати 
‚ соседней точки в ряду. 
23802 С5 РУЗН ВС ‚ Переходя очередному ря- 
‚ду, запомнили счетчики. 
33803 ЕВ 4В ОЕ 50 [О ВС, (С0080) ‚ Возьмем координаты. 
23807 05 БЕС В ‚ Умень омер ряда. 
23808 ЗЕ 28 [О А, 248 ‚ Уменьшение координаты 
23810 80 АО А, В ‚у на 8. 
23811 47 [0 В, А 
23812 Е 43 ОЕ 50 [0 (С00АВ), ВС ‚ запомнили координату. 
23816 С1 РОР ВС ‚ Восстановили счетчики ря- 
‚дов и столбцов. 
23817 Е] РОР НЕЁ ‚ Восстановление указателя. 


23818 23 ТМС НЕ ‚ Очередной ряд. 

23819 10 01 О0М7 23774 ‚ Уменьшаем на единицу сче- 
‚тчик рядов в Ви если он 
‚еще не обнулился, то воз- 
‚ вращаемся назад. 


23821 С9 ВЕТ ‚ Выход 

С00АВ 

23822 ОБЕЕВ 100 :Координата у=100 
23323 ОЕРВ 20 ‚ Координата х=20 


Так, например, одной из манипуляций является ротация байта влево командой ВГА, 
которая производит циклическое смещение всех битов байта влево и перенос седьмого 
бита во флаг САВРУ. Если этот бит равен единице, то флаг САВАУ включается, 
следовательно будет включен и соответствующий пиксел на экране, если же бит равен 0, то 
не включатся ни флаг, ни пиксел. Команда АЁА выполняется по 8 раз для каждого из 8 
байтов, описывающих шаблон символа. 

После каждой команды НЁА координаты очередного пиксела изменяются. Начальное 
значение этих координат соответствует верхнему левому углу матрицы 8*8 битов, хранящей 
форму символа. Понятно, что при этом начальное значение координаты у должно быть в 
диапазоне 7...175, а значение координаты х может быть в диапазоне 0...255. Если же это 
значение окажется больше, чем 255, то это равносильно тому, что значение равно 0, так как 
если С=255 и выполняется команда ИМС С, то результат будет С = 0. 

Эта программа может быть легко модифицирована для вывода на экран символа, 
развернутого на 90 градусов против часовой стрелки (см. программу 2. 5). 

В этой программе начальные значения координат х‚у соответствуют нижнему левому 
углу матрицы, хранящей форму символа и исследование байта идет не по горизонтали, а по 
вертикали. 

С этого момента мы можем прийти к очень интересным решениям. Дело в том, что 
одной из первых проблем, встающих перед начинающим пользователем "Спектрума" 
является печать нестандартными шрифтами. 

Обычно каждый спрашивает “а почему компьютер печатает только символами 8Х8?" 
Почему нельзя печатать символами 5Х8, 6Х8 и даже ЗХб, как например в программе "ТНЕ 
ГАЗТ М/ОВО 2". Почему нельзя печатать символами 17Х18? Может быть для тех, кто пишет 
программу на японском языке это было бы очень удобно. 

Оказывается, если Вы печатаете из БЕЙСИКа или из машинного кода командой ВУТ 
16 или процедурой ПЗУ, которая опирается на В$Т 16, Вы действительно ограничены 
системным требованием размера 8х8. Так уж заложено в системных процедурах ПЗУ. Но 
если Вы выполняете графическую печать, то есть как бы не печатаете свои символы, а 
рисуете их по точкам, то можете обойти эти процедуры и создать свои, которые позволят 
вам делать все, что захотите. 


Листинг 2.6 
5 О\МЕВ 0: ТМК 0: РАРЕВ 6: ВОВОЕН 3: СЕ$ 
10 (ЕТ х=24: (ЕТ у=79: 1ЕТ 1=5: ЕЕТ м =2: ЕЕТ а$="5ТОР ТНЕ ТАРЕ" 
15 ТМК 2: ВАМООМТУЕ Ц5Н 32393: РАЦЗЕ 100 
20 ТЕТ м=8: 1ЕТ у=150: 1ЕТ х=0: 1ЕТ а$="РЕОТ" 
30 ТМК 1: ВАМООМТУЕ 058 32393 
35. ПЕТ.аф =” "”; ЕЕТ у=140: ТМК 1: КАМООМТУЕ 05Н 32393 
250 РНТМТ АТ 8,0: "Высота 1-22? ”, “Ширина 1-32? ", "х-коорд. 0-255? ", "У-коорд. 0- 
195? "”, "СООБЩЕНИЕ? ”, ” ТМК 0-92”, 
255 ЕТ 7$=" " 
257 1ЕТ \у$=" " 
260 РЕТМТ О\ЕВ 1: АТ 8,0; 7$ 
262 ТМРИТ п: РАТМТ АТ 8, 14: в;” ":0\УЕН 1; АТ 8,0: \$ 
265 РЕТМТ О\ЕВ 1: АТ 9,0; 7$: ТМРИТ м: РАТМТ АТ 9, 14; м: " ”; ОМЕН 1; АТ 9,0: \$ 
270 РЕТМТ О\ЕВ 1: АТ 10,0:7$: ТМРИТ х: РАТМТ АТ 10, 17:х:" "; ОМЕН 1; АТ 10, 0: \$ 
272 РАТМТ О\МЕВ 1; АТ 11,0:2$: ТМРОТ у: РВТМТ АТ 11,17; у:” "; О\МЕВ 1: АТ 11,0; %$ 


273 РВТМТ О\УЕВ 1: АТ 12,0; 2$: АТ 13,0; 7$: ТМРИТ а$: РАТМТ АТ 13,0: а$; : РОВ К=ЁЕЕМ а$ ТО 
31: РВТМТ " ";: МЕХТ к: РАТМТ О\УЕН 1; АТ 12,0: \у$; О\МЕВ 1: АТ 13,0; \$ 

275 РВТМТ О\УЕВ 1: АТ 14,0; 7$: ТМРИТ 1: РВТАМТ АТ 14,0; ТАК 1: О\ЕН 1: $ 

280 РАЦЗЕ 50: (15: ТМК 1: НАМООМТУЕ Ц5В 32393: ТАК 0 

300 РАТМТ #0: АТО,0 "0 - конец работы”; АТ 1,0; “Прочие клавиши - повтор” 

310 РАЦЗЕ 0: ТЕ Т№МКЕУ$="0” ОВ ТМКЕУ$ = “д” ТНЕМ $ТОР 

320 (15: 60 ТО 250 


Освоив способы вывода по точкам произвольного символа, мы можем перейти к 
нашей первой серьезной программе, позволяющей выводить по точкам на экран в 
произвольном месте целое сообщение, высота и ширина символов которого может быть 
выбрана нами. 

Эта программа состоит из двух блоков. Первый блок - настроечный, он выполнен на 
БЕЙСИКЕ, т.к. от него не требуется выстродействие. второй блок - основной, он выполнен в 
машинных кодах. Связь между блоками нужна для передачи основных параметров: высота и 
ширина символов (В,м/), начальные координаты сообщения (х,у) и само сообщение (а$). И 
эта связь осуществляется благодаря тому, что эти параметры в БЕЙСИК-программе 
являются заданы программными переменными, а в подпрограмму в машинных кодах 
передается с помощью команд РОКЕ. 

Может быть, Вы желаете использовать только программу машинных кодах, тогда 
Бейсик-программу можно опустить, передавая при этом необходимые параметры прямо в 
область памяти, зарезервированной для буфера принтера. Это выглядит более 
профессионально, но наличие БЕЙСИК-программы позволяет упростить работу и дает 
читателю возможность поэкспериментировать с различными значениями вышеупомянутых 
параметров. 

БЕЙСИК-программа приведена в листинге 2.6. 

Блок в машинных кодах приведен в листингах 2.7.1 - 2.7.5 и представляет собой 
расширенную версию программы 2.4. 

Машиннокодовый блок включает в себя следующие процедуры: ЕМО, ЗЕТ, ЭТАНВТ, 
РЕОТ и КР. для простоты рассмотрим их по отдельности. 

Процедура ЕМО (32335 - 32380) приведена в листинге 2.7.1. Она выполняет поиск 
значения БЕЙСИК-переменной по ее имени, которое должно быть предварительно задано. У 
нас имя искомой переменной задано в ячейке памяти 23728 

Это нужно сделать для того, чтобы передать из БЕЙСИКа в машинный код параметры 
х,у, пм и само текстовое сообщение. 

Сама по себе задача передачи параметров из БЕЙСИКа в машинный код - весьма 
интересная и важная. Для этого существуют много разных способов. Наиболее 
распространенный прием - через параметры функции пользователя ЕМ () мы рассмотрели и 
нашей книге "Элементарная графика" ("ИНФОРКОМ", М:, 199.2, с. 111). 

Здесь С. Николс предлагает прием передачи параметров через БЕЙСИК-переменные. 
Вот их поиском и занимается процедура НЕМО. Если Вам покажется сложным то, как она это 
делает, значит Вы не вполне знакомы с форматом БЕЙСИК-переменных, в котором они 
хранятся в памяти компьютера. Тогда посмотрите "7Х-РЕВЮ-92" на с. 166. 

Процедура ЗЕТ (32381-32392) приведена в листинге 2.7.2. Она служит для того, чтобы 
передать параметры х,у,Ь,м, разысканные процедурой ЕМ№О в области БЕЙСИК-переменных 
в область буфера принтера (весьма удобное место для хранения данных, обычно ничем не 
занятое в компьютере. Эта область расположена всегда в адресах 23396-23551). Сюда же 
передается и количество символов в выводимой на экран сообщении, а также коды 
символов сообщения. Наша основная программа будет работать с параметрами, беря их из 
области буфера принтера. 

Выполнение машинного кода в программе 2.7 начинается с адреса 32393. Это 
стартовый адрес процедуры З$ТАВНТ. Она приведена в листинге 2.7.3. Сначала 
(32393...32418) регистровая пара ВС определается в качестве указателя буфера принтера, 
после чего вызывается процедура ЗЕТ для записи кода переменной в ячейку 23728. Затем 
(32419... 32442) определяется количество символов в переменной а$ и переписываются 


коды всех символов в буфер принтера. Процедура (32443... 32456) проверяет текущее 
значение координаты у. Если это значение будет больше 175, то выполняется операция у- 
176 и новые значения координатх и у записываются в ячейки 23728/9 и 23296/7. 

Процедура РЕОТ (Листинг 2.7.4) представляет собой расширенную версию процедуры 
вывода символа на экран по точкам с добавлением циклов вывода на зкран точки шириной \ 
пикселов в П строках подряд. 

Обратим внимание на то, что здесь неиспользуемые “Спектрумом" ячейки памяти 
23728/9 служат для хранения текущих экранных координат позиции печати, а не для того, 
для чего они использовались в процедуре НЕМО. 


Листинг 2.7.1 


АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОНб 32335 
ЕТАО 
32335 2А 4В 5С ЕО НЕ, (23627) ‚23627 - адрес системной перем. \АНЗ, 


‚в которой хранится адрес, с которого 


: начинается размещение переменных БЕЙСИКа. 
[2 
32338 ЗА ВО 5С Е А, (23728) ‚ Код имени БЕЙСИК-переменной. 
32341 ВЕ СР (НЕ) ‚ Сравнение и выход, есл 
32342 С8 ВЕТ 2 ‚ переменная найдена, в НЕ 
‚ остается ее адрес. 
32343 СВ бЕ ВТТ 5, (НЕ) ‚ Если пятый бит в имени 
32345 20 08 УВ №, 11 ‚ переменной равен нулю, то 
32347 23 ТАС НЕ ‚это либо массив, либо 
32340 БЕ ЕВЕ, (НЕ) ‚ символьная строка. Нас 
32349 23 ТАС НЕ ‚они не интересуют, их на- 
32350 56 ЕВ О, НЕ ‚ до пропустить. Следующие 
32351 19 АБО НЕ, ОЕ ‚ два байта содержат их 
32352 23 ТАС НЕ ‚ длину. На нее мы и перескакиваем. 
32353 18 ЕЕ УВ (2 ‚ Возврат на повтор поиска. 
[1 
32355 СВ 76 ВТТ 6, (НЕ) ‚ Если шестой бит не равен 
32357 20 0С УВ №, 13 ‚нулю, то это либо одно символьная 
‚ переменная, либо параметр цикла. 
‚Выясним это, перейдя на [3. 
32359 23 ТАС НЕ ‚ Если же это многосим- 
32360 ТЕ ЕВ А, (НЕ) ‚ вольная переменная, то 
32361 СВ 7Е ВТТ 7, (НЕ) ‚ пропускаем и ее и воз- 
32363 28 РА УВ 2, -6 ‚ вращаемся для дальнейших 
32365 11 06 00 [О ОЕ, 6 ‚ проверок на метку [2. 
32368 19 АБО НЕ, ОЕ 
38369 18 БР ЧА [2 
[3 
32371 СВ 7Е ВТТ 7, (НЕ) ‚ Если седьмой бит раве 
32373 28 Еб УВ 2, -10 ‚ нулю, это односимвольная 
‚ переменная (хоть и 
‚не наша.) Вернемся на 
‚32365, пропустим 6 байтов 
‚и повторим поиск с 12. 
32375 71 13 00 ЕО ОЕ, 19 ‚ Седьмой бит равен единице 
32378 19 АБО НЕ, ОЕ ‚ - Это параметр цикла. 
‚В этом случае пропускаем 
‚ 19 байтов и повторяем 
52379 18 05 УВ 12 ‚поиск с [2. 
Листинг 2.7.2 
АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
СЕТ 
32381 32 ВО 5С [О (23728), А ‚в стандартном “Спектруме” 


‚ячейки 23728/9 не используются. 


‚Мы храним в них имя 
‚ переменной (х, у, НП...) 

‚ Поиск значения переменной 
‚ по ее имени. 
32387 23 ТАС НЕ ‚За именем переменной в 


32384 СО 4Е 7Е САЕЕ ЕТМО 
32388 23 ТМС НЕ ` БЕЙС Ке хранится ее зна- 


32389 23 ТМС НЕ ‚ чение в пятибайтной фор- 
‚ ме. Для целых чисел 
‚ меньших 255 это форма: 


(НЕ) (НЕ)+3 

‚Вот для чего нужны три 

‚ команды Т№С НЁ подряд. 
) ‚; Переброска параметра в 
А ‚ буфер принтера. 

‚ Выход из процедуры. 


32390 ЕВА, ( 
32391 0 (ВС 
ВЕТ 


32392 


НЕ 
) 


сою 
<о № Гт 
= 


Процедура ЭКР (Листинг 2.7.5) завершает подпрограмму. Она ведет учет изменения 
экранной координаты позиции печати. В частности, она осуществляет переход к следующей 
строке, а когда достигнут низ экрана (у>175), она выполняет переход на первую строку за 
счет операции "у-175". 

Выше мы отметили, что в процедуре ПЗУ РЕОТ имеется еще одна точка входа по 
адресу 8924, с помощью которой можно напечатать на экране точку, координаты которой 
заданы на вершине стека калькулятора. Мы говорили о том, что это может быть удобным при 
печати результатов расчета калькулятора. 

Не углубляясь в подробности работы процедуры САЕСУТАТОВ, рассмотрим работу 
программы, которая использует адрес 8924 для входа в процедуру РЕОТ. 


Листинг 2.7.3 


АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОТААТ ‚ Точка входа в программу. 
32393 01 00 58 ЕО ВС, 23296 ‚ Начало буфера принтера. 
32396 ЗЕ 7В [| А, 120 ; 120 - код буквы “Хх”. 
32598 СО 70 7Е САЕЕ ЗЕТ ‚В 23296 - коорд. "Хх". 
32401 03 ТМС ВС ‚ Очередной байт буфера. 
32402 ЗЕ 79 [О А, 121 ; 121 - код буквы у. 
32405 СО 70 7Е САЕЕ ЗЕТ ‚В 23297 - коорд. “у”. 
32407 03 ТАМС ВС ‚ Очередной байт буфера. 
32408 ЗЕ 68 [О А, 104 ‚; 104 - код буквы П. 
32410 СО 70 7Е САЕЕ ЗЕТ ‚В 23298 - высота "Н” 
32413 03 ТАМС ВС ‚ Очередной байт буфера. 
32414 ЗЕ 77 [О А, 119 ; 119 - код буквы м. 
32416 СО 70 7Е САЕЕ ЗЕТ ‚В 23299 - ширина "м". 
32419 ЗЕ 41 [О А, 65 ;65 - код буквы А. 
52421 32 ВО 5С ЕО (23728), А ‚ Подготовка проведение 
32424 СО 4Е 7Е САЕЕ ЕТМО ‚ поиска переменной а$. 
32427 23 ТМС НЕ 
32428 БЕ [О Е, (НЕ) ‚В ОЕ помещается длина 
32429 23 ТМС НЕ ‚ нашего сообщения и пере- 
32430 56 [О 0, (НЕ) ‚ дается в буфер принтера 
32431 ЕБ 53 04 58 [0(23300), 9Е ‚По адресу 23300. 
32435 05 РИЗН ОЕ ‚ Переброска длины сообще- 
32436 С1 РОР ВС ‚ния из ОЕ в ВС. 
32437 23 ТМС НЕ ‚ Переброска самого текста 
32438 11 05 58 [О ОЕ, 23301 ‚ сообщения в буфер принте- 
32441 ЕБ ВО ГОТВ ‚ра начиная с 23301. 
32443 2А 00 58 ЕО НЕ, (23296) ‚ В НЁ - координаты х,у. 

‚ Причем у находится в Н. 


32446 АР ХОВ А ‚ Сброс флага переноса (это 
‚ необходимо перед операцией 5ВС). 


32447 7С А, Н ‚ Координата у. 
32443 ОЕ ВО ОВС А, 176 ‚ Проверка на >= 176. 
32450 38 04 УИ С, +4 ‚ Если нет, то переход на 
‚адрес 32456 (все 0.К.) 
32452 67 ЕО Н, А ‚В противном случае остав- 
32453 22 00 5В [О (23296), НЕ ‚ляем “у минус 176” и за- 
32456 22 ВО 5С [0 (23728), НЕ ‚ поминаем копию в 23728/9. 
‚Итак, в 23728 - “х”; 
‚В 23729 - “у-176”. 
32459 21 05 5В [О НЕ, 23301 ‚ Указание на начало текста 
ЕР5 
32462 [6] РОЗН НЕ ‚ Запомнили начало текста. 
32463 ТЕ [О А, (НЕ) ‚Взяли символ. 
32464 26 00 [О Н, 0 ‚ Код символа передаем 
32466 бЕ [О Е, А гв Н 
3246т 29 АБО НЕ, НЕ ‚ умножаем его код на 8. 
32468 29 АБО НЕ, НЕ 
32469 39 АБО НЕ, НЕ 
32470 11 00 3С [О ОЕ, 15360 
32473 19 АБО НЕ, ОЕ ‚Нашли адрес, начиная с 


‚ которого в ПЗУ хранится 


‚ шаблон этого символа. 

32474 06 08 ГО В, 8 ‚ Счетчик байтов в шаблоне 

ЕР4 

32476 05 РИЗН ВС ‚ Запомнили его. 

52477 ЕВ 4В 01 5В ЕО ВС, (23297) ‚В “В” - высота символа; 
‚В “С” - его коорд. “У”. 

ЕРЗ 

32481 ТЕ [О А, (НЕ) ‚ Байт шаблона символа. 

32482 [2] РОЗН НЕЁ ‚ Запомнили его. 

32483 05 РУЗН ВС ‚ Запомнили “В” и "у". 

32484 06 08 [О В, 8 ‚; Счетчик битов в байте 
‚ шаблона. 

ЕР2 

32486 05 РУЗН ВС ‚ Запомнили текущий байт. 

32487 17 ВЕА ‚ Ротация байта. 

32488 РБ РУЗН АР ‚ Запомнили результат рота- 
‚ ции вместе с флагами. 

32489 БА РЭ 7Е УР С, РОТ ‚ Если флаг переноса вклю- 
‚чился, переходим на 32505 
‚ для печати точк 

32492 2А 03 5В ЕО НЕ, (23299) ‚В регистр “1” помещается 
‚ширина “м”. 

32495 ЗА ВО 5С ЕВ А, (23728) ‚ Координата “х”. 

32498 85 АБО А, 11 ‚Нашли “х+м” 

32499 32 ВО 5С [В (23728), А ‚ Запомнили в 23728. 

32502 С3 ОЕ 7Е УР $КТР ‚ Обход. 


Программа 2.8 демонстрирует построение по точкам синусоиды, описываемой 
формулой 

88 + З0*5ТМ (А/128*РТ 

с применением процедуры САЕСУЁАТОВН. 

С помощью этой процедуры можно выполнить сложные арифметические операции, 
используя так называемые коды калькулятора. Обычно при вызове этой процедуры 
выполняется операция над двумя числами, являвшимися верхними на калькуляторном 
стеке, но возможны операции и над символьными величинами. 

Например, если на вершине стека записаны два числа: 1234 и 2, а после включения 
процедуры САЕСУЁГАТОВ (АЗТ 40) записан код 4 (ОЕЕВ 4), то эти два числа будут извлечены 
из калькуляторного стека, перемножены между собой, а их произведение будет записано 
обратно на вершину калькуляторного стека. Теперь на стеке будет записано только одно 


— 


число, равное 2468, если до этого там кроме сомножителей ничего не было записано. 

Целые положительные числа могут быть занесены на стек следующими способами: 

ЭТАСК МАЕ А - САЦ 11560 

ЗТАСК МАЕ ВС - САШЕ 11563, 

т.е. число предварительно записывается в регистр а или регистровую пару ВС, а 
затем вызывается соответствующая процедура. 

В программе 2.8 используется вызов ЭТАСК У\УАЕ А для размещения на стеке чисел в 
следующем порядке: 

рем ая А 


8 
80 


рем ая А 

128 

Вызов процедуры САЕСУТАТОН осуществляется по команде Н$Т40. Байты, 
записанные после этой команды, определяют вид выполняемой операции. В программе 2.8 
сразу же после команды ВЗТ 40 следует байт, равный 5, что означает "Деление". При этом 
из стека извлекаются два верхних числа, выполняется деление одного числа на другое и 
результат записывается обратно в калькуляторный стек. Следующий байт - 163 является 
кодом операции "Заск РИ?2"- он переписывает на стек значение РИ2, хранимое в ПЗУ. Затем 
следует код 49 (аирйса{е {ор уаше) - он дублирует верхнее число на стеке, а код 15 "ааа {ор 
{мо уаме5$" производит суммирование двух верхних чисел и записывает результат обратно 
на стек. Теперь на вершине стека записано число Р!. Следующий код 4 (ти#ру {фор \№мо 
уаше$) перемножает два верхних числа, т.е. число Р!и А/128, и результат возвращается на 
стек. Код 31 (ЗМ о тор уаше) определяет синус числа на вершине калькуляторного стека, а 
последующие коды 4 и 15 завершает расчет по записанной формуле. Последний код 56 "епа 
са" выполняет выход из процедуры, т.е. как бы выключает калькулятор и осуществляет 
возврат в программу в машинных кодах. 
Листинг 2. 7.4 


АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
РЕОТ ‚ Процедура печати точки. 
32505 ЕВ АВ ВО 5С ЕО ВС, (23298) ‚В “В” - ширина “м” 
‚В “С” - высота “И”. 
ЕР1 
32509 05 РОЗН ВС ‚ Запомнили на стеке. 
32510 ЕВ АВ ВО 5С ЕО ВС, (23298) ‚ Повторили на стеке еще 
32514 05 РОЗН ВС ‚ раз. 
32515 СО ЕБ 22 САЕЕ 8933 ‚ Вызов процедуры печати 
‚ точки. 
32518 С1 РОР ВС ‚ Переход к соседней 
32519 0С МС С ‚ точке. 
32520 ЕБ 43 ВО 5С ЕО (23728), ВС ‚ Запомнили текущую коор- 
32524 С1 РОР ВС ‚ динату. 
32525 10 ЕЕ №7 ЕРЛ ‚ Есл е все точки напе- 
‚чатаны, возврат на 32509 
Листинг 2.7.5 
АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
КТР 
32527 Е1 РОР АЕ ‚ Восстановили текущий байт 
‚ шаблона. 
32528 С1 РОР ВС ‚ Восстановили счетчик 
32529 10 03 №7 (Р2 ‚ Уменьшили его и, если он 
‚не обнулялся, возврат 
‚ на 1Р2 для последующей 
‚ рота 
32531 ЗА 00 58 [О А, (23296) ‚ Координата “Хх”. 
32534 21 ВО 5С ЕО НЕ, 23728 
32537 77 ЕВ (НЕ), А ‚ Принимаем “х” в качестве 
‚текущей экранной коорди- 


32536 23 
32539 АЕ 
32540 ТЕ 
32541 ОЕ ВО 
32543 38 03 
32545 77 
32546 18 08 
32548 ТЕ 
32349 РЕ 00 
32551 20 02 
32553 36 ВО 
32555 35 
32556 С1 
32557 Е1 
32558 10 В1 
32560 23 
32561 С1 
32562 10 АЗ 
32564 ЗА 03 
33567 87 
32566 67 
32569 67 
32570 бЕ 
32571 ЗА ВО 
32574 85 
9255 32 00 
32578 32 ВО 
32581 ЗА 01 
32584 ЗА В1 
32587 Е 
32588 23 
32569 ЗА 04 
32592 30 
32593 С8 
32594 32 04 
32597 С3 СЕ 


эВ 


эВ 


эВ 
ТЕ 
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на печать очеред- 
вола. 


Существуют еще много других кодов калькулятора, которые могут быть использованы 
в Ваших программах для различных целей. С некоторыми из них мы еще познакомимся в 
следующих главах. 
И еще одно важное замечание. Перед возвратом в ВАЗ!С-систему после применения 
процедуры САЕСУГАТОН необходимо полностью очистить калькуляторыый стек от всех 
записей. В программе 2.8 после последнего кода 56 на стеке все же остаются два числа: 


переменная А и результат вычисления по формуле 88+80*$1М(А/128*Р\|). 


Процедура 


РЕОТ(САШ( 6924) извлекает эти два значения, тем самым полностью очищая стек и 
использует эти два числа как координаты для пиксела. 
Код программы для построения синусоиды приведен в листинге 2.8. 


АДРЕС МАШ. КОД 
23760 АЕ 

ЕоОР 

23761 Р5 

23762 СО 28 20 


23765 ЗЕ 5В 


АССЕМБЛЕР 


ХОВ А 


РОЗН АЕ 
САЕЕ 11560 


ГО А, 88 


КОММЕНТАР 


‚ Обнулени 


‚ Запомнил 
‚На кальк 
‚ значение 
‚На кальк 


ИЙ 
е аккумулятора. 


и его на стеке. 

. стеке - текущее 
аргумента. 

. стеке - 


Листинг 2.8 


23767 СО 28 20 САЕЕ 11560 ‚88, А. 

23770 ЗЕ 50 [О А, 80 ‚На кальк. стеке - 

23772 СО 28 20 САЕЕ 11560 ;80, 88, А. 

23775 Е1 РОР АР ‚В акк-ре текущее значение 
‚ аргумента. 

23776 Е5 РОЗН АЕ ‚ Запомнили его на стеке. 

23777 СО 28 20 САЁЕ 11560 ‚ А, 80, 88, А. 

23780 ЗЕ 80 [О А, 128 

23782 СО 28 20 САЕЕ 11560 ‚ 128, А, 80, 88, А. 

23765 ЕР ВУТ 40 ‚ Включение калькулятора. 

23766 БЕРВ 05 91\у1$10П ‚ А/128, 80, 88, А. 

23787 ОБЕЕВ 163 эфаск РТ/2 ‚ РТ/2, А/128, 80, 88, А. 

23788 ОБЕЕВ 49 дир] 1сате ‚ РТ/2, РТ/2, а/128, 80, 88, А. 

23789 БЕРВ 15 ааа ‚ РТ, А/128, 80, 88, А. 

23780 ОБЕРВ 04 ми1 11 у ‚ РТ*«А/128, 80, 88, А. 

23781 ОБЕЕВ 31 оп ‚ ЭТМ(А/128«РТ), 80, 88,А. 

23782 БЕРВ 04 ми1 11 у ‚ 80*«5ТМ(А/128*РТ), 88, А. 

23783 БЕРВ 15 ада ‚ 88+80*5ТМ(А/128*РТ), А. 

23784 ОБЕЕВ 56 епдса1с ‚ Выключение калькулятора. 

23795 0 0С 22 САЕЕ 8924 ‚ Вызов процедуры РИОТ. 

23798 Е1 РОР АЕ ‚ Текущее значение аргумента. 

23799 ЗС ТМС А ‚ Приращение аргумента. 

23800 ЕЕ 00 СРО ‚ Проверка на конец экрана. 

23802 20 05 УИ №, [ООР ‚ Возврат для расчета и 
‚печати следующей точки. 

23804 09 ВЕТ ‚ Выход из процедуры. 


ОВАМ/ х,у. 

Две точки входа в ПЗУ существуют и для реализации команды ОВА\М х‚,у. Для входа 
через первую точку (САЦ. 9402) необходимо, чтобы в регистре В было записано АВЗ(у), а в 
регистре С - АВ$ (х). Регистровая пара ОЕ служит для хранения знака приращения 
координат х и у. Регистр О хранит знак приращения по х (5СМ ах), а регистр С - знак 
приращения по у (1, если число положительное и 255, если число отрицательное). 
Программа 2.9 является модифицированной версией программы 2.8, которая 
демонстрирует реализацию команды ОВА\\М. Обратите внимание, что перед вызовом 
процедуры ОВАМ\, начальное значение регистровой пары Н"!' (альтернативная) должно быть 
сохранено. Для этого содержимое этой пары записывается в машинный стек. 

Начальное значение регистровой пары НТ” не должно быть потеряно в ходе 
выполнения программы, написанной пользователем, иначе при возврате в ВАЗ!С-систему 
произойдет сбой в работе компьютера. Начальное значение регистровой пары Н"! 
восстанавливается после команды ОВА\/\. Команды О\МЕВ и 1МУЕВЗЕ включаются таким же 
образом, как и РЕОТ ОМЕВЛМУЕВЗЕ. 

Для реализации команды ОРА\\М х,у через вторую точку входа (САЦ: 9335) необходимо, 
чтобы значения х и у были записаны в калькуляторном стеке, причем значение у должно 
быть верхним в стеке. Чтобы использовать эту точку входа, необходимо прочитать главу 7, 
для ознакомления со способом записи 5-ти байтных чисел в калькуляторный стек. 


Листинг 2.9 

АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
23760 06 5Е Е В, 95 ‚ Координата “у”. 
23762 ОЕ 00 ЕВ С, 00 ‚ Координата “х”. 
23764 СО ЕБ 22 САЕЕ 8933 ‚ Печать исходной точки. 
23767 09 ЕХХ ‚ Включение регистров 

‚ альтернативного набора. 
23768 Еб РИЗН НЕ ‚ Сохранение пара Н'’И°. 
23769 09 ЕХХ ‚ Выключение альтернативного набора. 
23770 06 00 [о В, о ‚ Приращение по “у”=0. 
23772 ОЕ РЕ ЕВ С, 255 ‚ Приращение по “х” = 255. 
23774 16 01 [р О, 1 ‚Знак приращ. по "х”="+”. 
23776 ЛЕ 01 [р Е, 1 ‚Знак приращ. по "у"="+”. 


23778 СО ВА 24 САЕЕ 9402 ‚Рисуем прямую линию. 

23781 09 ЕХХ ‚ Включение регистров 
‚ альтернативного набора. 

23782 Е1 РОР НЕ ‚ Восстановление пары Н'Е`. 

23783 09 ЕХХ ‚ Выключение альтернативного набора. 

23784 АЕ ХОВ А ‚ Обнуление аккумулятора. 

[оОР 

23765 РБ РИЗН АЕ ‚ Запомнили его на стеке. 

23766 СО 28 20 САЕЕ 11560 ‚ На кальк. стеке - текущее 
‚ значение аргумента. 

23789 ЗЕ 78 [О А, 120 ‚На кальк. стеке - 

23791 СО 28 20 САЕЕ 11560 ‚ 120,А. 

23794 ЗЕ 28 [| А, 40 ‚На кальк. стеке - 

23796 С 28 20 САЕЕ 11560 ‚40, 120, А. 

23799 Е1 РОР АР ‚В акк-ре текущее значение 
‚ аргумента. 

23600 РБ РУЗН АР ‚ Запомнили его на стеке. 

23601 С 28 20 САЕЕ 11560 ‚А, 40, 120, А. 

23804 ЗЕ 10 [О А, 16 

23806 СО 28 20 САЕЕ 11560 ‚16, А, 40, 120, А. 

23809 ЕР ВУТ 40 ‚ Включение калькулятора. 

23810 БЕРВ 05 911$10п ‚ А/1б, 40, 120, А. 

23811 ОЕРВ 163 эфаск РТ/2 ‚ РТ/2, А/1б, 40, 120, А. 

23813 ВЕРВ 49 дир11сате ‚ РТ/2, РТ/2, А/1б, 40, 120, А. 

23813 БЕРВ 15 ааа ‚ РТ, А/1б, 40, 120, А. 

23814 БЕРВ 04 ми Е1р1у ‚ Р]»А/1б, 40, 120, А. 

23815 ВЕРВ 31 51 п ‚ ОТМ(А/16»=РТ), 10, 120, А. 

23816 БЕРВ 04 ми тру ‚ 40*5ТМ(А/16«РТ), 120, А. 

25617 БЕРВ 15 ааа ‚ 120+40*51М№ (А/1бхРТ), А. 

23618 ОЕРВ 56 епдса1с ‚ Выключение калькулятора. 

23819 0 0С 22 САЕЕ 8924 ‚ Вызов процедуры РЕОТ. 

23822 09 ЕХХ ‚ Включение альтерн. набора 

23823 Е5 РИЗН НЕЁ ‚ Сохраняя Н'И' 

23824 09 ЕХХ ‚ Выключение альтерн. наб. 

23825 06 32 [О В, 50 ‚ Приращение по “у”. 

23827 ОЕ 00 [0 С,0 ‚ Приращение по “х”. 

23829 16 ЕЕ [0.0255 ‚Знак приращения по “у” 
нус”. 

23831 ЛЕ 01 [О Е, 01 ‚Знак приращения по “х” - 
; "ПЛЮС" 

23833 СО ВА 24 САЕЕ 9402 ‚ Рисование линии. 

23836 09 ЕХХ ‚ Включение альтерн. набора 

23837 Е1 РОР НЕ ‚ Восстановление пары Н'Е`. 

23838 09 ЕХХ ‚ Выключение альтернатив- 
‚ного набора. 

23839 Е1 РОР АЕ ‚ Текущее значение аргумента. 

23840 3С ТМС А ‚ Приращение аргумента. 

23841 ЕЕ 00 СРО ‚ Проверка на конец экрана. 

23843 20 05 ЧА №, 100Р ‚ Возврат для расчета и 
‚печати следующей точки. 

23845 09 ВЕТ ‚ Выход из процедуры. 

ОВАМ/ х, у, а 


Точкой входа в ПЗУ для реализации этой команды служит адрес 9106. В этом случае 
необходимо, чтобы значения х, у иа были записаны в калькуляторный стек в таком порядке, 
чтобы значение "а" было верхним на стеке. Опять же, начальное значение регистровой пары 
Н'Е (альтернативной) должно быть сохранено. 


СВСЕЕ х,у,г 
Точкой входа в ПЗУ для реализации этой команды служит адрес 9005. При этом 
необходимо, чтобы значения х,у, и г были записаны в калькуляторном стеке. Начальное 
значение регистровой пары Н"1" должно сохраниться в отдельном месте в течение работы 


процедуры СВСЕЕ. 

Программа 2.10 демонстрирует метод рисования концентрических окружностей. 
Обратите внимание на тот факт, что эта программа в машинных кодах выполняется также 
медленно, как и на языке ВАЗ!С. Это потому, что процедура СВСЕЕ в ПЗУ достаточно 
длинная. Если в Вашей программе возникнет необходимость построить окружность, то 
будет быстрее, если Вы будете строить ее по точкам, используя для постановки пиксела 
координаты, записанные как последовательность байтов с именем ПАТА. 

Машинный код процедуры представлен в листинге 2.10. В качестве аналога выступает 
следующая БЕЙСИК-программа: 

10 НЕМ СТАСЬЕ х, у, г 

20 РОН 6= 1 102 

30 РОВ а= 1 ТО 21 5ТЕР 2 
40 СТВСЕЕ О\УЕВ 1; 128, 88, а 


50 МЕХТ а 
60 МЕХТ Б 
Листинг 2.10 

АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
23760 06 02 [О В, 2 ‚ РОВ 6=1 ТО 2 
[2 
23762 05 РИЗН ВС 
23763 ЗЕ 01 [О А, 1 ‚ РОВ а=1 ТО... 
1 
23765 РБ РУЗН АР 
23766 РО 36 57 03 ЕО (ТУ+87),3 ‚ ОУЕВ 1 
23770 ЗЕ 80 [О А, 128 
23772 СО 28 20 САЕЕ 11560 ‚На кальк. стеке - 128. 
23775 ЗЕ 58 [ А, 88 
23777 СО 28 20 САЕЕ 11560 ‚На кальк. стеке - 88, 128. 
23780 Е1 РОР АЕ ‚текущее “а”. 
23781 РЭ РУЗН АР 
23782 СО 28 20 САЕЕ 11560 ‚На к. стеке - а, 88, 128. 
23785 09 ЕХХ 
23786 Еб РИЗН НЕЁ ‚ Сохранение Н’!”. 
23787 09 ЕХХ 
23788 (020 23 САЕЕ 9005 ‚ САБ СТАСЬЕ 
23791 09 ЕХХ 
23792 Е1 РОР НЕ ‚ Восстановление Н`Е”. 
23793 09 ЕХХ 
23794 Е1 РОР АР ‚ Текущее “а”. 
23795 ЗС ТАС А 
23796 ЗС ТАС А СОТЕР” 2 
23797 РЕ. У СР 23 ‚а = 237? 
23794 20 0С УВ №, 11 ‚Цикл не завершен. 
23801 С1 РОР ВС ‚ цикл по “А” завершен. 
23802 10 06 УМ 12 ‚ Конец цикла по “Б”. 
23804 ЕО 36 57 00 [О (1ТУ+87), 0 ‚ - О\ЕВ О. 
23808 С9 ВЕТ ‚ Выход 


3. Счет 


Во многих игровых программах необходимо постоянно вести счет, например, счет 
очков, потерянных "жизней", времени и т.д. Известны, по крайней мере, три способа 
организации счета в программах и вывода результатов счета на экран. 

Первый настолько непригляден и занимает так иного памяти, что мы рассмотрим его 
кратко, лишь в общих чертах. Способ этот позволяет организовать счет в программе от 0 до 
очень большого числа. Максимально возможное число определяется только количеством 
байтов, зарезервированных для представления этого числа. Например, для того, чтобы 
получить счетчик от 0 до 999 999, необходимо зарезервировать 6 байтов, т. е. для каждого 


разряда числа нужен 1 байт. Поскольку показание счетчика выводится на экран как значение 
символьной переменной, то на экране в начальный момент времени будет 6 нулей: 000 000. 
Затем, с увеличениен значения на 1, изменения произойдут только в разряде единиц. Если 
же последнее записанное в этом разряде число равно 9, то с добавлением 1 этот разряд 
обнулится, а единица добавится к числу в следующем разряде. Продедура проверки 
значения числа выполняется для каждого разряда и, если во всех шести разрядах записано 
число 9, то дальнейший счет прекращается. Для того, чтобы шаг счетчика был больше, чем 
1, необходимо включить в процедуру счета специальные циклы. 

Второй способ используется для создания счетчиков, показания которых не выходят 
за пределы диапазона 0...65535. Реализация этого способа показана в программе 3.1. В 
этой программе используется одна из процедур ПЗУ, позволяющая выводить на экран 
значение числа, записанного на вершине калькуляторного стека. Вызов этой процедуры 
осуществляется командой САШ- 11747. При этом текущее значение счетчика может, 
например, храниться в неиспользуемой системной переменной 23726. Значение счетчика 
извлекается из этой системной переменной, увеличивается на 1, а затем вновь 
записывается в эту переменную и на вершину калькуляторного стека. После этого 
определяются параметры РАМТ АТ и вызывается процедура 11563, печатающая 
содержимое стека калькулятора. 


Листинг 3. 1 


ЕО ВС, 0 ‚ Инициализация 
ВЕСТМ ‚ счетчика по 
ЕО (23728), ВС ‚адресу 23728. 
САЁЕ 11563 ‚; Переброска на 
‚ стек калькулятора 
[О А, 2 ‚Открыли канал 
САЁЕЕ 5633 ‚ печати на экран. 
ЕО А, 22 
ВТ 16 ‚Аналог... АТ 22 
[О А, 16 
ВУТ 16 ‚ Аналог АТ 22, 16 
САЕЕ 11747 ‚ Печать счетчика. 
ЕО ВС, (23728) ‚Вызов счетчика. 
ТМС ВС ‚ Приращение. 
[О А, В ‚ Проверка на 
ОА С ‚ обнуление. 
ВЕТ 7 ‚Выход, если 0. 
ВТТ 5, (1\+1) ‚ Проверка не была 
‚ли нажата клавиша 
ЧА 7, ВЕСТА ‚ Повтор, если не 
‚было нажатия. 
ВЕТ ‚Выход, если кла- 
‚ виша была нажата. 


, 


Если в регистровой паре значение числа становится равным 65535, то 
осуществляется возврат в ВАЗ!С систему. В эту программу включена также процедура ЕХТ 
(строки 23795...23800), благодаря которой имеется возможность прервать счет и вернуться 
в ВАЗ!С систему, если нажата какая-нибудь клавиша. Это удобно, так как счет от 0 до 65535 
выполняется несколько минут. 

Третий способ также основан на использовании калькулятора. Выше, когда мы 
говорили о калькуляторном стеке, мы не останавливались на детальном рассмотрении 
способа записи и хранения чисел в стеке. Числа в стеке хранятся в 5-байтной форме, что 
позволяет калькулятору легко выполнять действия с ними. Более подробно об этом будет 
сказано в седьмой главе. Здесь же приводим программу, которая выполняет счет от 0 до 
бесконечно большого числа с шагом 250. При достижении показания счетчика 99 999 999, 
форма вывода на экран меняется на Е-форму (1Е+9). Однако счетчик, у которого диапазон 
представляемых чисел достигает 100 млн. вполне пригоден для большинства программ и на 
этот факт можно не обращать внимание. 


В программе 3.2 есть много важных процедур, которые необходимо объяснить. 
Начальное значение счетчика, равное нулю, записывается в стек с помощью кода 
калькулятора 160 (ЗасКк_гего). Это число занимает 5 верхних байтов стека, содержимое 
которых затем копируется в буфер принтера, используемого как "хранилище" для счетчика. 
Копирование выполняется командой ЕОВ. Значение, записанное в регистровой паре НЕ при 
этом считается равным ЭТАСКЕМО-5. 

Значение счетчика выводится на экран с помощью процедуры 11747. Затем в стек 
записывается число 250 (шаг изменения показания счетчика) и число из "хранилища" в 5- 
байтной форме. Следующая команда вызова калькулятора ВЗТ 40 и код калькулятора 
15(а9аа) обеспечивают суммирование двух чисел, записанных на вершине стека, и 
осуществляется переход на начало цикла для передачи нового значения в "хранилище" и 
вывода этого значения на экран. В этой программе предусмотрена также процедура 
преждевременного выхода из цикла счета, если будет нажата любая клавиша. Перед 
возвратом в ВАЗ!С-систему после окончания счета стек обнуляется путем перемещения 
последнего записанного там значения. 

Для создания счетчика, значение которого с каждым шагом уменьшается 
необходимо в стек первоначально записать максимальное значение счетчика (запись в стек 
чисел больше, чем 65535, показана в главе 7), а вместо кода калькулятора для сложения - 15 
(ааа) следует использовать код для вычитания 3 (зи гас\). Необходимо помнить, что при 
вычитании верхнее в стеке число вычитается из числа, записанного вторым. После каждой 
операции вычитания проверяется достигнут ли 0 (либо включен ли 7 бит результата) и если 
это так, то счет прекращается. Перед выводом очередного значения счетчика необходимо 
очищать экран, чтобы избежать ошибок, связанных с устареванием экранной информации. 
Например, если экран не очищать, то при изменении значения счетчика с 1000 на 999 на 
экране будет изображено не 999, а 9990. 


Листинг 3.2 
ОВ@ 23760 
ВТ 40 ‚ включили кальк-р. 
ОВЕРВ 160 ‚На стек - 0. 
ОБЕРВ 56 ‚Выключили кальк-р. 
Е1 
0 ОБЕ, 23296 ‚начало буфера 
‚ принтера. 
[0 ВС, 5 ‚Число перебрасы- 
‚ ваемых байтов. 
[ОТВ ‚ Переброска. 
[0 А, 2 ‚Канал экрана. 
САЕЕ 5633 ‚ Открыли канал. 
[О А, 22 и ЛАТИНА О 
ВУТ 16 
[О А, 11 ВА ОР: 
ВУТ 16 
САЕЕ 11747 ‚ Печать показаний 
‚ счетчика. 
[О А, 250 ‚ Шаг счетчика. 
САЕЕ 11560 ‚ Поместили его на 
‚ стек кальк-ра. 
[О НЕ, 23296 ‚ Начало буфера 
‚ принтера. 
[0 ОЕ, (23653) 
‚23553 - системная 
‚ переменная ЭТКЕМО. 
[0 ВС, 5 ‚Число перебрасы- 
‚ ваемых байтов. 
[ОТВ ‚ Переброска. 
[О (23653), БЕ ‚Новое значение 
‚ ОТКЕМО. 
Вот 40 ‚Включили кальк-р. 
ОЕЕВ 15 ‚Код сложения (ааа) 


БЕЕВ 56 ‚ Выключение к-ра. 

ВТТ 5(1\+1) Проверка не была 

ли нажата какая - 
либо клавиша. 


УВЕ Если нет, то 
повтор. 

ЕВ НЕ, (23653) ‚ (ЭТКЕМО) 

ЕС НЕ 

ОЕС НЕ 

БЕС НЕ 

ЕС НЕ 

ОЕС НЕ 

ЕВ (23553), НЕ ‚ (ЭТКЕМО)-5 

ВЕТ ‚ Выход 


И завершим мы материал этого номера небольшой игрой, в которой объединим то, о 
чем Вы сегодня прочитали. Программа 3.3 показывает возможность использования 
счетчика для измерения скорости Вашей реакции. 

Программа состоит из двух частей: первая часть написана на БЕЙСИКе и служит в 
качестве интерфейса между пользователем и компьютером. Она не требует скорости в 
работе. Машинный код служит для выдачи сообщений и запросов нестандартным шрифтом 
и для измерения скорости реакции. Печать нестандартным шрифтом выполняется с 
помощью блока машинного кода, приведенного в листинге 2.7, рассмотренного ранее. Он 
должен быть подгружен, начиная с адреса 32335. измерение скорости реакции выполнит 
процедура 3.3.2, приведенная ниже. 

Измерение скорости вашей реакции производится следующим образом. Сначала 
процедура 2.7 нарисует на экране большую букву от А до 2, после чего будет включен режим 
САР$З ГОСК и Вам надо нажать соответствующую клавишу. Время Вашей реакции замерит 
процедура 3.3.2. 

В ней применен один хитрый прием. Дело в том, что рисование с помощью РЕОТ 
буквы на экране происходит не очень быстро, и за то время, пока идет этот процесс, Вы 
можете в принципе догадаться, что это за буква и подготовиться к нажатию 
соответствующей клавиши. Чтобы этого не было, буква рисуется желтым цветом 1МК=б по 
желтому фону РАРЕВ-=6 и ее на экране не будет видно. Когда же дело дойдет до измерения 
Вашей реакции, процедура 3.3.2 включит на экране цвет пикселов ИМК=1 (черный). 
Произойдет это с огромной скоростью и буква появится мгновенно. 

БЕЙСИК-программа стартует со строки 9800, в которой записана подгрузка модулей в 
машинных кодах. Поэтому набрав Бейсик выгрузите его на ленту со строкой автостарта 
9800: 

ЗАМЕ “соипфег” 1ТМЕ 9800 


Листинг 3.3.1 


15 ВАТА 87, 143,1,2, “СОУМТ” 

20 ВАТА 95, 63, 1,2, “5ЕОМ” 

30 ПАТА 71, 63, 1,2, “А\МЕВАСЕ” 

40 БАТА 95, 63, 1,2, “6000” 

50 ВАТА 63, 63,1,2, “\МЕВУ 6000" 

60 ВАТА 63, 63, 1,2, “ЕХСЕЕЕЕМТ” 

80 ПАТА 47, 63,1,2, “МОТ ТВУТМ@” 

90 БАТА 0, 31,1,2, “"АМОТНЕА 60? у/п” 
95 ВАТА 55, 125,5,2, "ТНАМК У0Ц” 

96 ПАТА 103, 79,3,2, “Рог” 

97 ВАТА 71,50,5,2, “РЕАУТМ@ 

100 ВАТА 24, 79,5,2, “5ТОР ТНЕ ТАРЕ” 


110 ВАТА 13, 164,2,2, 
120 БАТА 24, 15,1,2, “РВЕЗЗ$ АМУ КЕУ” 

125 ВЕЗТОВЕ 100: РОВ а=1 ТО 4:РАЦЗЕ 25: ТМК 2: 60 $508 9000: МЕХТ а 
180 РАУЗЕ 0: ВОВБЕН 5: РАРЕН 6: ТМК 0: (1$ 


ВЕЗТОВЕ 


105: ТАК 0: 60 58 9000 


РАТМТ АТ 20,5; “РВЕЗЗ$ АМУ КЕУ ТО РЕАУ” 


ТЕ ТМКЕУ$<>"" ТНЕМ 60 ТО 300 
ТЕ ТМКЕ\У$="" ТНЕМ 60 ТО 302 
СЕ$: ВЕЗТОВЕ 105: ТМК 1: 


В 
т 
ГЕТ 2=ТМТ (А№0»26+65) 
ГЕТ х-111: ЕЕТ у=111: ЁЕТ 1=4 
Т 


60 508 9000: ТМК 5: 60 $08 9000 
ЕЗТОВЕ 15: Т№К 2: 60 508 9000 
КО: РОТ 102, 114: ОВАМ 50,0: ОНАМ 0, -38: ОВАМ 50,0: ОВАМ 0, 38 


: ТЕТ м=4: [ЕТ а$=СНА$ 7 


0016 


Кб: ТЕГ с=05А 33393: РОН а=1 ТО А№0*200+50: МЕХТ а 
ТМК 0: ТЕТ с=05А 30000: ГЕТ а=РЕЕК 23728+256»*РЕЕК 237729 
ТЕ а>=140 ОВ а=0 ТНЕМ ВЕЗТОВЕ 20 
ТЕ а<140 ТНЕМ ВЕЗТОВЕ 20 
ТЕ а<120 ТНЕМ ВЕЗТОВЕ 30 
ТЕ а<100 ТНЕМ ВЕЗТОВЕ 40 
ТЕ а<85 ТНЕМ ВЕЗТОВЕ 50 
ТЕ а<70 ТНЕМ ВЕЗТОВЕ 60 
60 508 9000 
ВЕЗТОВЕ 90:Т№К 1:60 508 9000 
ТЕ ТМКЕУ$<>"" ТНЕМ 60 ТО 7010 
ТЕ Т№МКЕУ$="” ТНЕМ 60 ТО 7020 
[ЕТ 9$=ТМКЕУ$ 
ТЕ 9$ <> “у” ТНЕМ 60 ТО 8000 
ГЕТ с=У$8 30082: @0 ТО 350 
ВЕЗТОВЕ 95: РОКЕ 30083, 20: ТЕТ с=15А 30082: РОКЕ 30083, 18 
РОН а=1 ТО 3: 060 5иВ 9000: МЕХТ а: 5ТОР 
ВЕАО х, у, П, м, а$: |ЕТ с=058А 32393: ВЕТУВМ 
СТЕАВ 29999: 10АБ “"СОБЕ: @0 ТО 12 
МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ЗЕ ТА ЕВ А, 122 ‚ Код буквы “7” 
01 81 5С [О ВС, 23681 ‚Для хранения параметра “7” 
‚ выбирается неиспользуемая 
‚в стандартном "Спектруме” 
‚ячейка 23681. 
СО 70 7Е САЁЕ 32381 ‚ Параметр “7” перебрасыва- 
‚ется в 23681 (см. проце- 
‚ дуры 2.7.1, 2.7.2.) 
ЕО СВ 30 [Е СЕТ 3, (1\+48) ‚ Включение 3-го бита сис- 
‚ темной переменной ЕЕА@$2 
‚ (23656) эквивалентно вклю- 
‚чению режима САРУ [0СК. 
21 00 58 ЕО НЕ, 22528 ‚ Первый байт области цвето- 
‚вых атрибутов экрана. 
ТЕ [О А, (НЕ) ‚Проверка этого байта. 
ЕЕ 36 СР 54 ‚ Переключение атрибутов 
20 02 УВ №,12 ‚экранной области с ре- 
36 30 [0 (НЕ), 48 ‚жима РАРЕН = 6, ТМК = 6 
‚на реж РАРЕН =6б. 
23 ТМС НЕ "ТМК = 0. 
7С [| А,Н ‚ Ранее нарисованная бук- 
ЕЕ 5В СР 91 ‚ва мгновенно “проявля- 
20 ЕЗ УИ №, 1 ‚ется” на экране. 
01 00 00 [О ВС, 0 ‘Инициализация счетчика, 
05 РОЗН ВС 
С 28 20 САЁЕ 11563 ‚ Помещение его на стек 
‚ калькулятора. 
ЗЕ 02 [0 А, 2 ‚ Открываем канал печати 
СО 01 16 САЕЕ 5633 ‚на экран. 
ЗЕ 16 [О А, 22 ‚Аналог... АТ... 
07 ВУТ 16 


Листинг 3.3.2 
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РОВУМ 


Как эффективнее всего освоить машинные коды? Опыт показывает, что лучше всего 
освоение проходит, когда берешь какую-нибудь несложную готовую программу в машинных 
кодах и пытаешься понять, что и как там делается. При этом неизбежно возникает вопросы: 
"А почему так? Может можно все это сделать по-другому?" Начинаешь пробовать сделать 
по-другому и выясняется, что по-другому не выходит. Тогда становится понятно, почему 
автор организовал программу именно так, а не иначе. Но иногда встречаются ситуации, 
когда приходят действительно ценные идеи. Именно потому, что "ход мысли" начинающего 
еще не оформился в каких-то рамках, он не знает, что "можно", а что "нельзя". И он пытается 
выполнить задачу по-своему, а это зачастую приводит к находке новых, оригинальных 
решений. 

Александр Балашов из г. Конаково Тверской обл. пишет нам о том, что он начал 
заниматься машинными кодами совсем недавно. Исследуя программы компрессии и 
декомпрессии, опубликованные в "7Х-РЕВЮ" М 1-2 за 1991 г., Александр обратил внимание, 
что под счетчик числа одинаковых байтов используется двухбайтный регистр ВС. Учитывая 
организацию экранной области "Спектрума", он предположил, что выгоднее, видимо, 
использовать один байт, так как 256 байтов перекрывают 8-ю штрихами третью часть экрана 
и старший байт двухбайтного регистра ВС используется лишь при практически пустом 
экране. Число, записанное в этом регистре занимает в скомпрессированном блоке 2 байта, 
один из которых почти всегда в нуле. 

Этот факт побудил Александра разработать свою программу компрессии, в которой 
под счетчик числа одинаковых байтов он использовал только регистр В. Этот вариант 
позволяет получать длину скомпрессированного блока на 10-20% меньшую. Лишь при почти 
незаполненном экране, когда длина скомпрессированного блока меньше 300-400 байтов, 
длина его скомпрессированной картинки равна или уступает указанному варианту 
компрессора. Кроме того, его вариант не приводит к сбоям, которые могут иметь место при 
определенных ситуациях в варианте компрессора, упомянутом выше. 

Александр приводит результаты сравнительных испытаний двух компрессоров для 
взятых наугад нескольких экранов игровых программ. Вот полученные длины 
скомпрессированных блоков (в байтах) соответственно для двух вариантов компрессоров: 


"реа Заг" 4619 и 5936 
"Сацагоп" 3228 и 2821 
"Зсоору Воо" 5958 и 5265 
"ХЕМО" 4985 и 4372 
"баботеиг" 4027 и 3474 


Вариант компрессора, который приводит Александр, заинтересовал нас и мы провели 
тестирование присланного им блока кодов, которое подтвердило основные моменты, 
изложенные выше. Но выяснилось, что полученный скомпрессированный блок кодов нельзя 
загружать для декомпрессии под любой адрес, а только под адрес, в котором он был 
скомпрессирован. Это серьезное ограничение для пользователей, которое может свести к 
нулю преимущество нового варианта компрессора. Хотя проблема в общем-то решается 
довольно просто. Те, кто регулярно читают "РЕВЮ", наверняка знают, как осуществить 
привязку к конкретным адресам загрузки. 

Мы сделали такое усовершенствование программы, присланной Александром. 
Изменения коснулись программы декомпрессии (она стала длиннее на 7 байтов), из-за чего 
пришлось на 7 байтов отодвинуть программу компрессии в сторону младших адресов. В 
таком усовершенствованном виде мы предлагаем программу читателям (см. Лист. 1) 
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ТЕЗЕ 01001В [О ВС, #1800 ‚ В ВС счетчик байтов экрана. 
ТЕ91 110080 [О БЕ, #8000 ‚; В ОЕ задан адрес, куда будет 
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ТЕСТ 12 ЕВ (ОЕ), А ‚это сделано для упрощения декодиру- 
‚ ющей процедуры, т.к. в ней можно 
‚ будет избежать лишней проверки 
‚ счетчика на ноль. 


ТЕС8 ЕВ ЕХ ОЕ, НЁ ‚ Обмен ОЕ и НЕЁ для сохранения ПЕ. 
ТЕС9 01 РОР ОЕ ‚ Возвращаем со стека начальное 
‚ значение ОЕ 
ТЕСА АЕ ХОВ А ‚ Сброс флага переноса, необходимо 
‘для выполнения следующей команды. 
ТЕСВ ЕБ52 ВС НЕ, ОЕ ‚ Отняв от конечной величины ОЕ (ко- 
‚торая теперь в НЕ) начальную, по- 
‚лучим число байт скомпрессированн- 
‚ной области, но без учета послед- 
‚него контрольного байта, который 
‚является инверсной копией предпо- 
‚ следнего. 
ТЕСО 22Е57Е ЕВ (Н#7РЕ5), НЁ ‚ Подставляем полученное значение в 
‚ программу декомпрессии. 
ТЕ00 012600 ЕО ВС, #0026 ‚ Смещение, учитывающее длину 
‚ декомпрессирующей процедуры. 
7ТЕ03З АЕ ХОВ А ‚ Сброс флагов. 
ТЕОА ЕБАА АСО НЕ, ВС ‚ Получение в НЁ суммарной длины 
ТЕОб Еб РИЗН НЕ ‚блока кодов с учетом декодирующей 
ТЕТ С1 РОР ВС ‚ процедуры. Перезапись полученного 
7Е08 03 ТМС ВС ‚ значения в регистр ВС и увеличение 
7ТЕ09 09 ВЕТ ‚его на 1 для учета последнего 
‚ (контрольного) байта. 


Последняя часть программы (с 7РООН) позволяет получить выходной параметр в 
удобном для последующего использования виде. Для этого он был предусмотрительно 
помещен в регистр ВС. Подав команду РАМТ Ч$В 32651 (7ЕЗВН) результат работы 
компрессирующей процедуры (из регистра ВС) будет выведен на экран: длина 
скомпрессированного блока (с учетом контрольного байта) плюс длина декомпрессора. А 
при подаче команды 

ГЕТ 1=058 32651 

- результат будет помещен в переменную |. На магнитную ленту должен быть 

выгружен блок кодов с адреса 32730 (7ЕБАН), длиной (|. 


ТЕЩА С07С00 САЕЕ #007С ‚ Так выполняется привязка к 

ТЕБВ ЗВ ВЕС 5Р ‚адресу загрузки. В результате 

ТЕБЕ ЗВ БЕС 5Р ‚В НЁ получается адрес начала 

ТЕБЕ Е1 РОР НЕ ‚ скомпрессированного блока кодов. 

ТЕЕО 012300 ЕО ВС, #0023 ‚Оно образуется в результате 

ТЕЕЗ 09 Аб НЕ, ВС ‚ увеличения адреса загрузки на 
‚ величину, занимаемую программой 
‚ декомпрессии. 

ТЕЕА 010000 ЕО ВС, #0000 ‚ Сейчас здесь ноль, но при работе 
‚ программы компрессии сюда будет 
‚ подставлена длина скомпрессиро- 
‚ванного блока кодов. 

ТЕЕТ 110040 [О ОЕ, #4000 ‚ Адрес приемника - экрана. 

ТЕЕА 78 ЕО [О А, В ‚ Проверка ВС 

ТЕЕВ В1 ОВ С ‚на ноль. 

ТЕЕС С8 ВЕТ И ‚Выход, если ноль. 

ТЕЕБ ТЕ [О А, (НЕ) ‚В аккумулятор заносится байт из 
‚ скомпрессированной области. 

ТЕЕЕ ЕБАО ГОТ ‚ Перезапись байта в экран и пере- 
‚ход к следующему байту экрана и 
‚ приемника. 

ТЕЕО ВЕ СР (НЕ) ‚ Сравнение его с предыдущим. 

ТЕЕЛ 20Е7 УИ М, НУЕЕА ‚ Если не равен, то переход на 10 и 
‚повтор операции перезаписи и срав- 
‚ нения. 


ТЕЕЗ 23 ТМС НЕ ‚ Переход к следующему байту, в котором 
‚находится кол-во повторов. 

ТЕЕА 05 РУЗН ВС ‚ Счетчик запоминается на стеке. 

ТЕР 46 ЕВ В, (НЕ) ‚ Организуем в В счетчик повторов, 
‚число которых берется из НИ. 

ТЕЕб 12 [1 [В (ОЕ), А ‚Запись байта в экран. 

ТЕЕТ 13 ТМС ОЕ ‚ Переход к следующему байту экрана. 

ТЕЕ8 Т0ЕС №7 В7ЕРб ‚ Уменьшение счетчика, если не 0 - 
‚то продолжение перезаписи байта 
‚из аккумулятора в экран. 

ТЕЕА С1 РОР ВС ‚ Снимаем ВС со стека без проверки 
‚на ноль, т.к. переход в цикл 
‚загрузки одинаковых байтов может 
‚быть только из положительных зна- 
‚чений ВС (нулевой байт инвертиро- 
‚ван по отношению к последнему). 

ТЕЕВ 23 ТМС НЕ ‚ Переход к следующему байту ском- 
‚ прессированной области. 

ТЕЕС [0 ОЕС ВС ‚ Теперь ВС указывает на байт в НЕ 
‚в котором находится число повто- 
‚ ров и тоже не может быть в нуле. 

ТЕЕО [0 ОЕС ВС ‚ Уменьшение счетчика. 

ТЕЕЕ 18ЕА ЧН #7ЕЕА ‚ Переход на проверку ВС и пере- 
‚запись байтов. 

8000 даа. ‚ Скомпрессированный блок кодов. 


Для того, чтобы можно было компрессировать экраны, записанные без заголовка, 
Александр рекомендует дополнить программу компрессора процедурой загрузки блока 
кодов без заголовка, которая использует процедуру 1386 (0556Н) ПЗУ: 


ТЕТЕ 00210040 ГО ТХ, #4000 
= 110018 ГО ОЕ, #1800 
7Е85 ЗЕЕЕ ГО А, #ЕЕ 
7Е87 37 СЕ 

7Е88 05605 САЕЕ #0556 


Эффективность той или иной программы во многом зависит от того, насколько 
продумана Бейсиковая ее часть. Мы приводим вариант программы "Компрессор", которая в 
основе содержит программу, присланную Александром. Она русифицирована способом, 
которым мы постоянно пользуемся (см. "7Х-РЕВЮ"-92 М 1,2, стр. 30). 


1 60 ТО 100 

2 СТЕАВ 30000: ГОАБ “спг” СОБЕ 64600 

3 РОН №=32636 ТО 32767: ВЕАБ М: РОКЕ М,М: МЕХТ № 
4 ВИ 
5 
6 
9 


ЗАМЕ “СОМРВ” ЕТМЕ 2: $ТОР 
РОКЕ 23606,88: РОКЕ 23607, 251: ВНЕТУВМ 
РОКЕ 23606,0: РОКЕ 23607,60: НЕТИВМ 
100 ВОВОЕВ 7: РАРЕН 7: ТМК 0: С1$ 


200 РВТМТ АТ 7, 1; "<1> - ЗАГРУЗКА ЭКРАННОГО ФАЙЛА” ° ТАВ 7; "С ЗАГОЛОВКОМ” 


210 РАТМТ АТ 10, 1; "<2> - ЗАГРУЗКА БЛОКА КОДОВ” `ТАВ 7; "БЕЗ ЗАГОЛОВКА” ТАВ 7; “С КОНТРОЛЕМ 
СЧИТЫВАНИЯ” 

220 РАТМТ АТ 14, 1; "<3> - ЗАГРУЗКА БЛОКА КОДОВ” `ТАВ 7; "БЕЗ ЗАГОЛОВКА” ТАВ 7; "БЕЗ КОНТРОЛЯ 
СЧИТЫВАНИЯ” 


300 РАЦЗЕ 0: ТЕ ТМКЕУ$<>"1"” АМО ТМКЕУ$<>"2" АМО ТМКЕУ$<>"З”" ТНЕМ 60 ТО 300 
310 ТЕТ 1$=ТМКЕУ$ 
400 СЕ$ : РАТМТ #0; ТАВ 11; РЕАЗН 1;” ЗАГРУЗКА ": @0 508 9 

410 ТЕ 1$="1” ТНЕМ ГОАО “"СООЕ 16384, 6912: ЕЕТ Е=0$В 32651 

420 ТЕ 1$="2" ТНЕМ РОКЕ 32649,2: РОКЕ 32650,8: ЕЕТ 1=058В 32638 

430 ТЕ 1$="3” ТНЕМ РОКЕ 32649,66: РОКЕ 32650, 5: ЕЕТ Е=0$В 32636 

500 60 $508 8: ТМРИТ ; : РАТАТ #0; РАРЕН 0; ТМК 7; ВВАТОНТ 1, РЕАЗН 1;” ДЛИНА=”; 
510 ВЕЕР .1,20: РАЦЗЕ 400 


600 РВТМТ АТ 21,0; "ИМЯ ФАЙЛА ДЛЯ ЗАПИСИ: ": 60 50В 9: ТМРУТ 2$ 
610 ЗА\МЕ Е$ СООЕ 32730, 1 

700 Вим 
900 ВАТА 221, 33,0, 64, 17, 0, 27, 62, 255, 55, 205, 86,5 

910 ВАТА 33,0, 64, 1,0, 27, 17, 0, 128, 213, 27, 19, 120, 177, 40, 40, 126 

920 ВАТА 237, 160, 190, 32, 248, 13, 12, 32,4,5,4, 40, 26, 18, 19,8, 62,0 

930 ВАТА 60, 40, 229, 16, 35, 11, 13, 12, 32,4,5,4, 40, 8, 8, 190, 32, 214, 8 

940 ВАТА 24, 235, 27, 26, 47, 19, 18, 235, 209, 175, 237, 32, 34, 229, 127,1, 38,0, 175, 237, 74, 229, 193,3, 201 
950 ВАТА 205, 124,0, 59, 59,225, 1,35,0,9,1,0, 0, 17, 0, 64, 120, 177, 200 

960 ВАТА 126, 237, 160, 190, 32, 247, 36, 197, 70, 18, 19, 16, 252, 193, 35, 11, 11, 24, 234 


Со строки 200 выводится меню программы. Возможны три варианта загрузки. Первый 
- обычная загрузка экрана, записанного с заголовком. Второй и третий - загрузка экрана, 
записанного без заголовка. Эти два режима могут оказаться довольно удобными, так как во 
многих играх встречаются блоки кодов - экраны, записанные без заголовка. Режимы 
загрузки экрана без заголовка отличаются между собой тем, что в одном случае для 
загрузки вызывается подпрограмма 2050 из ПЗУ, которая в случае ошибки выводит 
сообщение: "Таре 1юа4та еггог", а в другом случае используется подпрограмма 1366 ПЗУ, 
при этом работа БЕЙСИКа не прекращается независимо от правильности считывания. 

Сразу же после окончания загрузки внизу экрана Вы увидите результат работы 
компрессирующей программы: длину скомпрессированного блока кодов. После нажатия 
любой клавши программа предложит Вам ввести имя для записи полученного результата 
вместе с Программой декомпрессии в виде единого файла. После записи можете загружать 
скомпрессированной блок в произвольный адрес АБВ. Вывод на экран - ВАМООММЕ У$В 
АОВ. 


Другой вариант компрессии. 


Продолжая разговор о компрессорах экрана, приведем еще одну программу. 

Очень часто при разработке каких-либо (например обучающих) программ, приходится 
решать вопрос размещения в памяти компьютера большого количества графической 
информации, рисунков, схем и т. д. Причем во многих случаях графика занимает не весь 
экран, а скажем, только средний сегмент экрана. При этом верхний и нижний сегменты 
используются для других целей. Поэтому за счет компрессии не полного экрана, а лишь 
одного его сегмента, можно значительно сократить длину скомпрессированного блока 
кодов. Кроме того, при декомпрессии можно вызывать сегменты из памяти независимо 
один от другого, не нарушая соседние, правда в этом случае придется компрессирование 
проводить за два этапа, отдельно для дисплейной части и атрибутов, так как между вами 
появляется разрыв. 

Декомпрессирущий блок является единственным для всех скомпрессированных 
экранов. При таком подходе в памяти можно получать десятки (а если небольшие, то может 
быть даже сотни) экранов. Перед запуском декомпрессирующей программы надо номер 
нужного экрана занести в системную ячейку декомпрессора при помощи РОКЕ, а затем 
вызывать декодирующую процедуру. 

В основе приводимой программы содержится известный многим пользователям 
"Спектрума" блок кодов "сотргез5" СООШЕ 28000,650. Но Бейсиковая часть сделана 
практически заново, что позволило пользоваться программой с большим удобством и 
удовольствием. Кроме того, мы приводим два варианта программы: для магнитофона и для 
дисковода. 

Этот вариант компрессора является более изощренным, чем приведенные до сих пор 
программы. (Достаточно обратить внимание на длину его кодового блока). Однако эта 
длина сама по себе ни о чем не говорит. Ведь важна длина конечного продукта - 
скомпрессированного экрана плюс программы декомпрессии. Этот вариант компрессора 
позволяет получить более высокую степень компрессии, чем те, которые мы приводили до 
сих пор. Мы провели сравнительные испытания этого компрессора для тех же экранов. 

"Оеа З1аг" 3185 байт 

"Сацагоп" 2128 байт 


"Зсоору Воо" 
"ХЕМО" 
"баботеиг" 


3946 байт 
3439 байт 
2545 байт 


Кроме более высокой степени компрессии, этот вариант компрессора позволяет 
получить следующие режимы, недоступные другим программам: 

Возможно компрессирование как всего экрана, так и произвольно взятых одного 
любого или двух соседних сегментов экрана. Программа анализирует расположение 
графической информации на экране и выбирает, в зависимости от этого, наиболее 
выгодный способ компрессирования. При этом во время декомпрессии Вы можете увидеть, 
что некоторые экраны разворачиваются сверху вниз, аналогично тому, как это происходит 
при загрузке. А другие экраны - разворачиваются слева направо, (что несомненно 
усиливает зрительный эффект). Правда работает эта программа медленнее, чем другие 
варианты компрессоров. Компрессия полного экрана занимает порядка 1-3 секунд (однако 
это время не имеет значения для конечного продукта). 

Так как кодовый блок программы (мы его полностью приводим ниже) расположен с 
адреса 28000, при использовании программы с дисководом Вам может не хватить 
свободного места. Для этого в программе используются приемы по сохранению памяти. Мы 
уже приводили такие материалы в "РЕВЮ". Это, в частности, замена числа 0 на МОТ Р!, 
числа 1 - на $СМ Р|, использование вместо числа выражения: \УАЁ "число". Без таких 
преобразований оставлены только строки программы, реализующие работу меню, чтобы не 
замедлять время выполнения этих операций. Все эти приемы могут оказаться излишними 
для магнитофонного варианта, но они обязательны для дискового. Текст БЕЙСИК- 
программы вначале приведен для магнитофонного варианта. Затем будут даны 
дополнительные строки, которые позволят Вам получить дисковый вариант программы. 

Вот Бейсиковая часть программы. Она традиционно русифицирована по известной 
Вам схеме 


1 60 ТО \УАЕ "100" 

2 ВОВОЕВ \УАЁЕ “7”: РАРЕН МАЕ "7"; ТМК МОТ РТ: СЕЕАН УАЁ "27995"; [ОА “спг"СОрЕ 64600 

3 ЕОАБ "сотргезз"С00Е 28000, 650 

4 60 ТО МТ РТ 

5 ЭАМЕ "СОМРВЕЗЗ"ЕТМЕ 2: ЗАМЕ "сотргезз"С00Е 28000, 650: $5ТОР 

8 РОКЕ \УАЁ "23606", \УАЁ "86": РОКЕ УАЁ "23607", МАЕ "251": ВЕТУВМ 

9 РОКЕ \УАЁ "23606", МОТ РТ: РОКЕ \УАЁ "23607", СОБЕ "<"; ВЕТОВМ 

30 ВОВОЕВ 1: РАРЕВ 0: ТМК 7: (15 : 60 508 8: 60 $508 40 

31 ЕОВ М=1 ТО ММ: ВЕАБ М$: РАТМТ ТМК 6:АТ (\0+(М-1)*0\), ХО: М$: МЕХТ М: РАТМТ ТМК 4: АТ \1, 
3; “З5РАСЕ, БОММ, УР, ЕМТЕН, ВВЕАК” 

32 ТЕ ММ<1 ТНЕМ 1ЕТ ММ=ММ 

33 ТЕ ММ>ММ ТНЕМ ЁЕТ ММ=1 

34 РНАТМТ АТ (\0+(ММ-1)»*0У), Х0-0Х: РАРЕН 7: ТМК 2: ВВТОНТ 1: О\ЕВ 1;:59$: ВЕЕР .03, 2*ММ+10 

35 РАЦЗЕ 0: ЕЕТ Т=(1МКЕУ$=” ” ОН 1 ТМКЕУ$= "б” ОВ СООЕ ТМКЕУ$=10)+(ТМКЕ\У$="7” ОВ СОБЕ 


ТМКЕУ$=11)»2+(ТМКЕУ$ = "0” ОВ СООЕ ТМКЕУ$=12 ОВ СООЕ ТМКЕУ$=13)*3: 60 ТО (35+Т) 
37 РАТМТ ТМК 6; АТ (\0+(ММ-1)»*0\),ХО-0Х; ОМЕН 1;5$: ЕТ ММ=ММ-2*1+3: @0 ТО 32 

38 РОВ М=1 ТО ММ: РВТМТ РАРЕН 8; ТМК 8; ВАТОНТ 6; РГАЗН (М=ММ); ОМЕВ (М=ММ); АТ (\0+(М- 
1)*0\), Х0-0Х:$$: МЕХТ М: ВЕЕР .1,36: РАУЗЕ 10: ВЕТИУАМ 


40 РЕТМТ АТ 2, 9: "ЧИСЛО ЭКРАНОВ: “:5СВ 

42 РЕТМТ АТ 3, 3: "КОМПРЕССИЯ СЕГМЕНТА : “; ВЕ; : ТЕ ЕМО<>ВЕ@ ТНЕМ РАТМТ АТ 3, 21: "ОВ": АТ 
3,26:"-"; ЕМО 

44 РАТМТ АТ 4,6: “СВОБОДНОЙ ПАМЯТИ : ":65536-ЁГАЗТ 

49 ВЕТОВ 

50 ВОВОЕВ \УАЁ “7”: РАРЕВ УАЁ “7”: ТМК МОТ РТ: (15 

52 РАТМТ АТ МАЕ "21", МОТ РТ: "ИМЯ ФАЙЛА:": 60 ИВ МАЕ "9"; ТМРИТ Еф: (15 

59 ВЕТИВ 

100 ЕЕТ ВЕб=5@мМ РТ: ЕЕТ ЕМО=\УАЕ "3". ЕЕТ 5СН=МОТ РТ: ЕЕТ ЕТНУТ=\УАЕ "28350": ГЕТ ГАЗТ=\УАЕ 
"28650": ТЕТ 5=МОТ РТ 

190 ЕЕТ ММ=5аМ РТ 

200 БАТА “ЗАГРУЗКА ЭКРАНА”, "РЕЖИМ КОМПРЕССИИ”, "ПРОСМОТР ЭКРАНА“, "УДАЛЕНИЕ ЭКРАНА”, "ЗАПИСЬ 
ФАЙЛА" 

201 ВЕЗТОВЕ \МАЁ “200”: ЕЕТ ММ=УАЕ “5”: ЕЕТ ХО=УАЕ “8”: ЕЕТ \0=УАЕ “9”: ЕЕТ 0\=56М РТ; ЕТ 


ОХ=УАЕ “3”: ЕТ $$=" 


": ГЕТ У1=\УАЕ "19"; 60 $08 МАЕ “30” 


210 ТЕ $СН=МОТ РТ АМО ММ>=\УАЕ “3” ТНЕМ РВТМТ #МОТ РТ; РЕАЗН 56№ РТ;” НЕТ ЭКРАНОВ! 
“: ВЕЕР 5СМ№ РТ, МОТ РТ: РАЦЗЕ МАЕ “100”: 60 ТО МАЕ "190" 

220 60 ТО МАЕ “1ЕЗ” *ММ 

300 ВАТА ” ВЕСЬ ЭКРАН”, "СЕГМЕНТЫ 1-2”, "СЕГМЕНТЫ 2-3”, ” СЕГМЕНТ 1”, ” СЕГМЕНТ 2”, ” СЕГМЕНТ 
3" 

301 НЕЗТОВЕ МАЕ “300”: ЕЕТ ММ=УАЕ ”б”: ГЕТ ХО=\МАЕ "10": ЕЕТ УО=УАЁЕ "8": ЕЕТ ОУ=$@м№ РТ: ЕЕТ 

ОХ=МАЕ “3”: ЕЕТ $$=” “: ГЕТ У1=\УАЕ "19": 60 $08 УАЁ “30”: ВЕТУВМ 

0 50В МАЕ “50” 

ОАО Е$ СООЕ 16384, 6912 

ОКЕ МАЕ "28005", ТМТ (ГАЗТИМАЕ "256"): РОКЕ МАЕ "28004", ГАЗТ-МАЕ "256”*РЕЕК \МАЁ "28005" 

ОКЕ \УАЁ "28006", ВЕб-56М№ РТ: РОКЕ \МАЁ "28007", ЕМО-(ВЕВ-5С6М РТ) 

АМРОМТУЕ 0$А МАЕ “28010” 

ЕТ ГЕМ=РЕЕК \УАЕ “28008”-+\МАЕ "”256”*РЕЕК МАЕ “26009”: ЕЕТ ТАЗТ=ЕАЗТ+ЕЕМ+$@М РТ: ЕЕТ 

$СВ=5СВ+$@6№ РТ: ГЕТ 5=$5СВ-$@М№ РТ 

0 50В \УАЕ “8”: РАТМТ #М0Т РТ; РАРЕВ МОТ РТ; ТМК \УАЁЕ "7"; ВАТСНТ 56М№ РТ; ЕЕГАЗН $6М РТ;” 

ЛИНА=”; СЕМ; ^” 

АУЗЕ \УАЁ “400” 

0 ТО \УАЁ "200" 

ЕТ ММ 5СМ РТ: 60 508 \УАЕ “300” 

ЕЗТОНЕ \АЁ “2000”: РОВ №=5@№ РТ ТО ММ: ВЕАО ВЕС: НЕАБ ЕМО:МЕХТ № 

0 ТО \АЁ “190” 

АТА 5(М РТ, МАЕ “3”, 5@№ РТ, МАЕ "2", МАЕ "2", МАЕ “3”, $6М РТ, $@М№ РТ, МАЕ "2", МАЕ "2", МАЕ 

СУ, МАЕ, 8 

ЕТ $5=$* (5<$СН)+($<=5СВ) 

РИТ (“НОМЕР ЭКРАНА (1-”; $СВ;"): ";5;” : "); ЕТМЕ 2$: ТЕ Е$<>"" ТНЕМ ЕТ З=МАЁЕ Е$ 

Е 5<50М РТ ОВ $>5СН ТНЕМ @0 ТО МАЕ “3010” 

ОВОЕВ УАЁ “7”: РАРЕВ МАЕ “7”: ТМК МТ РТ: ($ 

ОКЕ \УАЁ "28352",5: ВАМООМТУЕ ЦЗН \МАЁ "28350": РАУЗЕ МОТ РТ 

0 ТО \АЁ "200" 

Е 5СВ $С№ РТ ТНЕМ ТЕТ ГАЗТ=\УАЕ “28650”: 60 ТО МАЕ “4100” 

ЕТ А=МОТ РТ: ЕЕТ С=А: ТЕТ ГЕМ=УАЕ “28649”: РОВ №=$@6№ РТ ТО $СВ: ТЕТ ЕЕМ=ЕЕМ+А+С» МАЕ 

"256”+5@№ РТ: ЕЕТ А=РЕЕК 1ЕМ: ЁЕТ С=РЕЕК (ЕЕМ+5@М РТ): МЕХТ №: ЕЕТ ГАЗТ=ЕЕМ 

ЕТ 5СВ=$СН-56М РТ: ТЕТ $=5СВ-$СМ№ РТ 

0 ТО \АЁ "200" 

0 $0В \МАЁ “50” 

А\МЕ ЕФСООЕ 28350, ГАЗТ-ЕТАЗТ 

ЕВТРУ 2$ СООЕ 

0 5\В МАЕ "8" : РАТМТ #МОТ РТ; ТМУЕНЗЕ $6№ РТ; “” ЗАПИСЬ И ВЕРИФИКАЦИЯ - О.К. 

ЕЕР \УАЕ ”.1”, МАЕ “26”: ВЕЕР УАЁЕ “.1", МАЕ "20": РАЦЗЕ УАЕ “100” 

0 ТО \УАЁЕ "190" 
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Программы, подобные этой, Вы уже встречали на страницах "РЕВЮ", поэтому не 
будем подробно останавливаться на каждой ее части. Перечислим только основные 
фрагменты: 

Строка 2 - автостарт, загрузка кодовых блоков. 

Строка 5 - самозапись программы на магнитную ленту. 

Строки 8 и 9 - переключатели шрифтов, соответственно русского и латинского. 

Строка 30 - подпрограмма работы меню. Она была подробно рассмотрена в “7Х- 
РЕВЮ" М 9-10 за 1992 г., стр. 197. 

Строка 40 - вывод основных режимов и состояния компрессора. На экран выводится 
следующая информация: число скомпрессированных экранов, режим компрессии - какие 
сегменты заданы для компрессирования, количество оставшейся свободной памяти 
компьютера. 

Строка 50 - ввод имени файла для загрузки и записи. Если при выполнении загрузки в 
ответ на запрос имени нажать ЕМТЕВН, ничего не вводя, то загрузится первый встретившийся 
кодовый файл. 

Строка 100 - инициализация. 

Строка 200 - главное меню программы, задающее режимы работы компрессора. 

Строка 300 - второе меню, задающее сегменты для компрессирования. 

Строка 1000 - загрузка очередного экрана. 

Строка 2000 - задание сегментов для режима компрессии (вызов второго меню). 


Строка 3000 - просмотр скомпрессированных экранов. Здесь следует отметить 
организацию ввода номера просматриваемого экрана. При запросе предлагается вариант 
по соглашению. Если предложенное число Вас не устраивает, введите свое значение, если 
устраивает - просто нажмите ЕМТЕВ. Предложение варианта по соглашению (строка 3000) 
организовано так, что после загрузки очередного экрана к просмотру предлагается этот 
последний экран. После его просмотра по соглашению в следующий раз будет предложен 
первый экран, после его просмотра - второй и так далее до последнего, затем опять первый 
и так далее. Так можно просмотреть все экраны, ничего не вводя, а можно в любой момент 
вмешаться в этот порядок и ввести свое значение. 

Строка 4000 - удаление экрана. Надо ли здесь организовать запрос для 
подтверждения Вашего решения? Организуйте его сами, если хотите. Удаляется всегда 
только последний экран. Это может создавать некотрое неудобство. Хорошо, если бы 
можно было удалять любой из скомпрессированных экранов, но это потребует 
вмешательство в блок кодов. В общем-то ничего принципиально сложного здесь нет. Надо 
только рассчитать место удаляемого экрана, определить его длину и организовать при 
помощи машиннокодовой команды ШВ переброску следующих экранов на место 
удаляемого. Все, что необходимо для такого рассчета, находится в строках с 4000. Может 
быть кто-нибудь из читателей и сделает такое усовершенствование. 

Строка 5000 - запись всех скомпрессированных экранов вместе с программой 
декомпрессии в виде единого файла. Если при задании имени файла нажать ЕМТЕН, ничего 
не вводя, то программа вернется в режим основного меню (см. строку 5000). 

При работе с БЕТА-диском, должны быть изменены строки, связанные с загрузкой и 
выгрузкой. Мы приводим ниже вариант строк для адаптации программы под дисковод. Вы 
можете набрать и хранить их отдельно, а при адаптации подгрузить к основной БЕЙСИК- 
программе при помощи МЕВСЕ. 
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6 ВАМРОМТИЕ 15А МАЕ “15616” 
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Строка 5 - как и раньше, самозапись программы (только Бейсиковой части) на диск. 
Она выполняется при помощи подпрограммы со строки 90, так как в одной пятой БЕЙСИК- 
строке не может выполняться более одного оператора ТВООЗ. 

Строка 6 - переход в ТВ-0О$ для выполнения каких-либо действий. После возврата 
оттуда по команде ВЕТИНВМ, попадаем на ЭТОР в строке 7. 

Строки с 1000 - загрузка экрана с диска. Здесь в случае ошибки при загрузке 
(например отсутствие файла на диске), происходит переход на строку 1500. Выведенный на 
экран код ошибки позволит Вам сориентироваться, почему произошла ошибка (коды 
ошибок см. в руководстве по ТВ ОО5). 


Строка 1500 предлагает вывести каталог диска, для того, чтобы Вы могли еще раз 
уточнить, есть ли нужный файл на этом диске или нет. На строку 1500 программа может 
перейти и из строк с 5000. 

Строка 5000 - режим записи файла на диск, а также выполнение его верификации 
после записи. 

Для тех читателей, которым не знаком кодовый блок программы "СОМРВЕЗЗ", мы 
приводим его полностью. (Тем, у кого он есть, можно его не набирать, а взять из имеющейся 
программы в готовом виде.) Для набора его Вы можете воспользоваться рекомендациями и 
программой для шестнадцатиричного ввода см. "7Х-РЕВЮ"-91, МЗ, с. 59. 
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Михайленко В.С., Турович А.К. 


Профессиональный подход 


Методы Билла Гильберта. 


По-видимому, среди программ, находящихся у пользователей, имеющих Синклер- 
совместимые компьютеры, ничто так не распространено, как программы, взломанные 
Биллом Гильбертом. 

В этой статье Вашему вниманию будет предложена информация о специфике 
некоторых приемов оформления программ, применяемых этим хаккером. Несмотря на 
внешнюю схожесть эффектов, получающихся в ходе работы программ, Гильберт не всегда 
действует по одному шаблону. У него их достаточно много, хотя иногда они очень похожи и, 
разобравшись с одним из них, Вам не составит труда понять принципы действия остальных. 

Как Вы уже вероятно знаете, Билл Гильберт всегда оставляет текстовые сообщения на 
взломанных им программах. Несмотря на то, что в последние годы он явно поскромнел, и 
большинство его сообщений можно перевести с английского, как "Дисковая версия Билла 
Гильберта" (по-английски: Озкеа бу ВШ Сием), в отличие от ранее использовавшегося 
автографа "Взломано Биллом Гильбертом" (по-английски: Сгаскеа Бу ВИ СИбем), его 
методы остались теми же и основная цель, которую он преследовал вставкой подобных 
сообщений не изменилась. При изучении его “творчества“" необходимо осознавать 
неэтичность действий Гильберта и относиться к этому так же, как и к тому, что некто на 
наших глазах роется в чужих карманах (хоть и делает это высокопрофессионально). 

В то же время, опыт хаккера может быть использован при оформлении программ, 
совершенствовании их дизайна, что делает работу более простой, удобной и увлекательной. 

При использовании приводимого нами материала необходимо учитывать, что 
большинство рассматриваемых программ написаны в машинных кодах. Это еще раз говорит 
о том, что высокого уровня профессионализма можно добиться только изучив 
программирование на языке Ассемблера. Несмотря на то, что большинство 
рассматриваемых процедур снабжены подробным комментарием, мы настоятельно 
рекомендуем Вам перед прочтением данного материала поближе познакомиться с 
программированием в машинных кодах. Одной из лучших книг, которые нам приходилось 
встречать по данное тематике, является методическая разработка “"ИНФОРКОМа" 
"Практикум по программированию в машинных кодах". 

Мы рекомендуем Вам для начала просто ознакомиться с текстом статьи, получить 
представление об основных приемах и методах, а потом уже детально изучать проблему по 
разделам. Мы старались подготовить информацию таким образом, чтобы она не требовала 
специального запоминания, а усваивалась постепенно по ходу внимательного прочтения. 

Необходимо также учитывать, что данный материал тесно связан с той информацией, 
которая давалась в предыдущих статьях, особенно это касается методик взлома 
рассмотренных систем защиты. Впрочем, если Вы и не читали предыдущих статей, то не 
отчаивайтесь - нижеследующий текст отличается определенной автономией от 
предыдущего материала и не требует особой подготовки, интересен как для 
профессионалов, так и для начинающих. Желаем Вам удачи при изучении! 


Современные разработки Билла Гильберта. 

Билл Гильберт работает над взломом программ уже много лет. За это время ему 
удалось накопить достаточно большой опыт в этих вопросах. Постоянно совершенствуя 
свою технику программирования он достиг того уровня, который мы видим в последних 
взломанных им программах. 

Наиболее любопытными среди них являются гоп Мап и Зит СКу. В этих програмах 
использован оригинальный вывод текстовых сообщений о взломе, который свидетельствует 
о высоком профессиональном уровне программирования хаккера. В обеих программах 
используется совмещение программы на БЕЙСИКе с программой в машинных кодах, обе 


эти программы схожи также и по структуре загрузки и по методике взлома, применненной 
хаккером. Это позволяет рассматривать обе программы как две оригинальные ветви одного 
типа взлома. В них можно найти очень много общего, в том числе: общие процедуры на 
Ассемблере, схожесть расположения процедур в адресном пространстве и многое другое. 
Но, в тоже время, существуют довольно разительные отличия, которые предопределяют 
необходимость индивидуального рассмотрения каждой программы. В первую очередь это 
касается методики вывода текстовых сообщений на экран и, во-вторых, методики создания 
оригинальных моделей шрифта. 
Рассмотрим более подробно эти методы на обеих программах. 


гоп Мап. 
10 РАРЕВ МОТ РТ 
20 ТМК МОТ РТ 
30 РОКЕ \МАЁ “23624”, МОТ РТ 
40 СЕЕАВ \АЁ “24499” 
50 ОПТ МАЕ "254", МОТ РТ 
60 ВАМБООМТУЕ У$Н МАЕ "23789" 
70 1ОАБ “ТАММАМТ” С00 
80 [0ОАБ “ТАОММАМ2” СОБЕ 
90 ВАМООМТУЕ У$Н УАЁЕ "25ЕЗ”" 
100 ВЕМ № РОКЕ 
110 ВАМООМТУЕ 0$В \УАЁ "24036" 

Как видим, данная программа практически не имеет стройной системы защиты; такой 
вид она имела сразу же после того, как ее обработал Билл Гильберт. В строке 100 хаккер 
сам предупреждает нас, что в программе отсутствуют защитные РОКЕЗ. Структура 
прграмны на БЕЙСИКе достаточно проста. Строки 10-20 делают цвет !МК и РАРЕВ черный, 
строка 50 делает черным и цвет бордюра. Как Вы могли заметить, в программе трижды 
используется запуск процедур в машинных кодах, но нас будет интересовать только самый 
первый запуск в строке 60. Именно благодаря ему создается оригинальное текстовое 
сообщение характеризующееся необычным сочетанием цветов, и использованием 


необычного шрифта. Рассмотрим подпрограмму в машинных кодах более подробно. 
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Если Вы внимательно присмотритесь к программе в машинных кодах, то обнаружите, 
что текст ее составлен весьма профессионально. Программа на языке Ассемблера обычно 
характеризуется очень большим объемом. Чтобы облегчить работу с ней, некоторые 
логически законченные действия оформляются в виде отдельных процедур - подпрограмм, 
которые следуют одна за другой. Управление этими процедурами осуществляется из 
головной программы на языке Ассемблера, которая последовательно вызывает каждую 
процедуру, используя оператор САШ.. 

Внимательно присмотревшись к листингу программы, Вы обнаружите, что программа 
Билла Гильберта не исключение. В этом листинге очень четко просматривается головная 
программа управления и процедуры в машинных кодах. 

Рассмотрим, что выполняют процедуры этой программы. Для этого проследим, какой 
визуальный эффект получается при работе программы в целом. После запуска программы 
экран становится черным, после этого на нижних строчках появляется надпись "1ВОМ МАМ" 
и постепенно высвечивается сообщение “ГИЗКЕО ВУ ВШЕ СИВЕНТ 1991". После того, как 
последняя надпись высветилась полностью, все буквы начинают переливаться разными 
цветами. Особый колорит оформления достигается за счет использования в программе 
оригинального шрифта. 

Как Вы видите, программа состоит из шести подпрограмм, каждая из которых 
выполняет определенную функцию для достижения визуального эффекта, описанного 
выше. Таким образом, одна из них формирует утолщенный шрифт, следующая затемняет 
экран, следующая за ней процедура ответственна за распечатку первого текстового 
сообщения, второе текстовое сообщение, как Вы помните, выводится на экран достаточно 
оригинальным способом - путем постепенного высвечивания информации от середины к 


краям экрана, следующая процедура обеспечивает переливающуюся различными цветами 
окраску букв. 

Однако, наибольший интерес для читателя, на наш взгляд, представляют не все 
процедуры, используемые Биллом Гильбертом, а лишь некоторые из них. В частности, 
формирование оригинального шрифта. Поэтому не будем здесь подробно расссматривать 
каждую процедуру программы в машинных кодах, а остановимся на рассмотрении лишь 
самых интересных из них, Оставленные за пределами нашего изучения процедуры 
достаточно просты и не нуждаются в подробном объяснении и комментарии. 

Рассмотрим процедуру формирования утолщенного шрифта. Одним из недостатков 
знакогенератора Спектрума являются тонкие буквы - поэтому многие пользователи 
жалуются на нечеткость надписей, выводимых на экран. Самым практичным методом 
создания утолщенного шрифта можно считать моделирование нового знака, как наложение 
нормального знака и знака, сдвинутого на одну точку влево. Формирование нового шрифта 
обычно начинается перемещением встроенного знакогенератора "Спектрума" в свободную 
область оперативной памяти. Следующим этапом является изменение знакогенератора, 
находящегося в ОЗУ, в соответствии с нашими требованиями и завершающим этапом 
является переключение системной переменной, указывающей на место расположения 
нового знакогенератора, образовавшегося в ходе ваших переделок. Рассмотрим 
подпрограмму на Ассемблере, выполняющую данные функции. 
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В начале в регистр НЕЁ мы загружаем начало встроенного знакогенератора Спектрума 
- 3000. После этого в регистр ПЕ загружается адресе нового месторасположения шрифта, а 
в регистр ВС мы заносим общую длину области знакогенератора. Далее начинается работа 
в цикле. Мы загружаем в аккумулятор то, что находится в ячейке памяти, на которую 
указывает регистр НИ, то есть первый байт области знакогенератора. Следующий этап - это 
ротация аккумулятора вправо, причем бит О перемещается во флаг переноса, а флаг 
переноса - в бит 7. Более подробно эта операция показана на структурной схеме, 
приведенной ниже. 
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Схема 1.0 : С - флаг переноса. 


Таким образом, мы получаем байт знакогенератора, который является смещенным 
вправо на один бит относительно первоначального байта. Теперь нам необходимо 
выполнить команду "ИЛИ" (ОВ) над образовавшимися байтами. Команда “ИЛИ" (ОВ) 
исполняется побитным сравнением двух двоичных чисел. Результат ее работы равен 
единице, если данный бит включен хотя бы в одном из операндов: в первом, или во втором, 


или в обоих вместе. Таким образом, в результате может быть ноль только если в обоих 
операндах ноль, в противном случае получается единица. 

Пример 1.0: 

Первый операнд 1010 1010 (АА) 
Второй операнд 00 0000 (СО) 


Результат ОВ 0 1010 (РА) 


Продолжим рассмотрение программы, формирующей утолщенный шрифт. После 
того, как мы произвели операцию логическое “ИЛИ" над двумя байтами, мы загружаем 
образовавшийся байт в ячейку памяти, адрес которой находится в ОЕ. Таким образом 
начинается формирование нового знакогенератора в свободной области оперативной 
памяти, поскольку именно в регистре ОЕ содержится начало заданной для этих целей 
области ОЗУ. 

Следующим этапом мы увеличиваем содержимое регистров НИ и ПЕ на единицу, т.е. 
переходим к следующему байту знакогенератора и записываем его измененный вариант в 
новое место оперативной памяти. В то же время, нам необходим контроль, чтобы 
модифицировать только байты знакогенератора и не больше. Для этой цели мы используем 
регистр ВС, значение которого уменьшается на единицу после модернизаций очередного 
байта знакогенератора. 

Следующим этапом программы является проверка достижения нуля в регистре ВС. 
Если ноль не достигнут, то мы повторяем все операции сначала, только со следующим 
байтом шаблона символа. Однако, если в регистре ВС остался ноль, это свидетельствует о 
том, что мы обработали всю область знакогенератора. 

После этой проверки мы восстанавливаем со стека значение регистра ОЕ, причем 
обратите внимание на то, что на стек засылалось значение регистра, которое соответствует 
месторасположению новой области знакогенератора в ОЗУ. Теперь нам достаточно 
уменьшить значение регистра О на единицу, и в регистре ОЕ у нас окажется адрес, 
указывающий на 256 байтов ниже той области памяти, где расположен альтернативный 
знакогенератор, формируемый нами в ходе выполняемых операций. Теперь нам осталось 
занести это значение в область системных переменных, чтобы указать на 
месторасположение нового набора шаблонов символов. Последним шагом является 
возврат в головную программу в машинных кодах. 

Как видим, ничего сложного в подобном преобразовании нет. При желании Вы можете 
использовать эту процедуру в своей работе. Для этого мы написали похожую процедуру в 
виде отдельной программы на БЕЙСИКе, запустив которую, Вы сможете подробно 
разобраться с работой генератора утолщенного шрифта. 
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Данная программа являтся перемещаемой: ее можно поместить по любому адресу. 
Вызов : ЕТ ЯМ =ЕМ С ("ТЕКСТ") 
Текст может содержать знаки с кодами от 32 до 127 включительно. Если присутствуют 


другие символы, вывод на экран автоматически останавливается. Программа строит 
утолщенные знаки, как СРАРН!С$ "О", поэтому в своей программе нельзя переопределить 
этот символ, так как после выполнения команды вывода текста СРВАРН!С$ "Ц" стирается. 

На этом закончим рассмотрение того, как Билл Гильберт оформил программу "гоп 
Мап" и теперь займемся программой "Зит Сйу". 
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160 ВАМООМТУЕ 158 УАЁ “20480” 

Как видим, БЕЙСИК-загрузчик данной программы очень схож с аналогичным 
загрузчиком программы “РОМ МАМ". В нем практически отсутствуют какие-либо 
хитроумные операции направленные на защиту программы от просмотра. Билл Гильберт 
сам предупреждает нас о том что, программа практически не защищена. 

Фактически эффект, возникающий в ходе работы программы в машинных кодах очень 
схож с аналогичным эффектом в программе "гоп Мап"”. Однако, профессиональный 
программист сразу же обратит внимание на то, что вся информация выводится 
своеобразным шрифтом. Причем, если в предыдущей программе для вывода сообщения 
использовался обычный утолщенный шрифт, в данном случае мы имеем дело с неким 
подобием готического шрифта. Начинающий программист может предположить, что этот 
шрифт загружается вместе с исходным текстом программы, однако дополнительные 768 
байтов может себе дозволить далеко не каждый загрузчик. В нашем примере Биллу 
Гильберту с помощью использования специальных команд процессора удалось 
сформировать готический шрифт из обычного шрифта “Спектрума”. Кроме того, 
подпрограмма в машинных кодах, работающая в программе "Эт СЁу“, обладает целым 
рядом новшеств, делающих ее очень увлекательным. 


Рассмотрим листинг процедуры в машинных кодах более подробно. 
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Данная программа на Ассемблере по своей структуре очень похожа на 
рассмотренную ранее в программе "гоп Мап". Однако, это только внешнее сходство. 
Большинство процедур в машинных кодах выполнены по новому принципу. Однако, все они 
достаточно примитивны и мы надеемся, что читатель сам сможет разобраться с ними. Мы 
же остановимся лишь на процедуре создания готического шрифта. Она начинается с метки 
№5093 (см. листинг выше). 

При создании этой процедуры Билл Гильберт, очевидно, не задавался целью сделать 
ее доступной для понимания широкого круга читателей, скорее наоброт. Он запутал ее как 
сумел. Нам пришлось провести работу по расшифровке и полученной информацией мы 
готовы поделиться с читателем. 

В этой подпрограмме в машинных кодах Билл Гильберт совместил выполнение двух 
функций: затемнение экрана (экран становится черным) и создание оригинального 
готического шрифта. Нас мало интересует процедура затемнения экрана, поэтому все свое 
внимание мы сконцентрируем на подпрограмме создания готического шрифта. В то же 
время, мы не можем рассматривать эти процедуры разрозненно, поскольку они тесно 
связаны между собой, и находятся в единой подпрограмме, которая вызывается второй по 
счету из головвой программы в машинных кодах, с использованием оператора САЦ. 

Четкого разграничения между этими процедурами не существует, потому что после 
выполнения одной Биллу Гильберту понадобилось изменить содержимое всех регистров 
микроцессора с целью правильного выполнения второй процедуры. В то же время, вместо 
того, чтобы напрямую занести содержимое чисел в регистр микропроцессора, Билл 
Гильберт начинает "заметать следы", используя ряд ухищрений с употреблением лишних в 
данной ситуации команд микропроцессора. Вместе с тем, к концу махинаций в регистрах 
оказывается именно те значения, которые необходимы для правильной работы процедуры, 
создавшей готический шрифт. Это Вы можете легко проверить, используя дизассемблер со 
встроенной процедурой отладки. 

Фактически подпрограмма создания готического шрифта берет свое начало с метки 
№5007. Именно относительно этой метки создается цикл, который преобразует весь 
встроенный шрифт "Спектрума" в оригинальный готический шрифт. Все это делается тем 
же способом, как и в программе "РВОМ МАМ". К началу работы процедуры в регистре ВС 
находится значение ОЗООН, что соответствует длине области встроенного в компьютер 
шрифта. Регистр НЕ несет в себе значение ЗОООН, что соответствует началу этой области. В 
регистре ОЕ содержится значение С800Н (десятиричный эквивалент - 51200). Это адрес в 
оперативной памяти, куда осуществляется перенос нового шрифта. 


Если рассматривать любой символ шрифта как знакоместо 8Х8, то мы можем 
обнаружить, что в предыдущей программе создания утолщенного шрифта образующийся 
символ создавался за счет смещения всего исходного символа вправо с сохранением 
исходного символа на своем месте. В этой программе мы смещаем не полное знакоместо, а 
лишь последний четыре байта, к тому же смещение этих байтов осуществляется не вправо, 
а влево, что наглядно демонстрируют приведенные ниже диаграммы. 
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Диаг. 1. Стандартный символ "О" из области знакогенератора "Спектрума". 
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Диаг. 2. Изображение смещенной буквы "О", образующееся после сдвига вправо всех 
байтов шаблона 8Х8. Подобный принцип сдвига реализован в программе "гоп Мап". 
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Диаг. 3. Утолщенная буква "О", образующаяся в результате операции "ИЛИ" над 
стандартный символом "О" и смещенным символом "О". 
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Диаг. 4. Символ "О", в котором нижние четыре байта смещены влево операцией $1 А. 
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Диаг. 5. Символ "О", образующийся в результате операции "ИЛИ" над стандартным 
символом “О” и символом, изображенным на диаг. 4. Принцип используется Биллом 
Гильбертом в программе "Зит Спу". 


Теперь рассмотрим, каким образом это реализуются в процедуре, написанной в 
машинных кодах. Перед входом в процедуру мы сохраняем на стеке значение регистра ПЕ, 
которое, как Вы помните, указывает на место расположения нового шрифта в оперативной 
памяти компьютера. После этого мы сохраняем на стеке значение регистра ВС, которое 
указывает на номер обрабатываемого символа из таблицы стандартного шрифта. Далее 
следует очистка аккумулятора, после чего мы очищаем содержимое регистра В, засылая в 
него содержимое аккумулятора, равное 0. Затем "зажигается" второй бит регистра В. Таким 
образом Билл Гильберт записывает в регистр в число 4. Это достаточно простой прием, 
который направлен на то, чтобы запутать начинающего программиста. В данном случае 
вместо одной команды: 

[О В, 4 

Гильберт использует целых три, причем результат работы в обоих случаях один и тот 
же. 

На следующем этапе компьютер начинает анализировать стандартный шрифт. 
Первые четыре байта остаются неизменными, остальные четыре байта нам необходимо 
сместить на один бит влево и осуществить операцию логического "или" с их исходными 
аналогами. Делается это следующим образом. Для начала в аккумулятор заносится 
значение, содержащееся в ячейке памяти, на которую указывает регистр НЕ. После этого 
значение регистра А копируется в регистр С. Далее над содержимым регистра А 
производится команда арифметического сдвига влево: по этой команде все биты 
сдвигаются. В бит 0 (младший) засылается 0. Бит 7 сдвигается во флаг переноса С. 
Операция эквивалента умножению байта на 2. Если при этом образуется число большее, 
чем 255, включается флаг переноса С. Более подробно эта операция показана на 
структурной схеме. 


76543210 <= _9с<— 


Схема 2.0 : С - флаг переноса. 


После выполнения логического сдвига, мы выполняем функцию "ИЛИ" над 
содержимым регистров А и С. После этого новое значение сохраняем в памяти в области 
нового шрифта. Далее содержимое регистра НЕ увеличивается на единицу, чтобы он 
указывал на значение следующего байта из области стандартного шрифта. 

Поскольку в регистре В содержалось 4, а следующей командой идет оператор О.МЕ, 
который задает цикл, мы начинаем повторять все предыдущие операции, пока не очистится 
регистр В. 

Следующим этапом нашей работы является восстановление со стека содержимого 
регистра ОЕ, который, как Вы помните, указывал на место расположения сформированного 
нами шрифта. Для того чтобы поместить в соответствующую системную переменную 
указание на месторасположения данного шрифта, нам необходимо, чтобы в регистре НЕ 
содержалось значение на 256 байтов меньше, чем действительный адрес 


месторасположения шрифта в ОЗУ. Это достигается уменьшением на единицу старшего 
регистра пары НЕЁ, то есть регистра Н. После необходимых изменений мы заносим 
содержимое этого регистра в системную переменную, указывающую на 
месторасположение действующего в данный момент шрифта "Спектрума". 

В заключение мы восстанавливаем прерывания и возвращаемся в вызвавшую нас 
процедуру с помощью команды ВЕТ. 


УМСЬЕАВ ГОСО 


"ИНФОРКОМ" всегда уделял большое внимание пропаганде языков 
программирования для пользователей "7Х-Зресгит". Только на страницах "7Х-РЕВЮ" уже 
были опубликованы "МЕСА ВАЗ!С" и три версии языка "ВЕТА ВАЗ!С". Не прекращаются наши 
публикации, посвященные АССЕМБЛЕРУ. Еще ранее, в 1989 - 1990 г.г. в виде брошюр мы 
выпустили методички, посвященные языкам "ГАЗЕВ ВАЗ!С", ПАСКАЛЬ (НРАТ) и "7Х-РОРТН". 

Сегодня мы начинаем публикацию языка программирования "ЛОГО". Об этом языке 
написано уже немало. Имеется достаточный выбор отечественной литературы и мы не стали 
бы повторяться, если бы не одно маленькое обстоятельство. Дело в том, что доступные 
книги по "ЛОГО" никак не привязаны к компьютеру "Спектрум". Мы же предлагаем Вашему 
внимание книгу, которая так и называется “1ОСО оп те ЭМСЁЬАШВ ЗРЕСТВИУМ". Таким 
образом, все, что Вы почерпнете из этой серии статей, вполне может быть использовано 
Вами в работе с вашим компьютером. Дело остается за малым - найти и запустить 
программу и освоить новый язык. Не знаем, как обстоит дело с этой программой на наших 
рынках сейчас, но в конце 80-х она была распространена очень широко и достать ее не было 
никаких проблем. Автор книги - известный английский программист и разработчик 
обучающего программного обеспечения Грэхем Филд. Авторизованный перевод с 
английского языка и редакция - наши. 


1. Что такое "ЛОГО". 


ЛОГО - это язык программирования, начало разработки которого было положено в 
Массачусетском Технологическом институте в 1967 году. 

В его основе лежит концепция подготовки языка, удобного как для подготовки детей к 
основам компьтерной грамотности, так и для решения математических задач и задач, 
относящихся к области искусственного интеллекта. Использование этого языка 
программирования для этих целей стало возможным в результате значительного объема 
исследований, проведенных как в МТИ, так и в других научных и учебных центрах США и 
Европы, в частности, в Эдинбургском университете. 

Уже первый опыт использования этого языка показал его высокую эффективность в 
обучении детей, а также особый интерес к нему не только со стороны учащихся, но и со 
стороны родителей и педагогов. Вместе с тем, ЛОГО не следует рассматривать только с 
этой стороны. Это не просто игрушка и в опытных руках он может быть серьезным 
инструментом. У ЛОГО есть ряд значительных преимуществ по сравнению, например с 
БЕЙСИКом и он может быть вполне использован в качестве универсального средства 
решения повседневных задач на компьютерах бытового класса. Итак, несмотря на то, что 
ЛОГО прост в освоении детьми и лицами, не имеющими никакой компьютерной подготовки, 
он является мощным инструментальным средством, обеспечивающим удобный доступ к 
ресурсам компьютера. 


"Черепашка". 

Для того, чтобы проще приобщить детей к ЛОГО, было изобретено специальное 
механическое устройство - "Черепашка". Оно представляет собой маленькую механическую 
тележку с электродвигателем, подключенную к компьютеру с помощью проводов. Тележка 
может кататься по полу, по столу и т.п., но как правило ее запускают по большому листу 
бумаги. На тележке установлен держатель, в котором закрепляется перо, карандаш, 
фломастер. Перо может подниматься и опускаться по командам от компьютера. В случае 
перемещения “черепашки“” по бумаге с опущенным пером, вычерчивается линия, 
соответствующая траектории движения. Для управления "черепашкой" служит программа, 
написанная на ЛОГО. 

В принципе, "Спектрум" тоже может управлять подобной "“черепашкой", как и многими 
другими электромеханическими устройствами, но мы от нее отвлечемся и будем думать о 
ней, имея дело с кусором на экране телевизора, с помощью которого будем строить 


различные простейшие геометрические фигуры, за которыми так и закрепилось в 
литературе название "черепашья графика". 

Вся прелесть (и мощь) ЛОГО состоит в том, что если Вы один раз "объяснили" 
компьютеру как надо исполнять ту или иную задачу, Вы можете больше никогда ему этого не 
"объяснять". Для этого надо Вашему объяснению присвоить какое-либо имя. После этого 
данная задача становится для компьютера известной ему процедурой и впоследствии, 
когда Вам опять потребуется исполнить такую же задачу, достаточно только назвать имя 
нужной процедуры. Получается так, что по мере того, как в своем понимании 
программирования развиваетесь Вы, также параллельно вместе с Вами развивается и Ваш 
компьютер. Единственным ограничением при этом является размер памяти Вашей машины, 
но у Вас есть возможность сохранять готовые процедуры на магнитной ленте и загружать в 
память только те, которые нужны для решения текущей проблемы. 

ЛОГО был разработан специалистами, основным направлением исследований 
которых является искусственный интеллект, главная проблема которого состоит в изучении 
приемов мышления человека и введении аналогичных приемов в компьютер. Это 
исследование привело в свое время к созданию языка программирования ЛИСП, основная 
задача которого состоит в обработке различный списков данных. К сожалению, оказалось, 
что этот язык труден для усвоения. Может быть он и не столь труден, как это кажется 
начинающим, но тем не менее он по крайней мере неудобен хотя бы тем, что содержит в 
своей основе многие специфические термины, которые относились к конкретным 
особенностям той ЭВМ, на которой он создавался и которая уже давним давно не 
существует. ЛОГО родился, как изящная альтернатива, сочетающая методический подход 
ЛИСПа с доступностью терминологии и естественной наглядностью. 

К сожалению, по отношению к ЛОГО сложилось обывательское негативное 
представление о том, что "черепашья графика" - это основной аспект языка. Есть даже 
некоторые несведущие люди, убежденные в том, что это единственная область его 
применения. В последние годы даже появились некоторые программы, в той числе и 
высококлассные, которые занимаются "черепашьей графикой" и потому содержат слово 
"ЛОГО" в своих названиях. "СИНКЛЕР ЛОГО" к ним не относится. Эта версия языка для 
компьютера "Спектрум" содержит все возможности оригинала и даже добавляет некоторые 
(например обращение к подпрограммам в машинных кодах), которые связаны со 
спецификой компьютера и не содержатся в эталонном языке, но могут быть очень полезны 
авторам неординарных программ. 

Как и другие языки программирования, ЛОГО имеет немало специфических 
терминов. Многие не любят новой терминологии и боятся ее во всех областях, кроме той 
области, в которой сами являются специалистами. Но, тем не менее, некоторые термины 
все-таки необходимы, если мы хотим серьезно обсуждать возможности нового языка и 
смотреть, как они соотносятся с другими языками. Вы ничуть не хуже будете водить машину, 
если не будете знать, что те четыре штуковины, которые торчат из двигателя, называются 
свечами зажигания. Но это знание немного улучшит ваше положение, когда в один 
прекрасный день Ваш автонобиль не заведется. Оно поможет понять что произошло, когда 
кто-то более опытный объяснит Вам ситуацию и пригодится при покупке запчастей. 

Эта книга не перенасыщена терминологией и не шокирует начинающего читателя. Все 
необходимые технические термины будут разбираться по мере их появления на простых и 
понятных примерах. 


ЛОГО и БЕЙСИК 

Для тех, кто уже знаком с БЕЙСИКом, мы дадим краткое сравнение этих языков. Если 
же БЕЙСИК Вам еще неизвестен, то этот раздел Вы можете просто пропустить. 

Эти языки во многом различаются. Наверное наиболее очевидным отличием, сразу 
бросающимся в глаза, является то, что в ЛОГО нет номеров строк в программе. Они просто 
не нужны. Если Вам нужно внести изменения в часть программы, написанной на ЛОГО, Вы 
должны воспользоваться программой-редактором, которая является частью ЛОГО- 
системы. Этот редактор отличается от того строчного редактора, с который Вы имеете дело 


на "Спектруме". С его помощью можно обрабатывать не одну программную строку, а сразу 
целую процедуру или даже несколько. И этот редактор намного более удобен, чем тот, с 
которым Вы работаете в стандартном БЕЙСИКе. 

Процедуры ЛОГО обычно короче и даже намного короче, чем программы БЕЙСИКа. 
Благодаря этому их легче писать, проще отлаживать и легче понимать, чем БЕЙСИК- 
программу. Редактор может одновременно обрабатывать большее количество строк, чем 
помещается на одном экране, но в ЛОГО не считается хорошей практикой делать процедуры 
СТОЛЬ ДЛИННЫМИ. 

Еще одно необычное отличие состоит в том, что если Вы привыкли к тому, что в 
памяти компьютера может содержаться одновременно только одна БЕЙСИК-программа, то 
в ЛОГО одновременно в памяти могут быть несколько совершенно не связанных друг с 
другом процедур. 

Еще одно, незаметное на первый взгляд отличие - то, что каждый оператор БЕЙСИКа 
имеет собственную структуру и всегда должен быть записан только в соответствии с ней. 
ЛОГО же, с другой стороны, имеет только одну допустимую структуру для своих операторов 
и две небольших вариации, которые не обязательны, а существуют только для большего 
удобства программиста. 

Если Вы привыкли к тому, что операторы и функции БЕЙСИКа вызываются одним 
нажатием клавиши, то может быть будете несколько разочарованы, поскольку в ЛОГО этого 
нет. Это не позволяет сделать сама структура языка. Вам придется набирать все слова 
полностью по буквам. Впрочем, многие из стандартных инструкций ЛОГО имеют 
сокращения и к тому же в ЛОГО есть возможность самому задать сокращения для прочих 
слов, если Вам это хочется. 

Есть еще много других отличий, о которых имеет смысл говорить после освоения 
обоих языков, но мы на них сейчас не будем останавливаться. Сказанного выше уже 
достаточно для того, чтобы Вы поняли, что ЛОГО - это совершенно особый язык 
программирования, не имеющий к БЕЙСИКу никакого отношения. 


Диалекты ЛОГО. 

Если Вы сравните те конструкции, которые увидите в этой книге, с другими книгами 
по ЛОГО, то найдете очень значительные отличия. Так происходит потому, что ЛОГО, по 
видимому, имеет большее количество диалектов, чем любые другие языки. Это, конечно, 
неприятно, но на самом деле ЛОГО это ведь не столько язык программирования, сколько 
необычный и весьма продуктивный образ мышления. Во всяком случае, основные 
структуры, как и возможности того или иного диалекта, будут как правило похожими. 
Разобравшись, Вы сможете конвертировать другие программы, написанные на ЛОГО для 
других компьютеров в форму, приемлемую для "Спектрума". Слова могут отличаться, но 
стояние за ними идеи будут теми же. 


Как пользоваться этой книгой. 

При написании программ на ЛОГО общепринято пользоваться прописными 
(заглавными) буквами и делать отступ в конструкциях языка. В этой книге будет использован 
тот же подход, но Вы можете им и не пользоваться, поскольку Синклер-ЛОГО - достаточно 
гибкий диалект. В нем можно без проблем использовать и строчные буквы, а отступ в 
строках - это просто удобная форма представления и чтения процедур, которая для Вас не 
обязательна. 

Так что, если Вы наберете что-то вроде: 

ТО ЗАУНЕЕЕО 


РАТМТ [ДОБРО ПОЖАЛОВАТЬ В СИНКЛЕР-ЛОГО] 
ЕМО 
то на экране компьютера может получиться например так: 
?Со сауБе11о 
>рг1пЕ [ДОБРО ПОЖАЛОВАТЬ В СИ! 
>НКЛЕР-ЛОГО) 
>епа 
Символы ? и > в начале строк и символ ! в конце - это специфические символы языка и 


в свое время мы с ними разберемся. 

При работе с книгой желательно попробовать приведенные в ней примеры на своем 
компьютере, чтобы почувствовать, как ЛОГО реагирует нате или иные команды и на ошибки. 
Тогда Вы научитесь использовать возможности языка наиболее эффективно. Все примеры в 
книге, за исключением самых примитивных, преднамеренно сделаны так, что их можно 
развивать и дорабатывать. Идеи о том, что еще можно доработать во многих случаях даны. В 
книге нет контрольных вопросов, да они и не нужны. Если в ЛОГО написанная Вами 
процедура работает и делает то, что должна делать, она написана верно. 


2. Первые шаги. 


В отличие от БЕЙСИКа, который уже встроен в ПЗУ Вашего "Спектрума", ЛОГО 

следует загружать с магнитной ленты. Это делается обычным способом: 
[0АБ “” 

После загрузки на экране появится сообщение: 

МЕГСОМЕ ТО УТМСЬАТВ ТОСО 

Ниже Вы увидите вопросительный знак, служащий запросом к Вам и сигналом о том, 
ЛОГО ждет ваших команд. Рядом виден мигающий квадрат - это курсор. Кроме этого, Вы 
можете увидеть в правом нижнем углу символ "1", который означает, что от Вас ожидается 
ввод буквы или цифры. 

Мы начнем наши эксперименты с "черепашьей графики". Наберите ЗНОМЛОВТИЕЕ и 
нажмите ЕМТЕВ. Набор можно сделать и строчными буквами. Вы увидите, что на экране 
появится "черепашка" в виде стрелки. Одновременно экран разделится, оставив две нижние 
строки для ввода Ваших команд. Основная часть экрана будет использована для 
изображения результатов движений "черепашки". 

Попробуйте дать команду 

РОВМАВО 50 

Вы увидите, что стрелка переместилась в том направлении, в котором она указывает. 
Здесь надо обратить внимание на то, что слова, из которых состоят команды языка ЛОГО 
должны разделяться пробелами. Так что, если Вы попробуете дать команду ЕОВУАРО50, то 
увидите, что ЛОГО Вас не поймет. Попробуйте это, когда появится сообщение об ошибке. 
Вы увидите изображение стрелки в правом нижнем углу экрана. Это означает, что Вам 
нужно нажать какую-либо клавишу, чтобы продолжить работу. 

Теперь пойдем дальше: 

ВАСК 50 

Стрелка на экране вернется назад. Число 50 задает расстояние, на которое должна 
перенеститься "черепашка". Слова РГОН\МАРО и ВАСК - это процедуры, а число 50 - 
параметр. Трудно сказать, в каких единицах измеряется расстояние перемещения 
черепашки, поскольку это зависит от размеров экрана Вашего телевизора или монитора, но 
во всяком случае максимальное количество шагов по вертикали -175, а по горизонтали - 
255. Мы можем считать, что расстояние измеряется в пикселах. 

Попробуйте подвигаться вперед-назад, привыкая к чувству расстояния и, когда Вам 
надоест двигаться по одной прямой, мы начнем осваивать новые направления. Сначала 
наберите СТЕАВЗСВЕЕМ. Если Вы немного знаете английский, то уже очевидно догадались, 
что эта процедура очищает экран и при этом выставляет "черепашку" в исходную позицию. 

Чтобы повернуть "черепашку", можно воспользоваться процедурами НИСНТ (направо) 
и ГЕРТ (налево). Эти процедуры должны иметь при себе параметр - угол, на который следует 
повернуться. Угол измеряется в градусах, полная окружность - 360 градусов, поэтому 
команда НСНТ 180 развернет "черепашку" в противоположном направлении, а команда 
ГЕРТ 90 - повернетее на прямой угол. 

Попробуйте теперь: 
ГОАВМАНО 50 
ВТОНТ 120 
ГОАМАНО 50 


ВТ@НнТ 120 
ГОВМАНО 50 


Вы увидите, что "черепашка" пройдет по замкнутому контуру и встанет в той точке, с 
которой начинала. Справедливости ради надо сказать, что ее положение не строго 
идентично исходному, поскольку смотрит она не туда. Но если Вы добавите еще одну 
команду НТСНТ 120, то она встанет точно в исходное положение. 

Может быть, Вы сообразили, что это простой и изящный метод рисования 
треугольников? Да, наверное, это так. А как быть с пятиугольниками или, скажем, с 
десятиугольниками? Не кажется ли Вам, что рисовать фигуру с десятью сторонами и 
десятью углами таким приемом было бы несколько утомительно? К счастью, ЛОГО имеет 
простое средство избавиться от этой неприятности. Опять исполните СТЕААЗСВЕЕМ и 
попробуйте такую команду: 

ВЕРЕАТ З(РОВМАНО 50 ВТОНТ 120) 

Здесь используются квадратные скобки, просьба не путать с круглыми. В ЛОГО 
разные виды скобок используются для разных целей. 

Процедура ВЕРЕАТ означает, что то, что стоит в квадратных скобках, должно быть 
повторено. Параметр 3 указывает на количество повторений. 

Команды ВЕРЕАТ могут быть довольно длинными. Для того, чтобы их было удобнее 
читать, строку разбивают в тех местах, где удобно и продолжение строки печатают с 
отступом. 

Если при написании команды она дойдет у Вас до правого края экрана и начнется на 
новой строчке не пугайтесь, этот разрыв не страшен. ЛОГО не считает строку законченной 
до тех пор, пока не нажата клавиша ЕМТЕР. В качестве указателя того, что команда 
продолжается на новой строке компьютер поставит в конце экранной строки 
восклицательный знак "!", служащий здесь как бы символом переноса. Поэтому, если в этой 
книге Вам встретится например такая команда: 

ВЕРЕАТ 8 (РОВМАНО 20 ВТОаНТ 90 


РОНВМАВВ 10 ВТСНТ 90 
РОВМАНО 20 ГЕРТ 15] 


Смело набирайте ее на экране в одну строку, давая ЕМТЕВ только тогда, когда будет 
введено все до конца. 
Но мощь ЛОГО, конечно же заключена не в способности многократно повторять одни 
и те же действия, а в способности создавать новые команды. Поскольку Вы теперь знаете, 
как изображается треугольник, Вы можете теперь создать команду для его изображения. 
Сначала напечатайте: 
ТЕХТЪСАЕЕМ 
По этой команде "черепашка" будет удалена с экрана и все 22 строки экрана будут 
доступны для написания текста. А теперь делайте так: 
ТО ТАТАМОЕЕ 
(появится приглашение ">") 
ЕРЕАТ 3 [РОВМААВ 50 ВТСНТ 120] 

На сей раз команда не будет выполнена непосредственно, поскольку оператор ТО... 
свидетельствует о том, что Вы не рисуете треугольник в данный момент, а занимаетесь тем, 
что объясняете компьютеру, как это делается. Вместо этого появляется новое приглашение 
">", оно означает, что Вы не закончили описание новой команды. Чтобы завершить дело, 
нужно набрать еще один оператор: 

ЕМО 


=5 


Компьютер ответит Вам на это следующим сообщением: 

ТВТАМСЬЕ ЗеЁ1пеЯ 

Это означает, что процедура для изображения треугольников под именем ТНАМСИЕ 
определена и теперь она известна компьютеру. 

После этого на экране появится приглашение ">". Оно означает, что ЛОГО находится 
в командном режиме и ждет от Вас ввода команды. Перейдите к "черепашке" командой 
ЗНОМ/ТИАТЕЕ и дайте команду ТЕНАМСЕЕ. Если все было сделано правильно, треугольник 
будет нарисован. Отныне команда ТНМАМСЕЕ не менее знакома компьютеру, чем команды 
РОВН\МАВО и ВАСК. 

Более того, теперь Вы можете встраивать команду ТНАМСЕЕ в другие, еще более 
мощные команды. Попробуйте, например: 


ВЕРЕАТ 12 [ТАТАМСЕЕ АТСНТ 30] 
- и посмотрите, что будет нарисовано на экране. Попробуйте также самостоятельно 
оформить эту команду в процедуру и дайте ей имя по вкусу. 
Развивая мысль, мы с Вами попробуем нарисовать человечка. Он (или она) будет 
состоять из квадратной головы, туловища, которое будет изображено одной прямой линией, 
пары прямых рук и пары прямых ног (см. рис. 1). 


Рис. 1. 
Программа выглядит очень просто: 
ТО МАМ 
НЕАБ (голова) 
вору (тело) 
[Е (ноги) 
АВМ$ (руки) 
ЕМО 


Можете набрать эту процедуру. Пусть пока Вас не смущает, что ни мы, ни компьютер 
не знаем пока определения процедур НЕАО, ВОБУ, 1ЕС$ и ААМ5. Мы их еще напишем. Если 
при их написании Вам захочется посмотреть, как они работают, просто перейдите в 
командный режим (курсор "?") и дайте имя команды. 

Итак, “голову” мы изобразим, как прямоугольник и процедура очень похожа на ту, 
которая изображала треугольники. Но нам надо еще после всего поместить "“черепашку" в 
центр нижней стороны и развернуть ее вниз, чтобы она была готова перейти к рисованию 
"тела". Для этого потребуются дополнительно три команды. В целом процедура НЕАР будет 
выглядеть так: 


ТО НЕАБ 
ВЕРЕАТ 4 [РОАМАНО 20 ВТОНТ 90] 
ВТОНТ 90 
РОВМАВО 10 
ВТОНТ 90 
ЕМО 
"Тело" еще проще: 
ТО В00У 
РОВМАВО 40 
ЕМО 


Для изображения “ног” развернем слегка "черепашку" влево, переместим вперед, 
вернем назад, повернем вправо на вдвое больший угол, чем в начале, опять вперед и назад 
и снова развернем влево, возвратив в первоначальное положение. 

ТО [ЕбЗ 

ГЕРТ 30 
ГОАМААВ 30 
ВАСК 30 
ВТент 60 
ГОАМААВ 30 

ВАСК 30 

ГЕРТ 30 

ЕМО 

Если Вы посмотрите на рисунок, то увидите, что "руки" ничем принципиально от "ног" 
не отличаются, поэтому для изображения "рук" достаточно отогнать “черепашку" назад и 
пририсовать к "телу" пару "ног" на уровне "плеч". 

ТО АВМ$ 

ВАСК 35 


ГЕб$ 
ЕМО 


Обратите внимание на саму методику работы. Вы видели, как мы упростили задачу 
рисования человечка до четырех задач рисования его отдельных частей. Это очень удобный 
метод программирования. Он состоит в расчленении одной большой задачи на группу более 
простых, с каждой из которых можно заниматься порознь. Их, в свою очередь, тоже можно 
дробить до тех пор, пока вся задача, как бы сложна она ни была, не будет сведена к 
элементарнейшим операциям. 

ИМЕННО ДЛЯ ТАКОГО СТИЛЯ ПРОГРАММИРОВАНИЯ ЯЗЫК ЛОГО И ПРЕДНАЗНАЧЕН. 

Если Вы в восторге от того, что нарисовали, можете вывести рисунок на принтер по 
команде СОРУЗСВЕЕМ. 


Редактирование. 

Если до сих пор Вы не сделали ни одной ошибки, считайте, что Вам повезло, но надо 
все-таки знать, каким образом можно внести изменения и исправления в свои процедуры. 
Для этого служит редактор (еЧ Ног). Он вызывается по команде ЕО, после которой надо 
указать имя процедуры, которую Вы хотите переработать, например: 

ЕОТТ “[Еб$ 

На экране появится текст процедуры 1ЕС$. Курсор перемещается обычными 
"синклеровскими" курсорными клавишами 5,6,7,8 в сочетании с САР$ ЗНЕТ. 

Нажатие клавиши ЕМТЕРН в той позиции, где стоит курсор, создает новую строку. Вы 
можете добавить новый текст, например РЕМТ "НЕГО. 

Стирание выполняется как обычно с помощью РЕТЕТЕ (САР$ ЗНИЕТ +0). 

При редактировании Вы можете воспользоваться и расширенным режимом (курсор 
"Е"). После одновременного нажатия САР$ ЗНЕТ и ЭУМВ $ЗНЕТ в правом нижнем углу 
загорится символ "Е". 

В Е-режиме курсорные клавиши действуют немного не так. Совместно с САР$ ЭНЕТ 
клавиши 5 и 8 "перегоняют" курсор в начало или конец текущей строки, а клавиши би 7 -в 
нижнюю или в верхнюю строку экрана. Можно перемещать курсор и на еще большие 
расстояния. Так, в этом режиме при нажатии клавиши "В" Вы попадете в начало текста 
(ВЕСИМ), а при нажатии клавиши “Е" - в конец текста, соответственно (ЕМО). Это очень 
удобно при редактировании процедур, длина которых больше, чем размер экрана. 

Еще одно огромное удобство в этом режиме предоставляют клавиши "\" и "В". С их 
помощью можно переносить строки программы с места на место. Попробуйте выставить 
курсор на строке НСНТ 60, затем войдите в Е-режим и нажмите "У". Строка РРСНТ 60 
исчезнет с экрана, но она не пропала окончательно, а осталась в памяти компьютера. 
Опустите курсор на две строки вниз и в Е-режиме нажмите клавишу "В" - строка ЕТСНТ 60 
появится на новом месте. 

Не бойтесь ничего испортить, поработайте с редактором. Любой редактор имеет свои 
особенности и к ним надо привыкнуть. Время, затраченное на эксперименты, многократно 
окупится в будущем. 

Выйти из редактора можно двумя способами. 

Если Вы не хотите, чтобы все сделанные Вами изменения отразились на программе, 
Вы можете нажать САР$ ЭНИЕТ и ЗРАСЕ одновременно. 

С другой стороны, если Вам надо, чтобы ваши изменения были зафиксированы, выход 
выполняется нажатием клавиши "С" в Е-режиме. 

У Вас есть возможность использования клавиш редактора и тогда, когда Вы не 
находитесь в самом редакторе. Так, например, если при наборе текста Вы заметите, что 
сделали ошибку, можете "перегнать" курсор и внести исправление до того, как была нажата 
клавиша ЕМТЕВ и строка ушла в память компьютера. 

Если Вы войдете в редактор, задав имя процедуры, которая до сих пор еще не была 
определена, то компьютер подумает, что Вы хотите создать новую процедуру. В этом случае 
перед вами будет пустой экран и слово "ТО, напечатанное в его начале. Таким образом, у 
Вас есть еще один метод создания процедур, отличающийся от того, который мы 
рассмотрели ранее. В принципе, этот путь более удобный, т.к. к вашим услугам все 


имеющиеся ресурсы редактора, в том числе и такие, как вставка новых строк. Те, кто 
попробовал программировать самостоятельно, знают как это важно. 


Сохранение программ на кассете. 

Мы дошли то той точки, где Вам может быть захочется сохранить только что 
написанные процедуры для дальнейшего использования, выключить компьютер и немного 
отдохнуть. Если просто выключить "Спектрум", то все, что хранилось в его памяти, будет 
навсегда утрачено. Даже если Вам и нет нужды сохранять результаты своих экспериментов, 
Вы все же попробуйте это сделать, чтобы убедиться, что все идет нормально. 

Как и большинство языков программирования, ЛОГО имеет дело с "файлами" (так мы 
будем называть блоки информации, записанные на магнитофонной ленте (или на диске и 
т.п.). Каждый файл имеет свое собственное имя. В ЛОГО имена файлов (в отличие от прочих 
ключевых слов) не могут иметь более 7 символов. Это ограничение в данном случае не 
связано с ЛОГО, оно относится к самому "Спектруму". Так, например, если мы хотим 
сохранить процедуры, которые использовались при рисовании человечка в файле под 


именем РЕВЗОМ, наберите: 
ЗАМЕ “РЕАЗОМ [МАМ НЕАОБ ВОБУ [ЕбЗ! 
АНМ$] <ЕМТЕН» 


Включите магнитофон на запись и нажмите любую клавишу. Выгрузка идет, как 
обычно. По окончании сохранения файла на экране появится приглашение "?". 

Если теперь Вам надо будет загрузить этот пакет процедур обратно в память 
компьютера, Вы можете делать следующим образом: ГОАВ "РЕВЗОМ <ЕМТЕВ> 


Обслуживание памяти. 

Система ЛОГО занимает часть памяти Вашего компьютера. Еще часть памяти 
расходует сам ЛОГО, отслеживая ход исполняемой работы. Нужна также память для 
хранения промежуточных результатов вычислений. Так, например при расчете 2+5-3 
компьютер сначала долже найти 2+5 и запомнить где-то этот промежуточный результат. 
Оставшаяся часть памяти может быть использована для хранения Вашей информации и 
созданных Вами процедур. Мы назовем эту часть памяти "рабочей областью". 

Рано или поздно программист так или иначе столкнется с проблемой нехватки памяти 
в рабочей области. В этот момент ему было бы чрезвычайно важно узнать, какие же 
процедуры хранятся у него сейчас в памяти. Так, например, возможным выходом из 
создавшегося положения могло бы быть удаление части процедур, если они для работы не 
нужны. 

Для этой цели ЛОГО имеет несколько встроенных команд. Вы можете попробовать их 
в работе, но для того, чтобы увидеть, как они действуют, надо, чтобы в памяти сейчас у Вас 
было несколько Ваших процедур. Так что если их нет, то либо наберите их, либо загрузите с 
ленты (если при прочтении прошлого параграфа Вы их отгрузили). 

Первая команда, которую мы рассмотрим - это команда РОТЗ. Название может быть 
выглядит не очень осмысленным, но это даже хорошо, так ее проще запомнить. 
Расшифровывается она, как Рит Ош ТШе$ (распечатать заголовки). По этой команде Вы 


можете получить, например вот такой результат: 
ТО ТВТАМОЕЕ 
ТО МАМ 
ТО НЕА 
ТО АВМ$ 
ТО ВОБУ 
ТО [ЕбЗ 


Конечно это не все процедуры, которые знакомы для ЛОГО. Мы, например, знаем, что 
ЛОГО понимает такие процедуры, как ГОР\МАРО, ВАСК, НТСНТ, ГЕРТ и др. Но они по команде 
РОТ$ не распечатываются, поскольку являются встроенными в систему. Это обязательные 
элементы языка, их еще называют "примитивами". 

Другая команда с не менее нелепым названием - РОР$ означает Рип Ощ Ргоседиге$ 
(распечатать процедуры) выполняет печать всех Ваших процедур одну за другой. Так Вы 
можете их просмотреть. 


Просмотреть одну какую-либо процедуру Вы можете в редакторе, вызвав ее по имени, 

но можно это сделать также и командой РО(Рипт Ош). Например: 
РО "1Е@З 

Может быть, Вы хотите, чтобы печать Ваших процедур производилась не на экран, а 
на принтер? Тогда Вы можете дать команду РАМТОМ. Начиная с этого момента принтер 
станет устройством вывода информации и результат работы РОТЗ, РОР$ и РО будет 
распечатываться на принтере. Отключить принтер и вновь перевести весь вывод на экран 
можно командой РАМТОЕРЕ. 

Итак, Вы научились просматривать рабочую область. Освободить ее от ставших 
ненужными процедур можно с помощью команды ЕВАЗЕ. Например: 

ЕВАЗЕ “НЕА 

Попробуйте это сделать, а потом дайте команду РОТ$ для того, чтобы убедиться, что 
все прошло нормально. Нелишне напомнить, что перед удалением иэ памяти временно 
ненужных процедур стоит подумать о том, чтобы сохранить их на ленте. 

И, наконец, рассмотрим команду для полного освобождения рабочей области. Это 
команда ЕВР$ (ЕВазе Ргоседиге5). После нее можно начинать работу сначала. 

Все команды, рассмотренные в этом разделе, имеющие дело с конкретной 
процедурой, например ЕОП, РО, ЕВАЗЕ должны иметь открывающие кавычки перед именем 
этой процедуры. Но они могут иметь после своего имени в квадратных скобках еще и список 
входящих в них процедур, так, как это было при рассмотрении команды ЗА\Е. В этом случае 
поданная команда распространяется не только на головную процедуру, но и на все 
входящие, например: 

ЕОТТ “ААМ$ [1Е95] 

даст Вам возможность одновременно редактировать не только процедуру ААМ5, но и 
процедуру ГЕ@$. Это может быть весьма удобно например в тех случаях, когда Вы хотите 
перенести строку из одной процедуры в другую. 

Команда РО [НЕАО ВОБ\] распечатает обе процедуры, причем первой пойдет НЕАО. 

Команда ЕВАЗЕ [МАМ ТНАМСЕЕ] удалит обе процедуры из рабочей области. 


Печать текста. 

Если Вы хотите распечатать на экране какое-либо сообщение, Вы можете 
воспользоваться командой ЛОГО - РЫМТ. Обратите внимание на то, что если включен 
режим РАМТОМ, то стем же успехом печать будет выполнена на принтере. 

Если надо распечатать всего одно слово, то оно может быть написано после кавычек, 
например: 

РАТМТ “НЕГО 

В этом случае есть разница, какими буквами прописными или строчными Вы набрали 
свое слово. Напечатано оно будет точно так, как было набрано. 

Если Вам надо напечатать целое предложение (иди список слов), то весь список 
должен быть заключен в квадратные скобки: 

РАТМТ [\МЕЕСОМЕ ТО 1060] 

Если Вы хотите напечатать пустую строку, воспользуйтесь командой РЕМТ " или 
РАМТ []. 

Мы продемонстрируем возможность этой команды на следующем примере, который 
назовем Т7АВ ("Царь"). 

ТО Т7АВ 
РАТМТ [1] 
РАТМТ [Жил был царь] 
РАТМТ [у царя был двор] 
РАТМТ [На дворе был кол] 
РАТМТ [На колу мочало] 
РАТМТ [Не начать ли сказку! 

сначала? ] 


ТСАВ 
ЕМО 


Запустите процедуру командой ТАН. Остановить ее можно будет только нажав 
ВВЕАК (САР$ ЭН!ЕТ + ЗРАСЕ). 


3. Переменные. 


В ЛОГО, как и в большинстве других языков, можно пользоваться словами для 
выражения каких-либо данных, например чисел. Так, например, предположим, перед Вами 
стоит задача рассчитать величину налога на добавочную стоимость (НДС). Предположим, 
что стоимость изделия - 30 руб. в этом случае Вы можете присвоить переменной Р—ИСЕ 


значение 30. Это делается командой МАКЕ: 
МАКЕ “РАТСЕ 30 

Кавычки перед словом РЕСЕ обозначают, что это имя переменной, а не имя 
процедуры. 

Теперь попробуйте дать команду 

РВАТМТ “РАТСЕ 

Компьютер напечатает слово РНСЕ. Да это и естественно, ведь кавычки перед ним 
говорят о том, что это просто слово, а не переменная. В то же время, есть возможность 
напечатать не РНСЕ, а то, что этим словом обозначено. Для этого может служит двоеточие. 
Например: 

РАТМТ :РАТСЕ 

Теперь компьютер напечатает число 30. Итак, в команде РАМТ кавычки " обозначают 
само слово, а двоеточие (:) обозначает значение переменной, обозначенной этим словом. 

Теперь мы можем перевести на язык ЛОГО следующее утверждение: “НДС равен 20- 
ти процентам от стоимости изделия". Оно будет выглядеть так: 

МАКЕ "№05 :РАТСЕ/100*20 

Итак, команда МАКЕ требует наличия двух аргументов. Первый - это имя переменной 
(слово), а второй - это то значение, которое эта переменная теперь будет иметь (например 
число). Не забывайте о кавычках перед словом, которое идет после МАКЕ. Есть случаи, 
когда эти кавычки не нужны, но это особые случаи. 

Обратите внимание и на то, что перед словом РЕСЕ в нашем примере стоит 
двоеточие. Это потому, что не слово РНСЕ нас интересует, а то, что за ним скрывается, его 
числовое значение, равное 30, которое мы хотим разделить на 100 и умножить на 20 (НДС в 
России в 1993 г. равен 20-ти процентам). Как видите символы умножения (*) и деления (/) 
совпадают с БЕЙСИКом. После того, как переменная №М0$ создана командой МАКЕ, мы 
можем ее напечатать: 

РАТМТ :№05$ 

- и опять двоеточие, поскольку нам нужно не слово, а его значение. 

В компьютерной терминологии слова РЁАИСЕ и МО$ называются переменными, 
поскольку они представляют заранее неизвестные значения, которые к тому же по ходу 
расчетов могут и изменяться. Посмотрите, например, как оперируют с переменной, 


выражающей изменяющуюся длину: 
ТО ТВТЗРТ 
ОНОМТИНВТЕЕ 
МАКЕ “ТЕМСТН 10 
ВЕРЕАТ 21 [РОВИМАВО :ГЕМОТН АТСНТ 120 МАКЕ “ЕЕМЕТН :1ЕМОТН +5 ] 
ЕМО 


Внимательно посмотрите на последнюю команду в квадратных скобках. Этой 
командой переменной 1ЕМСТН присваивается новое значение путем прибавления к ранее 
имевшемуся значению числа 5. Запустите эту процедуру и посмотрите, как она работает. 

При работе с переменными ЛОГО различает прописные и строчные буквы. Так, 


МАКЕ "№05 7 
МАКЕ “паз 4 


создают две совершенно различные переменные. 
РАТМТ :№5 даст 7 
РАТМТ :п49$ даст 4 
Это может вызвать проблемы, если Вы печатаете все в нижнем регистре и забываете 
ставить двоеточия в кавычки там, где это нужно. Так, наберите: 
рип па$ 
и компьютер сам трансформирует запись в 
РВАТМТ №5 


поскольку он будет полагать, что и рйт и пд$ - имена процедур. 
Поставить двоеточие перед М№0$ будет недостаточно, придется в редакторе обратно 
переправить МО$ на пд$. 


Арифметика. 

Кроме арифметических знаков (*),(+) и (/), с которыми мы уже встречались, 
существуют также и арифметические процедуры. Так, например, процедура ЗУМ 
отыскивает сумму чисел, следующих за ней. Обычно это бывают два числа, но в некоторых 
случаях их бывает и больше. Тогда надо ставить круглые скобки так, как показано ниже. 
Примеры: 

РАТМТ 50М 2 3 
5 
РАТМТ ($1М 12345) 
15 
Процедура РВОБЦСТ выполняет умножение. Примеры: 
РАТМТ РКВОБИСТ 7 3 
21 
РАТМТ (РНОВуСТ 2357) 
210 
Внимание: таким путем для встроенных функций могут вводиться более, чем по два 
аргумента. Это может вызвать проблему, если их использовать внутри квадратных скобок, 
например в команде ВЕРЕАТ. Таких случаев следует избегать. 

Продедура ПМ выполняет деление. Она может использоваться только с двумя 

аргументами, например: 
РАТМТ ОТУ 1052 

Внимание: в ЛОГО, как и во всех других языках деление на ноль невозможно. 

Проверьте и посмотрите, что будет: 
РАТМТ ОТУ 50 

Это обычная ошибка начинающих программистов, особенно часто возникающая, 

когда делятся две переменные: 
РАТМТ ОТ\У :ТОТАЁ :МОМВЕВ 

Программисты забывают учесть, что при определенных ситуациях переменная 
МУМВЕН может принимать нулевое значение. 

Для вычитания нет своей процедуры. Поэтому это действие можно выполнить либо с 
помощью знака (-) либо с помощью суммирования ЗИМ с отрицательным аргументом. 

РАТМТ 12 - 4 

дает 8 

Знак “минус" выполняет двойную роль. Между двумя числами он обозначает 
вычитание, но если он стоит перед целым числом, то обозначает, что это число 
отрицательное. 

Во всех случаях ЛОГО пытается разобраться с тем, что Вы написали и во многие 
случаях делает это весьма успешно. Так, 

РАТМТ 12-4 
или 
РАТМТ 12 - 4 
будет принято успешно. 
Вы можете вычесть и отрицательное число, например: 
РАТМТ 12 - - 4 
или 
РАТМТ 12--4 

Тем не менее, все-таки существут случаи, когда ЛОГО может быть введен в 
заблуждение неадекватным использованием знака "минус", поэтому на всякий случай 
выработайте в себе привычку всегда ставить пробелы перед знаком “минус” у 
отрицательного числа и не оставлять пробела между знаком "минус" и самим числом. Так, 
последний пример наиболее грамотно записать так: 

РАТМТ 12 - -4 
В одном выражении Вы можете объединять все четыре арифметических действия. 


Например: 
РАТМТ 3»*4 + 2 
дает 14 


И дело вовсе не втом, что вычисления выполняются слева направо. Сравните: 
РВТМТ 2 + 3+4 


тоже дает 14 

Порядок арифметических действий, принятый в ЛОГО выглядит так: 

- действия в скобках; 

- деление; 

- умножение; 

- вычитание; 

- сложение. 

Таким образом, Вы можете пользоваться скобками () для того, чтобы изменять 
естественный порядок действий. Например: 

РАТМТ (2+3) * 4 

даст 20 

При расчете выражения, стоящего в скобках, ЛОГО придерживается естественного 
порядка действий. Если Вы не уверены при написании выражения в порядке его расчета, 
смело расставляйте скобки, чтобы порядок был именно таким, какой Вам нужен. Еще два 
примера: 

МАКЕ “СЕМТТ@ВАОЕ (:РАНВЕМНЕТТ - 32) #5 /9 

выполняет сначала вычитание, а 

МАКЕ “РАНВЕМНЕТТ :СЕМТТОВАОЕ *9/5 + 32 

выполняет деление, умножение и последним сложение. 

С точки зрения арифметики все равно выполнять сначала умножение или деление, но 
с точки зрения ЛОГО деление лучше выполнять раньше, чтобы избежать появления слишком 
больших чисел, с которыми будет трудно работать. 

Одна из полезнейших возможностей в использовании переменных состоит в том, что 
благодаря им можно создавать процедуры со вводными параметрами. Например, Вы хотите 
иметь процедуру ЗОЧАВЕ для изображения на экране квадратов различной величины. Так, 
ЗОЧАВЕ 50 должна рисовать квадрат со стороной 50 единиц, а ЗОЧАНЕ 100 - со стороной 
100 единиц. В этом случае мы можем ввести параметр $517Е, от которого будет зависеть 
размер квадрата и, меняя это параметр при вызове процедуры, изменять результат ее 


работы. Тогда определение процедуры ЗОЧАНЕ будет выглядеть так: 
ТО ЗОЦАВЕ :5Т7Е 
ВЕРЕАТ А[РОВМАНО :5Т7Е АТСОНТ 90] 

ЕМО 


В заключение в порядке эксперимента напишите процедуру РОЁГУСОМ, которая 
должна иметь два входных параметра :5МЕ и :МУМВЕА. Параметр $1Е задает размер 
стороны правильного многоугольника, а параметр МИМВЕРН - число его сторон. Можете это 
сделать, модернизировав приведенную выше процедуру ЗОЧАВЕ. Правда, придется 
помозговать насчет угла поворота "черепашки" после изображения каждой стороны. Вам 
может помочь тот факт, известный из геометрии, что сумма углов выпуклого многоугольника 
равна 180*(п-2) градусов, где п - число его сторон. 

А пока мы прощаемся до следующего выпуска. 


(Продолжение следует). 


АРВ!САМ 5ЕЕОЗ$ 


Уважаемые читатели! Мы получаем массу писем с просьбой больше давать программ 
на БЕЙСИКе для самостоятельного набора начинающими. Многие полагают, причем 
совершенно справедливо, что это является прекрасной школой обучения 
программированию. Мы с этим утверждением полностью солидарны. И дело даже не в том, 
что при наборе программы начинающий программист осваивает клавиатуру, использует 
новые для себя операторы и конструкции языка, узнает новые приемы. Основная прелесть 
состоит в том, что как бы ни старался читатель набрать программу без ошибок, в 99 случаях 
из 100 у него это не выйдет. Практически все при любом опыте наделают ошибок. А вот 
поиск этих ошибок и отладка программы и являются по-настоящему ценной школой 
начинающего программиста. 

Интерпретатор БЕЙСИКа устроен так, что от большинства ошибок он Вас застрахует. 
Если при наборе строки Вы нарушите синтаксис языка, он Вас немедленно предупредит и 
строка не будет введена в программу клавишей ЕМТЕН до тех пор, пока Вы эту ошибку не 
исправите. Тем не менее, существуют еще сотни возможных видов ошибок, которые он не 
увидит. Например, он ничего не сможет поделать, если Вы пропустите какую-либо строку. 
Об этом Вы узнаете только запустив программу, причем ошибка проявится совсем не в том 
месте, в котором Вы пропустили строку. Она проявится там, где компьютеру надо будет 
воспользоваться данными, содержавшийся в пропущенной строке. 

Поэтому прежде, чем Вы приступите к набору программы, нам хотелось бы дать Вам 
некоторые приемы, которые помогут сделать мучительный процесс отладки чуть менее 
мучительным. Тем не менее, настройтесь все-таки на тяжелую и кропотливую работу. 

Во-первых, когда программу набирают со страниц журнала или книги, большой 
процент ошибок возникает в связи с плохой различимостью символов. Так, например, часто 
путают буквы "Г", "|", "|" и цифру "1". Путают букву "О" и цифру "0". Можно спутать букву "В" и 
цифру "8". Имея дело с этими символами относитесь к ним предельно осторожно. 

Теперь о ходе отладки. Вы, конечно понимаете, что предусмотреть все возможные 
виды ошибок, которые Вы наделаете, заранее никто не сможет, хотя кое-какая статистика у 
нас имеется. Можно сказать, что до 90 процентов самых больших неприятностей связано с 
тремя видами ошибок: 

\/УапаЫе по{ Тоипа (переменная не найдена). 

Ош о $сгееп (печать вне пределов экрана). 

Епа от ОАТА (нехватка данных). 


Что касается УапаЫе по\ тоипа, - это наиболее часто встречающаяся неприятность. К 
ней, как правило, и приводит путаница в символах, о которой мы писали выше. Хотя это, 
конечно, не единственный способ напороться на данную ошибку. 

Когда компьютер сообщает об этой ошибке, он указывает и номер строки, в которой 
она произошла. Внимательно сверьте эту строку с исходным текстом. Если все в порядке, 
попробуйте распечатать переменные "подозрительного" выражения прямой командой. Та, 
которая ошибочна, распечатана не будет и Вы опять получите сообщение “\МапаБе по\ 
Тоипа". Теперь надо найти программную строку, в которой эта переменная была в первый 
раз определена. Может быть эту строку Вы и пропустили или неправильно набрали 
переменную. 

Иногда эта ошибка появляется не тогда, когда Вы что то пропустили, а наоборот 
набрали что-то лишнее, что было воспринято, как имя переменной. 


Ошибка Оц{ о{ $зсгееп возникает при печати (РАМТ, РЕОТ, ОВАМ, СВСИЕЕ), если 
координаты печати выходят за пределы экрана. Бороться с этой ошибкой весьма трудно, 
поскольку ошибка возникает в тех случаях, когда параметры координат позиции печати 
выражены не числом, а переменными, распечатайте их прямой командой РАМТ. 


Посмотрите, какой параметр "врет". Вернитесь по программе назад, найдите строку, в 
которой этот параметр вычисляется. Пусть это будет например строка 5550. Поставьте 
после нее отладочную строку: 
5551 РАТМТ «имя перем.>: РАЦЗЕ 0 
Так, постепенно "“раскручивая" эту переменную, Вы и найдете в какой строке 
вычисления с ней портят Вашу программу. 


Ошибка "ОШ оГ ОБАТА" возникает в случае несоответствия количества данных, 
прочитанных программой по оператору РЕАВ и имеющихся в строках ВАТА. Борьба с ней 
довольно проста и требует только внимательности и точности. 


А теперь, закончив с этим затянувшимся вступлением, мы предлагаем нашим 
читателям старинную африканскую игру "АРЁИСАМ ЗЕЕОЗ". Игра относится к направлению, 
называемому "Манкала". В этом семействе имеются сотни разных игр. Выбранная нами 
игра отличается относительной простотой правил и несложной алгоритмизацией. Несмотря 
на свою простоту, компьютерная версия игры отличается тем, что победить ее непросто. Мы 
не будем здесь рассказывать правил игры, Вы их прочитаете непосредственно после 
запуска программы. Укажем только, что играть можно не только с компьютером. 
Воспользовавшись камешками или ракушками Вы можете играть с друзьями на пляже или с 
помощью сосновых шишек в лесу. В связи с приближением отпускного сезона, Вам это 
может пригодиться. 

Программа переведена на русский язык. Если Ваш "Спектрум" имеет русский 
регистр, то набор русского текста не вызовет у Вас трудностей. Но, учитывая тот факт, что 
большинство компьютеров у наших пользователей нерусифицированные, мы использовали 
в программе загружаемый символьный набор "НС" в кодах КОИ-7 в стандарте АЗСИ (он 
приведен ниже). Это "утолщенный" русско-латинский символьный набор, предложенный 
для русификации программы "МЕ-09" (см. статью Алексеева А.Г. в "7Х-РЕВЮ" М 1-2 за 1992 
г. стр. 29). Для тех читателей, которые подписались на “"РЕВЮ" только в этом году, мы 
повторяем этот способ русификации. Мы будем всякий раз ссылаться на него при 
публикации в дальнейшем БЕЙСИК-программ для самостоятельного набора. 

Для формирования символьного набора используется программа для 
шестнадцатиричного ввода (см. "7Х-РЕВЮ"-93, М 1-2, стр. 5-7). 


СИМВОЛЬНЫЙ НАБОР "НС" КОИ-7 


ЕС58:00 00 00 00 00 00 00 00 :54 Е010:00 7Е 66 0С 18 30 30 00 :75 
ЕС60:00 18 18 18 18 00 18 00 :04 ЕО18:00 3С 66 3С 66 66 ЗС 00 :ЕВ 
[С68:00 6С 6С 6С 00 00 00 00 :А8 Е020:00 3С 66 66 ЗЕ 06 ЗС 00 :А5 
ЕС70:00 6С ГЕ 6С 6С ГЕ 6С 00 :18 ЕО28:00 00 18 18 00 18 18 00 :85 
ЕС78:00 18 7Е 58 ТЕ 1А ТЕ 18 :90 ЕО30:00 00 18 18 00 18 18 30 :ВВ 
ЕС80:00 62 64 08 10 26 46 00 :С6 ЕО38:00 00 0С 18 30 18 00 00 :АБ 
ЕС88:00 30 58 30 7А СС 76 00 :Р8 Е040:00 00 00 7С 00 7С 00 00 :35 
ЕС90:00 18 30 00 00 00 00 00 :04 Е048:00 00 30 18 00 18 30 00 :Е1 
ЕС98:00 0С 18 18 18 18 06 00 :0С Е050:00 ЗС 66 0С 18 00 18 00 :2В 
ЕСАО:00 30 18 18 18 18 30 00 :5С Е058:00 7С СЕ 06 ОЕ С0 7С 00 :8Е 
ГСАЗ:00 00 6С 38 ЕЕ 38 60 00 :Е [060:00 3С 66 66 7Е 66 66 00 АЕ 
ЕСВО:00 00 18 18 7Е 18 18 00 :8А [О68:00 7С 66 7С 66 66 7С 00 :08В 
ЕСВ8:00 00 00 00 00 18 18 30 :14 Е070:00 3С 66 60 60 66 ЗС 00 :71 
ЕСС0:00 00 00 00 7С 00 00 00 :38 ЕО78:00 7С 66 66 66 66 7С 00 :05 
ЕСС8:00 00 00 00 00 18 18 00 :Р4 ЕО80:00 7Е 60 7С 60 60 ТЕ 00 :15 
ЕС00:00 00 06 0С 18 30 60 00 :86 ЕО88:00 7Е 60 7С 60 60 60 00 РЕ 
ЕС08:00 3С 66 6Е 76 66 ЗС 00 :ЕС Е090:00 3С 66 60 6Е 66 ЗС 00 :9Е 
ЕСЕО:00 18 38 18 18 18 3С 00 :В0 [098:00 66 66 7Е 66 66 66 00 :11 


[ОС8:00 66 66 76 6Е 66 66 00 :41 ГЕ90:00 00 ЗЕ 30 30 30 30 00 :8С 
ЕО00:00 3С 66 66 66 66 ЗС 00 :00 ГЕЭ8:00 00 66 ЗС 18 ЗС 66 00 :Е2 
ЕО08:00 7С 66 66 7С 60 60 00 :59 ГЕАО:00 00 66 66 6Е 76 66 00 :8В4 
ГОЕО:00 3С 66 66 бЕ БЕ ЗЕ 00 :РЕ ГЕА8:00 18 66 66 6Е 76 66 00 :04 
ГОЕЗ:00 7С 66 66 7С 6С 66 00 :7В ГЕВО:00 00 66 60 78 6С 66 00 :СА 
ЕОЕО:00 3С 60 3С 06 66 ЗС 00 :60 ГЕВ8:00 00 1Е 36 36 36 66 00 :0С 
ЕОЕ8:00 7Е 18 18 18 18 18 00 :Е ГЕСО:00 00 С6 ЕЕ 06 С6 (6 00 :04 
ГЕОО:00 66 66 66 66 66 ЗС 00 :38 ГЕС8:00 00 66 66 7Е 66 66 00 :0С 
ГЕО8:00 66 66 66 66 ЗС 18 00 :Р2 ГЕОО:00 00 3С 66 66 66 30 00 :78 
ГЕ10:00 С6 С6 06 06 ГЕ 44 00 :88 ГЕО8:00 00 7Е 66 66 66 66 00 :ЕС 
ГЕ18:00 66 ЗС 18 18 3С 66 00 :8А ГЕЕО:00 00 ЗЕ 66 ЗЕ 36 66 00 :5С 
ГЕ20:00 66 ЗС 18 18 18 18 00 :20 ГЕЕЗ:00 00 7С 66 66 7С 60 00 :0А 
ГЕ28:00 7С 0С 18 30 60 7С 00 :02 ГЕРО:00 00 ЗС 66 60 66 ЗС 00 :92 
ГЕЗО:00 1Е 18 18 18 18 1Е 00 :СА ГЕР8:00 00 7Е 18 18 18 18 00 :04 
ГЕЗ8:00 С0 60 30 18 0С 06 00 :В0 ЕРО0:00 00 66 66 ЗЕ 06 ЗС 00 :4В 
ГЕ40:00 78 18 18 18 18 78 00 :8Е ЕРО8:00 00 06 06 7С 06 06 00 :0В 
ГЕ48:00 18 ЗС 5А 18 18 18 00 :3С ЕЕ10:00 00 7С 66 7С 66 7С 00 :4Е 
ГЕЗ0:00 00 00 00 00 00 00 РЕ :40 ЕЕ18:00 00 60 60 7С 66 7С 00 :35 
ГЕ58:00 00 0С Еб Еб Рб ОС 00 :Р0 ЕЕ20:00 00 С6 (6 Еб ОЕ Еб 00 :75 
ГЕбО:00 00 3С 66 7Е 66 66 00 :4А ЕР28:00 00 ЗС 66 00 66 ЗС 00 :77 
ГЕбЗ:00 00 7С 60 7С 66 7С 00 :АО ЕЕ30:00 00 С6 06 06 06 ГЕ 00 :75 
ГЕ70:00 00 6С 60 60 6С 7Е 06 :А2 ЕР38:00 00 78 06 3С 0С 78 00 :7В 
ГЕ78:00 00 3С 60 6С 6С ЕЕ (6 :ВА ЕЕ40:00 00 С6 06 06 06 ЕР 03 :89 
ГЕЗ0:00 00 7Е 60 7С 60 ТЕ 00 :В6 ГЕ48:00 00 66 66 ЗЕ 06 06 00 :50 
ГЕЗ8:00 00 7С 06 06 7С 10 00 :ЗА ЕР50:00 00 70 30 ЗС 36 ЗС 00 :90 


После того, как работа по вводу этих кодов будет завершена, запишите полученный 
символьный набор на магнитную ленту: ЗА\МЕ "сви" СОБЕ 61600,768. Он пригодится Вам и 
для других программ. 

Перед тем, как набирать текст БЕЙСИК-программы, сделайте следующее: 

СТЕАК 64599: 10АБ “спг”СООЕ 
РОКЕ 23606, 88: РОКЕ 23607, 251 

Теперь включен загруженный символьный набор. Попробуйте набирать БЕЙСИК 
программу. Токены ключевых слов "Спектрума", состоящие из заглавных латинских букв, 
будут печататься как обычно. Текст, набираемый при помощи буквенных клавишей при 
отключенном режиме САР$ 1ОСК, будет набираться русскими буквами. Так же он будет 
выглядеть и на экране. При включений регистра САР$ 1ОСК, текст будет набираться 
латинскими буквами. При этом, правда, придется обходиться только заглавными русскими и 
латинскими буквами, но зато это позволит легко совмещать русский и английский текст 
внутри одного оператора РЕМТ. Имена переменных для удобства чтения набираются 
заглавными латинскими буквами. 

Кроме формирования самого символьного набора, в программу вводятся 
дополнительные строки. Это строка 2, загружающая символьный набор. С нее должен 
происходить автостарт программы. Еще это переключатели шрифта, строки 8 и 9 (могут 
быть любые другие номера, такие, какие удобно вписываются в программу). Используя 
команду @О ЗОВ 8, можно включить загруженный символьный набор, а командой СО ЗОВ 9 - 
выключить его. Эти команды можно как включать в БЕЙСИК-строки, так и подавать 
напрямую, находясь в режиме редактирования БЕЙСИК-строк. 


КОМПЬЮТЕР 


Следует также предупредить тех пользователей, которые имеют БЕТА-ДИСК 


интерфейс. В программах, 


в которых используется блок ЧОС-графики, 


стандартно 


расположенный после рестарта компьютера с адреса 65368, полезно бывает перед стартом 
программы включать еще и конструкцию, задающую системную переменную УОС: 


РОКЕ 23675,88: РОК 


процессе работы дискового загрузчика "Боо\". 
общем-то очень хороший и широко распространенный загрузчик "МОА-ЗЕВМСЕ”". 


Е 23676, 


2 


Это, казалось бы лишнее, так как после рестарта компьютера в указанные ячейках и 
так находятся указанные числа. Дело в том, что значения этих ячеек могли быть изменены в 


Так неко 


рректно ведет себя, например, в 
Эта 


рекомендация убережет Вас от возможных "накладок" и в других случаях. 
А теперь, когда есть определенность с вопросом русификации, можно переходить 
непосредственно к тексту программы "АРЁИСАМ ЗЕЕОЗ". 


1 60 ТО 1000 

2 СТЕАВ 64599:10АБ “СНВ” СОБЕ 64600 

3 РОКЕ 23675, 88:РОКЕ 23676, 255: ВЕЗТОНЕ 2100:ЕОВ Р=0 ТО 95:ВЕАБ @:РОКЕ 15А “А”+Р, @:МЕХТ Р 

4 ВИ 

5 ЗА\МЕ “АРАТСА”ЕТМЕ 2:5А\УЕ “СНВ” СОБЕ 64600, 768 : ТОР 

8 РОКЕ 23606, 88:РОКЕ 23607, 251:ВЕТУВМ:ВЕМ ВИ$ 

9 РОКЕ 23606, О:РОКЕ 23607, 60:ВЕТИВМ:ВЕМ ТГАТ 

100 РАТМТ АТ 17, С00Е А$(Н); ВАТЕНТ 1;РАРЕВ 2; ЗСВЕЕМ$ (17, СОБЕ А$(Н)):ЕЕТ $З=Н(Н):ЕЕТ 
Н(Н)=0: ГЕТ 0=0+1 

110 ТЕ 5 ТНЕМ ЁЕТ 5=$-1:ЕЕТ Н=Н+1-12*(Н=12): ВЕТ Н(Н)=Н(Н)+1:60 ТО 110 

200 РАТМТ АТ 17, СО0Е АФ(Н);ВВТСНТ 1;ТМК 0; РАРЕВ 2; $СВЕЕМ$ (17, СОБЕ А$(Н)):ТЕ Н(Н)<>1 ТНЕМ 
РОН В=10 ТО 10+Н(Н):ВЕЕР .002,В+0:МЕХТ В:ВЕТУНМ 

210 РАТМТ АТ 17, СО0Е АФ(Н);ВВТСНТ 1; РАРЕВ 5; $СВЕЕМ$ (17, СОБЕ А$(Н)); :ЕЕТ ЕМО=1: [ЕТ 0Р=13- 
Н:РОВ В=20 ТО 20+Н(ОР):ВЕЕР .02,В:МЕХТ В:ТЕ (МОТ 2х АМО 0Р<7) ОВ (7Х АМО 0Р>6) ОН МТ 
Н(ОР) ТНЕМ ВЕТОВМ 

220 ЕЕТ МТ№=Н(ОР):ЕЕТ Н(ОР)=0:1ЕТ $(2-7Х)=5(2-2Х)+ИТМ№*5С:РВАТМТ АТ 17, С00Е АЗ (ОР); ЕГАЗН 
1; ВВТОНТ 1;РАРЕВ 5; $СВЕЕМ$ (17, СОБЕ А$(ОР)):РОВ В=30 ТО 30+МТМ:ВЕЕР .025,В:МЕХТ 
В:ВЕТИАМ 

300 РАТМТ АТ 19, 25; ‘АТ 19, 11; ВАТСНТ 1;РАРЕВ (0-8»ТМТ (0/8)); ТМК 9;” ХОД "”;0;” 
“;:РОН Р=1 ТО 12: ВЕЗТОВЕ 2300+В(Р): АЕАБ № 

330 РАТМТ АТ С00Е Х$(Р), СОБЕ \$(Р); №: ТЕТ Н(Р)=В(Р):ВЕЕР .005, 0+В(Р):МЕХТ Р 

340 РВТМТ АТ 15, 11;5(2); :РАТМТ АТ 15, 20;5(1):РВАТМТ АТ 19, 11; Е$ : ВЕТУВМ 

400 ВВТЕНТ О:РАТМТ АТ 17, 0; РАРЕВ 4; “АВСВЕЕ ХОД анты Е": ВЕТОАМ 

500 РАТМТ (“ЧИСЛО ПРОИГРАННЫХ ВАМИ ОЧКОВ: “+5ТВ$ ($(1)-5(2)) АМО $5(1)>5(2))+( "ЧИСЛО 
ВЫИГРАННЫХ ВАМИ ОЧКОВ: "+5ТА$ (5(2)-$(1)) АМО $(1)<$(2)) 

510 60 $508 400 

520 РВТМТ АТ 0, 0:ТМРИТ “ХОТИТЕ СЫГРАТЬ ЕЩЕ РАЗ? (\) “;ЕТМЕ 0$:ТЕ С00Е 1$=121-32*(1$="У") 
ТНЕМ 60 ТО 1040 

530 5ТОР 

580 РАТМТ АТ 18, 0; "ЛУНКИ ПРОТИВНИКА ПУСТЫ. ВСЕ 0С-ТАВШИЕСЯ ФИШКИ ПЕРЕШЛИ К НЕМУ. 

600 РАТМТ АТ 20, 0; "ИГРА “; (ПРОДОЛЖАЕТСЯ. ” АМО $(1)=$(2)); ("ЗАКОНЧЕНА. ” АМО $(1)<>$(2)):60 
ТО 500 

700 ТЕ 5(1)>24 ОВ $(2)>24 ТНЕМ @0 ТО 600 

710 ТЕ $(1)+5(2)>39 АМО МОТ ИТМ ТНЕМ ЁЕТ С=С+1:ТЕ >10 ТНЕМ 60 ТО 600 

720 ВЕТУВМ 

1000 60 ЗИВ 8:РОКЕ 23658, 8:1ЕТ 0=0:0ТМ $(2):0ТМ В(12):0ТМ Н(12):ОТМ А$(12):0ТМ С$(12):0ТМ 
Х$(12):ОТМ \$(12) 

1020 60 $0В 2000:РНАТМТ АТ 19, 1; ТМК 0; "ВЫ БУДЕТЕ СМОТРЕТЬ ИНСТРУКЦИЮ? ”; АТ 21,4; “(ЕСЛИ ДА, ТО 
ВВЕДИТЕ У)”:ТМРУТ ЕТМЕ 0$:ТЕ С00Е 0$+32*(0$="У")=121 ТНЕМ 

60 $50В 2400 

1030 ВЕЗТОВЕ 2160:РОВ №=1 ТО 12:ВЕАВ А:1ЕТ А$(№)=СНА$ А:МЕХТ № 

1040 60 $508 2020 

1060 60 $ИВ 2080:ТМРИТ ЕТМЕ 1$:ТЕ 1$<"0” ОВ 1$>"9” ТНЕМ 60 ТО 1060 

1070 ГЕТ 1=\УАЕ 0$+20* (1$="0”):РАТМТ АТ 15,0; " “РОВ Р=15 ТО 21 $ТЕР 
2:РАТМТ АТ Р, 17; " "МЕХТ Р:ЕЕТ Е$="УРОВЕНЬ “+1$+" “ 

1080 НЕЗТОНЕ 3000:РОВ №=1 ТО 12:ВЕАБ Х, У:РАТМТ АТ Х,\; ^  ";АТ Х+2-4* (№6), У+1; ТМК 7; РАРЕВ 
О; ВАТ@НТ 1;СНВ$ (64+№):1ЕТ Х$(М)=СНА$ Х:1ЕТ У$(№)=СНА$ У:МЕХТ № 

1090 РВТМТ АТ 15, О; ВАТСНТ 1;РАРЕВ 1; ТМК 7; "ИГРОК СЧЕТ КОМПЬЮТЕР” 

1100 ОТМ М(12) ЕТ 0=О:1ЕТ Т=О:1ЕТ $С=0:ЕЕТ С=О:ЕЕТ $(1)=О0:ЕЕТ $(2)=0:ЕОВ Р=1 ТО 12:1ЕТ 
В(Р)=4:1ЕТ Н(Р)=4:МЕХТ Р 

1110 ВАМООМТИЕ 1ЕТ 7Х=ТМТ (ВМО *2) 


1120 
1150 


1200 
1210 
1220 
1230 
1250 


1300 


1320 
1330 
1340 
1350 
1360 
1370 
1380 


1390 
1400 


1410 
1440 
1450 
1490 
1500 


1540 


1550 
1560 
1570 
1580 
1590 
2000 


2005 


2010 
2020 


2030 


2040 
2050 


2060 


60 508 300:60 $08 400 


ХОД ВЫПАЛ 


ТЕ 7Х ТНЕМ РАТМТ АТ 17, 19; ВАТЕНТ 1;Т№К 7;РАРЕН 1; ">": ТМРУТ “ПЕРВЫЙ 
КОМПЬЮТЕРУ. НАЖМИТЕ ЕМТЕВ, ЕСЛИ ГОТОВЫ. “;ЕТМЕ У$:ЁЕТ РАЕР=ТМТ (ВМО *7+6):60 ТО 
1400 

ТЕ МОТ 2х ТНЕМ 60 ТО 1500 

60 $0В 700 

ТЕ №Т (В(7)-+В(8)+В(9)+В(10)+8(11)+В(12)) ТНЕМ ЕТ $(1)=$(1)+48-5(1)-$(2):60 ТО 580 


Р 


Р 


“р. 


Р 


Е 
С 
Т 
Р 


г 


Р 
В 


р 


Р 
Р 


В 


ЕТ ОР=О:1ЕТ $С=0:ЕЕТ МТ№=0:0ТМ М(12) 


АТМТ АТ 17, 19; ВАТОНТ 1;Т№К 7;РАРЕН 1;">":ТМРИТ “НАЖМИТЕ ЕМТЕВ, ПОЖАЛУЙСТА. "; ЕТМЕ 1$:60 


ИВ 400:ТЕ 1$=" 5ТОР " ТНЕМ @0 ТО 600 
АТМТ АТ 19, 26; "АНАЛИЗ" РОВ Р=7 ТО 12:ЕЕТ О=0:1ЕТ ЕМБ=О: ЕТ МТМ=О0: 
ТНЕМ 60 ТО 1350 


ГЕТ Н=Р:ЕЕТ М=Р:РОВ К=1 ТО 12:1ЕТ Н(К)=В(К):МЕХТ К 


0 50В 400:60 $0В 100:ТЕ 0<1 АМО МОТ ЕМО ТНЕМ 60 ТО 1330 


ГЕТ М(Р)=МТМ»ЕМО 


ЕХТ Р 


ЕХТ Р 


ГЕТ В=0:РОВ Р=7 ТО 12:ТЕ Р«>РВЕЕ ТНЕМ ТЕ В(Р)>0 ТНЕМ ТЕ М(Р)=М(РВЕ 


М(В)=Р 
ЕХТ Р:ТЕ В ТНЕМ ГЕТ РВЕР=М(ТМТ (АМО *В)+1) 

ЕТ Е№О=О: ЕТ О=О:1ЕТ ОР=О:ЕЕТ $С=1:ЕЕТ Н=РНЕР:1ЕТ МТ№=0:@0 $0В 40 
Н(Р)=В(Р):МЕХТ Р 
АТМТ АТ 17, С00Е 
ОВ Р=1 ТО 12:1ЕТ 
0 $0В 700 


ГЕТ ОР=0:ТЕ МОТ В(Р) 


СЕТ РВЕЕ=Т:РВТМТ АТ 19, 26; "ОЦЕНКА": РОВ Р=7 ТО 12:ТЕ М(Р)>М(РВЕР) ТНЕМЕЕТ РАЕР=Р 


Е) ТНЕМ ЁЕТ В=В+1: [ЕТ 


О:РОН Р=1 ТО 12:1ЕТ 


А$(Н); ВАТ@НТ 1;РАРЕН 2; ЗСВЕЕМ$ (17, СООЕ А$(Н)):60 $ИВ 100 
В(Р)=Н(Р):МЕХТ Р:60 $0В 300:ТЕ МОТ ЕМО ТНЕМ 60 508 400:60 ТО 1410 


Е №Т (В(1)+В(2)+В(3)+8В(4)+В(5)+В(6)) ТНЕМ ЕЕТ $(2)=$(2)+48-$(1)-$(2):@60 ТО 580 


ВТМТ АТ 17, 12; ВАТОНТ 1;Т№МК 7;РАРЕВ 1; "<":РОКЕ 23658, 8:ТМРИТ “ВАШ ХОД. УКАЖИТЕ 


ЛУНКУ. ";ЕТМЕ 1$:ТЕ 0$=” ЭТОР " ТНЕМ @0 ТО 600 


ХОД. "'"ПОВТОРИТЕ, ПОЖАЛУЙСТА. ":ВЕЕР 1.5,0:60 ТО 1500 


ВТМТ АТ 16, 3: ТМК 0; "МТКЕ ЕБМААО$ + ““"ИНФОРКОМ" "": ВЕТОВМ 
ОВОЕВ 6:РАРЕВ 6:ТМК 0:С15:РВАТМТ РАРЕВ 4: "*хххх АЕВТСАМ 5ЕЕБЗ 
ВТМТ ' ы 

| № Ми Ми Ми Ши Ши | 

_ М 9 В В В 

| Бе БИ и и БИ и | 

ВТМТ РАРЕВ 1`” 

ВТМТ ' о 

| № Ми Ми Ми Ми Ши | 

_ М 9 В В В 
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ГРА ОСНОВАНА НА АФРИКАНСКИХ 


ИГРАХ ТИПА "““МАНКАЛА””, ХОТЯ ЕЕ 


ПРАВИЛА ПРОЩЕ, 


ЕЕ ПРЕДШЕСТВЕННИЦ. " 


РАТМТ 


ФИШКАМИ КАЖДАЯ. 
ДЕЛЕНЫ МЕЖДУ ИГРОКАМИ. ВАША Ц 
СОБИРАЯ КАК МО- 


НО 


ТМРИТ "ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ ЕМТЕВ 
ВОВОЕН 4:РАРЕВ 4:ТМК 0:С1$:РАТМТ ” 


ХХХ Х 


НАБРАТЬ ОЧКИ, 


ЧЕМ У БОЛЬШИНСТВА 


ЕЕТСЯ 12 ЛУНОК С ЧЕТЫРЬМЯ 


ОНИ ПОРОВНУ РАЗ- 
ЕЛЬ 


БОЛЬШЕ ФИШЕК. 25 ОЧКОВ ОБЕ- 
СПЕЧИВАЕТ ПОБЕДУ. " 
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АРВТСАМ ЗЕЕОЗ 


";ЕТМЕ 0$ 


АЕВТСАМ ЗЕЕОЗ 


2450 РАТМТ '`” 
ИГРОКИ ПО ОЧЕРЕДИ БЕРУТ ФИШКИ 
ИЗ ЛЮБОЙ СВОЕЙ ЛУНКИ И РАССЫПАЮТ 
ИХ ПО ОДНОЙ В СОСЕДНИЕ ЛУНКИ 
ПРОТИВ ЧАСОВОЙ СТРЕЛКИ, НАЧИНАЯ 
С ЛУНКИ, НАХОДЯЩЕЙСЯ П0О-СОСЕД- 
СТВУ С НАЧАЛЬНОЙ. " 
2460 РАТМТ ^” 
ЕСЛИ ПОСЛЕДНЯЯ ФИШКА ОКАЖЕТСЯ 
В ЗАНЯТОЙ ЛУНКЕ, ТО ИГРОК БЕРЕТ 
ФИШКИ ИЗ НЕЕ И ПРОДОЛЖАЕТ ХОД В 
ТОМ ЖЕ ПОРЯДКЕ. ТАК ПРОДОЛЖАЕТ- 
СЯ, ПОКА ХОД НЕ ЗАВЕРШИТСЯ В ПУ- 
СТОЙ ЛУНКЕ. " 
2470 РАТМТ '” 
ЕСЛИ ХОД ЗАКАНЧИВАЕТСЯ В ПУС- 
ТОЙ ЛУНКЕ ПРОТИВОПОЛОЖНОГО РЯДА, 
ИЛИ НАПРОТИВ ПУСТОЙ ЛУНКИ, ТО 
ХОД ПЕРЕХОДИТ К ПРОТИВНИКУ. ” 
2480 ТМРИТ "ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ ЕМТЕВ ”“; ЕТМЕ 1$ 
2490 ВОНОЕВ 4:РАРЕВ 4:ТМК 0:СЕ$:РВАТМТ “хх*» АРВТСАМ ЗЕЕОЗ 
2500 РАТМТ '`” 
ЗАХВАТ ФИШЕК ВОЗМОЖЕН ТОЛЬКО 
ЕСЛИ ПОСЛЕДНЯЯ ФИШКА В ХОДЕ ПО- 
ПАДАЕТ В ПУСТУЮ ЛУНКУ СВОЕГО РЯ- 
ДА, НАПРОТИВ ЗАНЯТОЙ ЛУНКИ ПРО- 
ТИВНИКА. ТОГДА ФИШКИ ПРОТИВНИКА 
ЗЫМАЮТСЯ, А СЧЕТ УВЕЛИЧИВАЕТСЯ. " 
250. РАТАТ. ” 
ИГРА ПРОДОЛЖАЕТСЯ, ПОКА ОДИН 
3 ИГРОКОВ НЕ НАБЕРЕТ БОЛЕЕ 24 
ОЧКОВ ИЛИ ОБА ПАРТНЕРА НЕ СОГЛА- 
СЯТСЯ НА НИЧЬЮ. 
2520 РАТМТ ` ы 
ВНИМАНИЕ! ЕСЛИ ВЫ ОСТАВИТЕ 
СВОЕГО ПРОТИВНИКА БЕЗ ФИШЕК И 
БЕЗ ХОДА, ТО ВСЕ ФИШКИ, ИМЕЮЩИЕ- 
СЯ НА ДОСКЕ, ПЕРЕХОДЯТК НЕМУ. 
2530 ТМРИТ "ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ ЕМТЕВ “; ЕТМЕ 1$ 
2540 ВОНОЕВ 4:РАРЕВ 4:ТМК 0:СЕ$:РВАТМТ “хх*» АРВТСАМ ЗЕЕОЗ 
2550 РАТМТ °' 
ПРАВО ПЕРВОГО ХОДА ОПРЕДЕЛЯЕТ 
КОМПЬЮТЕР СЛУЧАЙНЫМ ОБРАЗОМ. "'^" 
ВЫ ИМЕЕТЕ ЛУНКИ ОТ А ДО Е. КОМ 
ПЬЮТЕР ИМЕЕТ ЛУНКИ ОТ @ ДО |.” 
2560 РАТМТ ` 


КОГДА БУДЕТ ВАШ ХОД, ВВЕДИТЕ 
СИМВОЛ ТОЙ ЛУНКИ, ИЗ КОТОРОЙ ВЫ 
ХОТИТЕ СДЕЛАТЬ ХОД. КОМПЬЮТЕР 
ЕТ НАЖАТИЯ ЕМТЕК ДЛЯ НАЧАЛА 
СВОЕГО ХОДА. " 

2570 РАТМТ ` 


2 
— 
Т 


КОГДА ИГРА БУДЕТ ЗАВЕРШЕНА, 
КОМПЬЮТЕР ПОДСЧИТАЕТ И ОБЪЯВИТ 
РЕЗУЛЬТАТ. МОЖНО ПРЕРВАТЬ ИГРУ 
В ЛЮБОЕ ВРЕМЯ, ВВЕДЯ: “” 5ТОР “^”.” 

2580 ТМРИТ и 
ВВЕДИТЕ Н ДЛЯ ПОВТОРА ИНСТРУКЦИИ 
ИЛИ ЕМТЕВ, ЧТОБЫ НАЧАТЬ ИГРУ. “;ЕТМЕ 3$:ТЕ С00Е 3$=114-32*(3$="В”) ТНЕМ 60 ТО 2400 

2590 ВЕТИОВМ 

ЗОО ВАТА Л ТА ев оао р, она 


Набирая программу, Вы периодически можете записывать результат на магнитную 
ленту, выполняя: ВУМ 5. При наборе программы обратите внимание, пожалуйста, на те 
места, где набор происходит с использованием графического регистра. Это строки 2000- 
2005, в которых используется символ с кодом 143 (регистр [С], затем С$+8). Это также 
символы с кодами 131, 140, 143 блочной графики и символы "|"-"1" ЧОС-графики в строках 
2030, 2050. Символы УбС-графики "А"-"Н" используются при наборе строк 2300-2324. 

Автостарт программы происходит со строки 2, где прежде всего резервируется место 
дли расположения загружаемого символьного набора, путем переустановки значения 
ВАМТОР оператором СЬЕАВ. После загрузки символьного набора происходит задание банка 
символов ЧУО)С-графики. На этом подготовку можно считать законченной. Далее строка 4 
передает управление на начало программы. При отладке, после остановки программы, ее 
можно запустить командой ВУМ с начальной строки. 

Так как мы используем русско-латинский символьный набор, то перед тем, как будет 
произведен ввод параметров при помощи оператора МРОТ, корректно будет принудительно 
включать режим САР$З ГОСК (устанавливать курсор [С]), так как вводиться должны 
параметры в виде английских букв. Это происходит, например, в начале выполнения 
программы, в строке 1000 подачей команды РОКЕ 23658,6, а также в других местах. 

Подпрограмма СО ЗВ 2000 в строке 1020 - это вывод на экран титульной заставки. 
После этого происходит запрос для вывода инструкции. Результат запроса (переменная Ц$) 
анализируется, причем результат не зависит от того, нажата ли клавиша "\" в режиме САР$ 
ГОСК или нет. В том случае, если нажата клавиша "\", происходит вызов подпрограммы СО 
ЗУВ 2400, которая выводит на экран инструкцию с правилами игры. 

Подпрограмма СО ЗОЦВ 2020 в строке 1040 обеспечивает прорисовку игрового поля - 
игровые лунки играющего и компьютера. 

В строке 1060 происходит ввод уровня сложности игры. Кстати, при тестировании 
программы выяснилось, что эта величина нигде дальше в программе не участвует. 
Непонятно, для чего автор ввел этот параметр. Может быть, рассчитывая в дальнейшем на 
усовершенствование игры, или на то, что “пытливые умы" сами сделают такое 
усовершенствование. В общем, есть простор для творческого поиска. А можно пойти по 
другому пути: просто исключить все, что касается ввода уровня. Но нам кажется, что 
вариант с заданием уровня (пусть фиктивным) смотрится динамичнее. 

Далее идет подготовка игрового поля и предустановка исходных данных. В строке 
1110 происходит определение того, кто делает первый ход. Если право первого хода выпало 
компьютеру, тогда после нажатия ЕМТЕВ программа переходит на строку 1400. Кстати, свой 
первый ход компьютер делает случайным образом выбирая одну из своих лунок. Это 
происходит путем задания переменной РНВЕР в строке 1150. Но это касается только первого 
хода. В дальнейшем, перед тем, как сделать ход, компьютер рассчитывает наиболее 
удачный вариант. Это осуществляется в строках, начиная с 1200. В этой строке, если право 
очередного хода имеет человек, то происходит переход на строку 1500. Если ход 
принадлежит компьютеру, то ожидается нажатие ЕМТЕВ, после чего ситуация анализируется 
(со строки 1300) а затем, в строке 1360, выбирается наиболее предпочтительный вариант 
РАЕЁ. Далее, со строки 1400 происходят действия, непосредственно связанные с 
выполнением кода. 

Если очередной ход делает человек, то происходит переход на строку 1500. На эту 
строку мы попадаем сразу после того, как будет закончен ход компьютера (в строках с 1400) 
или в начале игры, в случае первого хода, (см. строки 1110-1200). В конце этой части 
программы происходит передача хода компьютеру (строка 1580) и повторение цикла со 
строки 1200. 

И, в заключение, предлагаем еще одну игру для тех, кто любит программы, 
развивающие внимательность, наблюдательность и быстроту реакции. 


САЗН-РЕОМ/ 


Игра имитирует игровой автомат. Монета падает вниз, ударяясь о неподвижные 
штыри. Таким образом, путь монеты в значительной мере случаен. В нижней части игрового 
поля монета попадает в один из шести монетоприемников, в каждом из которых уже может 
находиться до четырех монет. Ваша задача - довести их количество до пяти. Тогда монеты 
будут выданы Вам в качестве приза (разумеется, при наличии у вашего "Спектрума" 
соответствующей приставки для выдачи “наличных"). Выигранные монеты можно 
использовать для продолжения игры. Результат игры в основном зависит от момента, когда 
Вы бросаете монету. В то же время, у Вас есть возможность подтолкнуть падающую монету 
в любом направлении, но только один раз и только в верхней части доски со штырями. 
Монетоприемник М 4 "проглатывает" все монеты, поэтому его следует избегать всеми 
силами. Всего на игру Вам дается 6 монет по 10 пенсов каждая. Постарайтесь как можно 
раньше получить выигрыш и продолжать игру как можно дольше. 
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135 ТЕ Т№КЕУ$="0” АМО [>40 ТНЕМ ГЕТ ММ=М-[:60 ТО 2000 

140 ТЕТ К=2»*С0$ (РТ»(ТМТ (ВМО *2))) 

150 ТЕТ Х=Х+2 

151 ТЕ Т=0 АМО М<4 АМО У<=25 АМО ТМКЕУ$="Р” ТНЕМ ВЕЕР .05,32:ЕЕТ У=\+2:ЕЕТ 1=1:60 ТО 160 
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РАТМТ ТМК 1; АТ Х, У; А$; АТ Х+1, У; В$ 

ВЕЕР 05,20 

РОН М№=1 ТО 100:МЕХТ № 

ГЕТ М=М+1 

ТЕ М=б ТНЕМ 60 ТО 500 

60 ТО 130 

ТЕ \У=5 ТНЕМ ТЕТ (=А:1ЕТ А=А+1:60 ТО 530 

ТЕ \У=9 ТНЕМ ГЕТ б=В:ЕЕТ В=В+1:60 ТО 530 

ТЕ \У=13 ТНЕМ ЁЕТ б=С:ЁЕТ С=С+1:60 ТО 530 

ТЕ \У=17 ТНЕМ ГЕТ 6=0:60 ТО 530 

ТЕ \=21 ТНЕМ ТЕТ С=Е:ЕЕТ Е=Е+1:60 ТО 530 

ТЕ \=25 ТНЕМ ТЕТ @=Е:ЕЕТ Е=Е+1 

ТЕ 6=4 ТНЕМ 60 ТО 600 

РОН №=0 ТО 3-@:РАТМТ ТМК 1; АТ 12+2*М, У; " 
15+2»М№, У; В$ 

РАЦЗЕ 20 

МЕХТ № 

ТЕ \У=17 ТНЕМ РАТМТ АТ 20, 17; " `;АТ 21,17; " 

ТЕ СН<=0 ТНЕМ 60 ТО 2000 

РАТМТ ТМК 2; РЕАЗН 1; АТ 1, 20; "НАЖМИТЕ А” 


";АТ 13+2»*М, У; " 


“ВЕЕР 1,0 


ТЕ ТМКЕУ$="А” ТНЕМ РАТМТ ТМК 2; РЕАЗН 1;АТ 1,28; "7":60 ТО 1100 


ЕТ Т=ЕМ Т():ТЕ Т>Т1+240 ТНЕМ 60 ТО 1990 


ТЕ ТМКЕУ$="0” АМО [>40 ТНЕМ ГЕТ М№=и-1[:60 ТО 2000 


60 ТО 575 

ВЕЕР 1, 40 

РОН №=0 ТО 4 

ГЕТ \=\+10:ЕЕТ ММ=И-Е:ЕЕТ СН=М\+60 
РНТМТ АТ 12+2*М,У;” "“;АТ 13+2*М,У;" 
РАТМТ АТ 0, 15; " 

РВТМТ ВНТЕНТ 1; РЕАЗН 1; АТ 0, 15; СВ 
МЕХТ № 
ТЕ СН<=0 ТНЕМ 60 ТО 2000 

ТЕ У=5 ТНЕМ ТЕТ А=0 

ТЕ \У=9 ТНЕМ ЁЕТ В=0 

ТЕ \У=13 ТНЕМ ЕЕТ С=0 

ТЕ У=21 ТНЕМ ЕЕТ Е=0 

ТЕ \У=25 ТНЕМ ЕЕТ Е=0 

РАТМТ ТМК 2; РЕАЗН 1; АТ 1, 20; "НАЖМИТЕ А” 


”: ВЕЕР 


.1,30:РАЦЗЕ 20 


ТО 1100 


ТМК Т;АТ 23-2* 
ТМК Т;АТ 23-2* 
ТМК Т;АТ 23-2* 
ТМК Т;АТ 23-2* 


ТМК Т;АТ 23-2* 


ТЕ ТМКЕУ$="А” ТНЕМ РАТМТ ТМК 2; РЕАЗН 1; АТ 1, 28; "7": 60 
ТЕ ТМКЕУ$="О0” АМО [>40 ТНЕМ 60 ТО 2000 
60 ТО 635 
ГЕТ А=ТМТ (ВМО *3):РОВ №=1 ТО А:ТЕ А<>0 ТНЕМ РАТМТ Т 
2*№, 5, А$: ВЕЕР .05, О:МЕХТ № 
ГЕТ В=ТМТ (ВМО *3):РОВ №=1 ТО В:ТЕ В<>0 ТНЕМ РАТМТ Т 
2*№, 9; А$: ВЕЕР .05, 10: МЕХТ 
ГЕТ С=ТМТ (ВМО *5):РОВ №М=1 ТО С:ТЕ С<>0 ТНЕМ РАТМТ Т 
2*М, 13; А$:ВЕЕР .05, 20: МЕХТ 
ГЕТ Е=ТМТ (ВМО *5):РОВ №=1 ТО Е:ТЕ Е<>0 ТНЕМ РАТМТ Т 
2*№, 21; А$:ВЕЕР .05, 30: ЕХТ 
ГЕТ Р=ТМТ (ВМО *3):РОВ №=1 ТО Е:ТЕ [<>0 ТНЕМ РАТМТ Т 
2*№, 25; А$:ВЕЕР .05, 30: ХТ 
ГЕТ СВ=60:РВТМТ ВАТСНТ 1; ЕЕАЗН 1; АТ 0, 15; СВ 
РАТМТ ТМК 2; ЕЕАЗН 1;АТ 1, 20; "НАЖМИТЕ А” 
ТЕ ТАКЕУ$=' 'А” ТНЕМ РАТМТ ТМК ЕЕАЗН Т:АТ. 1.28. "2760 ТО 1100 
ТЕ Т№КЕУ$="О0” АМО [>40 ТНЕМ 60 ТО 2000 
60 ТО 1065 
ГЕТ 


Е=Е+10: ВЕТ Ми=И-Е:ЕЕТ СВ=М\+60:ЕЕТ Т=0 
РВТМТ АТ 0, 15; " " 

РВТМТ ВВТОНТ 1; ЕЕАЗН 1; АТ 0, 15; СВ 
РАТМТ ТАК 1;АТ 0,3; А$; АТ 1,3; В$:РАУЗЕ 6 
РОН М=3 ТО 27 

РНТМТ АТ 0, М; ” "“;АТ т, М; " 

ТЕ №=27 АМО СВ<=0 ТНЕМ 60 ТО 2000 


“АТ 14+2»М, У; А$; АТ 


‚5, В$; АТ 22- 
‚ 9; В$; АТ 22- 
‚ 13; ВФ;АТ 22- 
‚21;В$;АТ 22- 


‚25; В$;АТ 22- 


1120 ТЕ №=27 ТНЕМ 60 ТО 1060 
1130 РАТМТ ТМК 1; АТ 0, №+1; АЗ; АТ 1, №+1; В$ 


1140 РАЦЗЕ 6 

1150 ТЕ ТМКЕУ$="7” АМО ТМТ (№/2)<>ТМТ ((№-1)/2) ТНЕМ ТЕТ У=№+1:РАТМТ АТ 1,20; " ": 60 
ТО 1200 

1160 МЕХТ № 

1200 ЕТ Х=О: ВЕТ М=0 


1210 РАТМТ АТ Х,\У; ” ";АТ Х+1,\; " 

1212 РНАТМТ АТ 0, 15; " : 

1215 РВТМТ ВВТОНТ 1; ЕЕАЗН 1; АТ 0, 15; СВ 

1220 ЕЕТ Х=Х+2:ЕЕТ М=М+1 

1230 РАТМТ ТМК 1; АТ Х, У; А$; АТ Х+1,У; В$ 

1240 ВЕЕР .05,20:ЕРОВ М=1 ТО 50:МЕХТ № 

1250 ТЕ ТМТ ((\+1)/4)=ТМТ ((\+3)/4) ТНЕМ 60 ТО 1300 
Т 
С 


1260 ТЕ М=2 ТНЕМ 60 ТО 1300 
1270 
1300 РАТАТ АТО,“ ПЗАГАЕИЕ 
1310 РЕОТ ТАК 3; 24, 159: ОВАМ ТАК 3; 207,0 
1320 60 ТО 135 
1990 РАТМТ АТ 0, 15; " Г 0 ы 
1992 РВТМТ ТМК 1; ЕЕАЗН 1;АТ 1,8; ” ИГРА ОКОНЧЕНА “ 
1994 РОВ №=0 ТО 400:МЕХТ № 
2000 РАТМТ АТ 0, 15; " `ТАТ 20” 
2002 ЕЕТ О\=0\+М№ 
2003 ТЕ 0\>=0 АМО ТМТ ((0\-10)/100)=ТМТ (0\/100) ТНЕМ РАТМТ ТМК 7; РАРЕВ 1; ВВТСНТ 1; АТ 
4;" ТОГОВЫЙ ВЫИГРЫШ #" ; 0\/100; "0 ° 
0\>=0 АМО ТМТ ((0\-10 /100) ТИТ (0/100) ТНЕМ РВТМТ ТМК 7;РАРЕВ 1; ВАТЕНТ 1; АТ 
4; "ИТОГОВЫЙ ВЫИГРЫШ #"”;0М/100; ".0” 
2006 ТЕ 0М№<0 АМО ТМТ ((0\- 10)/100)= ТАТ (90/100) ТНЕМ РАТМТ ТМК 7; РАРЕВ 1; ВВТОЕНТ 1; АТ 

1.4 

0 


2004 ТЕ 


<> 


; "ИТОГОВЫЙ ПРОИГРЫШ #"; -0\/100; "0 
\\<0 АМО ТМТ ((0М-10)/100)<>Т Т (09/100) ТНЕМ РАТМТ ТМК 7; РАРЕВ 1; ВВТСНТ 1; АТ 
‚ 4; "ИТОГОВЫЙ ПРОИГРЫШ #"; -0м/100; ".0” 
2009 РОВ М= 0 ТО 8 
2010 ОТМ 1$(26 
2020 РАТМТ РАРЕН 2; ВВТЕНТ 1;АТ 13+Н, 3; 1$ 
2030 МЕХТ № 
2040 РАТМТ ТМК 7,РАРЕН 2;АТ 14, 4 
2050 РАТМТ ТМК 7;РАРЕВ 2;АТ 16, 7 
2060 ТЕ М№>=0 ТНЕМ РАТМТ ТМК 7Т;Р 
18,22; №М 
2070 ТЕ №<0 ТНЕМ РВТМТ ТМК 7;РАРЕН 2;АТ 18,7; "ВАШИ ПОТЕРИ - “;ТМК 7;РАРЕВ 0; ЕГАЗН 1; ВАТСНТ 
1; -М№М 
2080 РВТМТ ТМК 7;РАРЕВ 1; ВАТОНТ 1; ЕЕАЗН 1;АТ 20, 4; "СЫГРАЕТЕ ЕЩЕ РАЗ? ДА-<У>” 
2082 ТЕ Т>Т1+240 АМО ТМКЕУ$="У” ТНЕМ ЕЕТ Т1=ЕМ ТО) :ЕЕТ 0\=0:60 ТО 2100 
2085 ТЕ ТМКЕ\$="У" ТНЕМ 60 ТО 2100 
2090 60 ТО 2040 
2100 Р 
2105 РОН №=0 ТО 8 
О 
р 


2007 ТЕ 


‚ ” ВЫ ИЗРАСХОДОВАЛИ - “;ВАТОНТ 1; 1 
‚” И ПОЛУЧИЛИ - "; ВВТОНТ 1;М 
АРЕВ 2; АТ 18, 5; "ВАША ПРИБЫЛЬ - “;ТМК 7;РАРЕВ 0; ВАТСНТ 1; АТ 


2110 
2120 
2130 МЕХТ № 
2140 60 ТО 75 

2500 ОТМ 1$(704):РВТМТ АТ 0,0; 1$ 

2520 РЕОТ ТИК 6; 26, 144: ОВАМ 0, -32, 11»РТ/1О:ВЕЕР .05, 10 

2523 РАЦЗЕ 30 

2524 РЕОТ 32, 112:ОВАМ 12, 32:ВЕЕР .05, 10:ОВАМ 12, -32:ВЕЕР .05, 10:РЕОТ 35, 120:ОВАМ 18, 0:ВЕЕР 
05% 10 

2526 РЕОТ ТИК 6; 80, 136:ОВАМ -8, -8, 3=РТ/2:ВЕЕР .05, 10:РЕОТ ТМК 6; 64, 120:ОВАМ 8, 8, З*=РТ/2 : ВЕЕР 
оО 

2527 РАЦЗЕ 30 

2528 РИЕОТ 88, 112:ОВАМ 0,32:ВЕЕР .05, 10:РЕОТ 104, 112:ОВАМ 0, 32:ВЕЕР .05, 10:РЕОТ 88, 128 :БВА 
16, О:ВЕЕР’ 05,10 
2529 РАЦЗЕ 30 

2530 РЕОТ 116, 128:ОВАМ 8, О:ВЕЕР .05, 10 
2531 РАЦЗЕ 30 


2532 РЕОТ 136, 112:ОВАМ 0, 32:ВЕЕР .05,10:ОВАМ 16, О:ВЕЕР .05, 10:РЕОТ 136, 128: ОНАМ 10, 0: ВЕЕР 
ОТО 

2533 РАЦЗЕ 30 

2534 РЕОТ 176, 112:ОВАМ -16, О:ВЕЕР .05,10:0ВАМ 0, 32:ВЕЕР .05, 10 

2535 РАЦЗЕ 30 

2536 РЕОТ ТИК 6; 194, 144: ОВАМ 0, -32, 5*РТ/б:ВЕЕР .05, 10:ОВАМ 0, 32, 5*РТ/б:ВЕЕР .05, 10 

2537 РАЦЗЕ 30 

2538 РЕОТ 214, 144: ВАМ 8, -32:ВЕЕР .05,10:0ВАМ 8, 16:ВЕЕР .05, 10:ОНАМ 8, -16:ВЕЕР .05, 10: ОВАМ 
Во ВЕЕР ОО 

2540 РОН М=13 ТО 21 

2545 РАТМТ ТМК 2;АТ М, 3; "ЕЕ ЕР ЕР ЕР ЕР ЕР ЕР” 
2550 РАТМТ ТМК 4; АТ М, 2; “Е”; АТ М, 29; "Е" 


2558 ГЕТ 0= 
2560 РОВ №=0 ТО З:РВАТМТ ТМК 1;АТ 12+2*№,0;” “;АТ 13+2*№,0;” “;АТ 14+2*М№, 0; АЗ; АТ 

‚ В$:ВЕЕР .05, О:МЕХТ № 

2:РАТМТ ТМК 1; АТ 12+2»№,0;” “;АТ 13+2*М,0;"” “;АТ 14+2»№, 0; А$; АТ 

‚ В$:ВЕЕР .05, О:МЕХТ № 

2562 РОН М= 1:РАТМТ ТМК 1;АТ 12+2*№,0;” “;АТ 13+2*№,0;” “;АТ 14+2*М, 0; АЗ; АТ 
15+2*М, 0; В$:ВЕЕР .05, @:МЕХТ № 

2563 РАТМТ ТМК 1;АТ 14, 0; А$; АТ 15,0; В$:ВЕЕР .05,0 

2565 [ЕТ 0=0+4:ТЕ @<29 ТНЕМ 60 ТО 2560 

Е 0=29 ТНЕМ РАТМТ РЕАЗН 1;ВАТОНТ 1;ТМК 1;АТ 10, 1; "ВАМ -НУЖНА ИНСТРУКЦИЯ? ДА - <\>”" 
АЦЗЕ О:ТЕ ТМКЕУ$=”У” ТНЕМ 60 ТО 2600 

2580 ВЕТИВМ 

2600 (15 

2610 РВТМТ ТМУЕНЗЕ 1;АТ 1, 10; ” САЗН-РЕОМ “ 

265” РАТМТ АТ 30” 

ВАША ЦЕЛЬ - СОБРАТЬ 5 МОНЕТ В 
ОДНОМ  МОНЕТОПРИЕМНИКЕ. В ЭТОМ 
СЛУЧАЕ ВСЕ ОНИ ДОСТАНУТСЯ ВАМ. 
2620 РВТМТ АТ 6,0; " 

У ВАС ЕСТЬ 6 МОНЕТ ПО 10 ПЕН- 

СОВ ПЛЮС ВСЕ, ВЫИГРАННЫЕ ВАМИ. ” 
2622 РАЦЗЕ 100:РВТМТ ТМК 6;РАРЕН 2; ЕГАЗН 1;АТ 9,4; ” НАЖМИТЕ ЛЮБУЮ КЛАВИШУ ^ 
2624 РАЦЗЕ 500:РВТМТ АТ 9,4; " й 
2628 РАТМТ ТМК 6,;РАРЕН 2; АТ 9, 9; " УПРАВЛЕНИЕ “ 
2630 РВТМТ АТ 11,0; "А - ВСТАВИТЬ МОНЕТУ В АВТОМАТ"; АТ 13,0; "7 - ЗАПУСТИТЬ МОНЕТУ” 
2635 РВТМТ АТ 15,0; "0 ИР - ПОДТОЛКНУТЬ МОНЕТУ ВЛЕВО ИЛИ ВПРАВО (ТОЛЬКО 1 РАЗ)” 
2640 РВАТМТ АТ 18,0; " 
О - ПРЕКРАЩЕНИЕ ИГРЫ (ТОЛЬКО ПО- 
СЛЕ ТОГО, КАК ВЫ ИЗРАСХОДУЕТЕ 
ПЕРВЫЕ 50 ПЕНСОВ” 
2642 РАЦЗЕ 100 
2644 ОТМ 1$(160):РАТМТ РАРЕВ 6;АТ 3, 0; 1$ 
2650 РАТМТ ТМК 2; ЕЕАЗН 1;АТ 5,3; ” НАЧИНАТЬ ИГРУ? ДА - <\> " 
2660 ТЕ ТМКЕ\$="У” ТНЕМ ВЕТОВМ 
О ТО 2660 
ЕЗТОНЕ ЕТ Н=0 
ОКЕ 23675, 88:РОКЕ 23676, 255 
ЕТ \=РЕЕК 23675+256*РЕЕК 23676 
ЕАБ У:ТЕ у=.5 ТНЕМ ВЕТОВМ 
ОКЕ 0+М, /:ЕЕТ №=№+1:60 ТО 3020 
3040 ВАТА 7, З1, 63, 112, 119, 228, 239, 231, 224, 248, 252, 14, 230, 247, 247, 247, 231,224, 231, 97, 112, 
63, 31, 7, 247, 247, 231, 198, 14, 252, 248, 224 
3050 БАТА 127, 127, 127, 127, 127, 127, 127, 127, 254, 254, 254, 254, 254, 254, 254, 254, .5 


2561 РОН М= 


№) 
Фа 
— 
(<>) 
О НГ 


(9%) 

(<>) 

(>) 

Ф 
эго з® 


Программа русифицирована по методике, описанной выше. Автостарт программы - 
со строки 2, где происходит загрузка символьного набора. В строке 3 происходит включение 
символьного набора, а в строке 4 - формирование банка символов УОС-графики при 
помощи подпрограммы 3000. Формируются только символы "А" -"Р", так как только они 
применяются в программе. После этого происходит старт программы с начальной строки. 
Так Вы будете запускать программу при остановке во время отладки: командой ВИМ. 


Фактическое начало выполнения программы - строка 10. Здесь происходит 
принудительное включение регистра САР$ ГОСК для того, чтобы упростить процедуру 
опроса нажатых клавишей при помощи 1МКЕУ!$. Например, чтобы проверить нажатие 
клавиши "А", обычно применяется конструкция: 

ТЕ Т\КЕУ$="а” ОВ ТМКЕУ$=”А” 

Включив САР$ 1ОСК, можно исключить первую половину этого выражения, так как 
невозможно будет нажатие "а". 

В строке 15 обнуляется счетчик суммарного выигрыша на протяжении нескольких игр, 
проведенных подряд. Далее задается изображение верхней и нижней половины монеты при 
помощи символов УОС-графики. В строке 25 выполняются действия, связанные с 
прорисовкой титульной страницы игры при помощи подпрограммы 2500. В строке 2500 
фактически выполняется очистка экрана, но, в отличие от СЕ$, это происходит плавно, для 
более приятного зрительного эффекта. Строки 2520 - 2538 воспроизводят название игры, 
причем это делается довольно оригинальный способом. 

Строки 2540 - 2555  прорисовывают монетоприемники, а строки 2560 -2565 
заполняют их монетами. 

В строке 2570 начинаются действия, связанные с выводом на экран инструкции игры. 
Для этого надо нажать "\". Если это зафиксировано, то подпрограмма переходит на строки 
2600 - 2670 для вывода краткой инструкции по игре. Если нет, то подпрограмма 
завершается и выполняется возврат на продолжение выполнения программы со строки 30. 

Строки 30 - 95 обеспечивают прорисовку игрового поля. 35 -голубые полосы слева и 
справа экрана. 40 - 65 - штыри для изменения направления падения монеты. 75 - 90 - 
монетоприемники. 95 -направляющая для движения монеты. 

В строке 100 обнуляются счетчики выигрыша и проигрыша, затем происходит переход 
на строку 1000. Здесь монетоприемники заполняются монетами случайным образом. Ну не 
совсем случайным, все-таки имеются некоторые ограничения. В крайних монетоприемниках 
задается не более двух монет, а в третьем и пятом их количество может достигать четырех. 
Количество монет в монетоприемниках 1-6 определяется соответственно переменными А-РЕ. 
Так как в 4-м монетоприемнике не может быть монет по условиям игры, то переменная О не 
задается. 

Строка 1055 задает Ваш "начальный капитал". Далее выводится предписывающая 
надпись и автомат ждет, когда Вы опустите монету в автомат. Если Вы это сделаете 
(нажатием "А"), то программа переходит на строку 1100. 

В строках с 1100 происходит движение монеты по направляющей, проходящей внутри 
автомата. Теперь Вы должны в нужный момент сбросить ее вниз, нажав "7". Если Вы не 
сделаете это вовремя, пока она не докатится до конца направляющей, то Вы ее просто 
потеряете. При нажатии "7" программа переходит на строку 1200. Это начало падения 
монеты. Дистанция по вертикали, которую монета прошла от верхней направляющей, 
обозначена переменной М. При достижении М=2, строки с 1300 обеспечивают "закрывание 
щели", через которую монета провалилась в автомат. Далее программа переходит на строку 
135. 


В строках 151 и 152 происходит проверка нажатия клавишей "О" или "Р", при помощи 
которых можно подтолкнуть монету. Обратите внимание на условия, при которых возможно 
подталкивание монеты. Это, прежде всего, флажок, запоминающий факт подталкивания - 1. 
Монету можно подтолкнуть только один раз. Кроме того, это дистанция, на которой монета 
находится от верхней направляющей. Если монета упала слишком глубоко (М больше или 
равно 4), то подтолкнуть монету уже не удастся. Факт подталкивания монеты 
сопровождается коротким звуковым сигналом. Строка 160 обеспечивает прорисовку 
монеты на новом месте. Строка 166 определяет скорость падения монеты. 

При падении монеты, когда она достигнет уровня монетоприемников (что 
определяется по величине дистанции М), программа переходит на строку 500. В этих 
строках вычисляется, сколько же монет стало в том монетоприемнике, куда упала монета. 
Если там к этому времени уже находилось 4 монеты, то программа переводит на строку 600. 
Если монета упала в четвертый монетоприемник, то она пропадает (строка 565). Если это 


была последняя монета, то переход на финал игры, строку 2000 (определяется в строке 
568). Строка 570 обеспечивает продолжение игры. 

Если в монетоприемнике оказалось 5 монет, то программа продолжается со строки 
600. Здесь Вам достаются все выигранные 5 монет, а монетоприемник освобождается. В 
строках 620-625 обнуляются счетчики монет в соответствующем монетоприемнике. Со 
строки 630 все действия повторяются. 

Финальная часть программы - это строки с 2000. Здесь производится рассчет 
результата игры - разницы между израсходованными и выигранными монетами, рассчет 
суммарного результата по итогам нескольких игр и вывод всех этих данных на экран. В 
строке 2060 Вам предлагается продолжить игру. В том случае, если Вы согласитесь, нажав 
"\", игра будет продолжена. 

Начиная набивать программу, наберите строки 1-3. Потом сделайте РИМ 2 и загрузите 
заготовленный русско-латинский символьный набор. После его включения продолжайте 
набивать программу. Имена переменных набирайте в режиме САР$З 1ОСК. Обратите 
внимание, что символы “А” - "О" в строке 20 набираются при помощи графического 
регистра. То же относится и к символам "Е" - "ЕР" в строках 80, 85 и 2545, 2550. 
Периодически выполняйте ВИМ 5 для записи результатов работы на магнитофон. 


Компьютерная новелла 


Матвеев Ю. А. 


ОТВЕТНЫЙ УДАР КРАКСА 
(по игре Колина Свинбурна "Джо Блэйд-2"). 


Было около полудня, когда в квартире Джо Блэйда резко зазвонил телефон. Разгоняя 
остатки сна, Джо успел пару раз перевернуться с боку на бок прежде, чем дотянулся 
затекшей рукой до холодной трубки телефона. 

- Говорите, - прохрипел он сонно. 

- Все спишь? - после небольшой паузы спросил грубый незнакомый голос. 

- Нет... По телефону разговариваю. - Джо почесал щеку и подумал о том, что 
побриться сегодня не помешало бы. - А кто это? 

На другом конце провода послышался смех. Джо уже хотел швырнуть трубку, как 
вдруг услышал фразу, которая окончательно привела его в чувство: 

- Смотри, ато смерть проспишь, щенок... 

Незнакомец отключился. Джо положил трубку, потянулся и сел на кровати. 

Так с ним никто еще не шутил. Джо понял, что дело серьезное и, прежде чем 
переходить к активным действиям, решил принять душ и хорошенько все обдумать. 

Еще вчера вечером звонили из мэрии и просили подъехать на прием завтра к часу 
дня. Джо хотел, чтобы его соединили с мэром напрямую, но секретарь отказал. Там шло 
совещание. 

С тех пор, как Джо взорвал тюрьму Кракса, мэр практически исчез из поля зрения. Он 
видел его лишь один раз на церемонии награждения. Мэр приколол на грудь Джо Блэйда 
медаль Почета, пожал руку и, как-то вяло поблагодарив, стал поспешно зачитывать 
фамилии сотрудников безопасности, получивших благодарность. 

Церемония проходила в узком кругу доверенных лиц и прессой не освещалась. 
Отчасти поведение мэра объяснялось тем, что Краксу удалось тогда выкрутиться и 
отделаться легким испугом. Он не потерял места в городской Думе, а также остался 
президентом военно-промышленной компании. Его влияние в городе, старые связи с 
ушедшими в отставку после той истории, по-прежнему позволяли сохранять в своих руках 
основные рычаги власти. 

Но Кракс стал осторожнее, он на время ушел в тень, стал реже мелькать на 
телеэкранах и страницах газет. Было очевидно, что рано иди поздно мэру придется туго, ибо 
Кракс никогда не забывал обид. И вчера подготовка к ответному удару, видимо была 
закончена. Иначе зачем мэру опять потребовался Джо Блэйд? Чем он мог помочь? 

Приняв душ и перекусив на скорую руку, Джо подошел к телефону и набрал номер 
приемной мэрии. Пока в трубке шли длинные гудки, Джо прикурил сигарету. 


- Вас слушают. 

- Здравствуйте. Говорит Джо Блэйд. Соедините меня с мэром. 

- Это невозможно. Идет совещание. 

- Послушайте, я сегодня... В трубке что-то щелкнуло и Джо услышал голос мэра: 

- Это ты? Боюсь, что мы опоздали. 

- В чем дело? - Джо выдохнул густое облако дыма. 

- В городе беспорядки. Толпа каких-то молодчиков шатается по улицам, крушит 
витрины магазинов, терроризируют население... Полиция бездействует. 

- Почему? - спросил Джо, догадываясь, что главный виновник происходящего уже обо 
всем позаботился. 

- Силы моих людей небезграничны, а остальные не в моем подчинении... 

Джо заметил, что мэр перешел на шепот и старается не называть имен. 

- Он рядом? 

- В зале заседаний. Там все слышно. Я вышел позвонить, а тут ты... - Мэр тяжело 
вздохнул. 

- Что же вы теперь решаете? 

- Они предлагают ввести чрезвычайное положение, чтобы навести порядок. 

- Я так и думал. Но вы, конечно, не соглашаетесь? 

- Голосов поровну и пока ничья. А ничья в мою пользу. Теперь они требуют собрать 
расширенное заседание Думы и я не ручаюсь за исход битвы. Им будет достаточно 
перевеса в один голос и тогда он станет командантом города на время действия 
чрезвычайного положения. 

- Сколько еще придет горожан на расширенное заседание? 

- Шестнадцать человек. 

- И какое у них настроение? 

- Ни за что не ручаюсь. Я доверяю им, конечно, но где гарантия, что Кракс не подкупил 
иих. 

Джо Блэйд посмотрел на часы. 

- Когда начнется заседание? 

- Через час... - обреченно ответил мэр. 

Джо Блэйд задумался. Что можно сделать в этой ситуации? Выловить заседателей 
где-нибудь на подходе к мэрии и объяснить обстановку? Они сочтут это за прямое давление 
и, чего доброго, согласятся с Краксом. Разогнать всю толпу хулиганов? Одному это вряд ли 
по силам. Для того, чтобы хоть что-то сделать, нужно знать намерения Кракса Бладфингера 
в отношении этих шестнадцати горожан. Они, конечно, "людишки" для него, но их голоса 
сейчас стоят очень дорого. 

Мысли Джо прервал тихий голос мэра: 

- Я видел краем глаза на столе Кракса пакет уже готовых документов и распоряжений. 
Среди прочих, там есть приказ о твоем аресте... 

Эти слова мэра Джо оценил как руководство к действию, 

- Понятно, - сухо ответил он. - До свидания. 

- Что собираешься делать? - спросил мэр, но ответа не дождался: Джо бросил трубку. 

Еще с минуту он собирался с мыслями, потом подошел к окну. Джо жил в стареньком 
трехэтажном домике на втором этаже. Окна его квартиры выходили на узкую серую улочку. 
Обычно многолюдная, улица сегодня была абсолютно пустынной. Только в самой ее конце у 
витрины галантерейного магазина наблюдалось какое-то движение. 

Джо быстро оделся и заглянул в шкаф, где на верхней полке среди прочих вещей 
поблескивал хромом распылитель. Решив, что с оружием он привлечет к себе лишнее 
внимание, джо не стал брать его с собой. Спустя минуту он уже стоял под окнами своего 
дома. 

С другого конца улицы доносились крики и хохот. Потом Джо услышал звон разбитого 
стекла и чью-то брань. 

Человек пять или шесть шли прямо к нему, разбивая витрины магазинов и кидая в 
окна домов камни. Им, видимо, было очень весело и свободно на этих пустынных улицах, где 


они чувствовали себя хозяевами. Все как один были пьяны. 

Джо двинулся им навстречу. Его, казалось, не замечали. 

Какой-то панк, высоко подпрыгнув, попытался разбить уличный фонарь, но не достал, 
а пролетев вперед пару метров чуть не столкнулся с Джо. 

Окинув его стеклянным взглядом, и видимо приняв за своего, панк пошел дальше. 

"Это хорошо", - подумал Джо и буквально нокаутировал ударом ноги в челюсть 
подошедшего к нему наркомана. 

Никто на действия Джо не прореагировал. Вся группа прошла мимо, пребывая в 
каком-то экстазе разрушения. 

"Без наркотиков здесь не обошлось", - подумал Блэйд, глядя им вслед. 

Развернувшись, он быстро пошел по пустынной улице в сторону центра города, где 
заходилось здание мэрии. Джо надеялся перехватить заседателей на подходе. 

По пути он встретил еще одного панка, видимо отбившегося от той шумной группы. 
Ударом ноги в прыжке, Джо надолго успокоил наркомана. 

Неожиданно он заметил у стены дома на тротуаре небольшой круглый предмет с 
циферблатом на лицевой стороне, очень похожий на будильник. Прибор вел обратный 
отсчет времени, все это было до боли знакомо. Джо покопался в собственной памяти. Ну 
конечно! Это был военный таймер-универсал, имевший свою передающую антенну и 
способный задействовать любой электронный прибор на расстоянии. Может применяться в 
самых различных целях. 

Как оказалась эта штука на улице? Какой механизм она должна привести в действие 
через девять минут, если верить ее показаниям? 

Джо не нашел ответа на эти вопросы. У него возникло желание вдребезги разбить 
таймер, но, подумав, он нажал кнопку на задней стенке прибора, установив тем самым 
счетчик времени на первоначальное значение. Что бы ни должно было произойти, Джо 
оттянул время еще на десять минут. Этот отрезок времени был задан программой таймера. 

Без сомнения, Кракс затеял опасную игру и теперь во что бы то ни стало нужно было 
помешать ему достичь своей цели. 

Джо подошел к двери подъезда и толкнул ее. Он рассчитывал выйти с черного хода на 
другую улицу, чтобы не обходить кругом целый квартал. Однако, дверь была заперта. 
Жители города в панике закрылись в своих домах в надежде спастись от буйных панков. 
Никто не знал, что это может помешать Джо осуществить его замысел. 

Впрочем, у Джо Блэйда всегда имелось в запасе штук двадцать всякого рода отмычек. 
Одной из них он и воспользовался. 

Джо вышел на соседнюю улицу. Здесь так же бесчинствовали панки, алкоголики и 
наркоманы. Нескольких, самых буйных, Джо завалил своим коронным приемом. Во 
всеобщей неразберихе никто ни на что не обращал внимания. 

Пройдя вперед несколько метров, Джо заметил какого-то гражданина почтенного 
возраста в сером плаще и черной шляпе. Он явно куда-то торопился, однако ему все время 
приходилось прижиматься к краю тротуара, чтобы пропустить пробегающих мимо 
молодчиков. Джо подошел, к нему сзади и тихо, чтобы не испугать человека, окликнул: 

- Здравствуйте, я от мэра. 

Человек в плаще вздрогнул и обернулся. Это был один из членов городской Думы. 
Джо знал его в лицо. Такие люди часто появляются на экране телевизора и спутать их с кем- 
нибудь невозможно. 

- Ваш мэр, - нахмурив брови ответил старичок. - Просто полный идиот... Я не хочу с 
вами разговаривать. 

- Постойте, - Джо схватил его за руку. - Вы же всегда были за мэра, что случилось? 

- А сейчас против, и дай Бог Краксу сил и здоровья! 

Джо еле сдержал себя, чтобы не съездить уважаемому члену городской Думы по 
физиономии, но он заставил себя быть вежливым и лишь сурово посмотрел на собеседника. 

- Да! Я буду голосовать за Кракса Бладфингера! - завизжал старик. - Только он может 
навести порядок в этом городе. Все! Разговор окончен! 

Джо нехотя отпустил руку. В чем дело? Откуда такая ненависть? Неожиданно в голову 


пришла сумасшедшая мысль. Перед глазами у Джо проплыл таймер, найденный на улице и 
картина стала резко проясняться. 

- Минуточку. - Джо быстро заломил руку заседателя за спину и, пока тот 
сопротивлялся и пыхтел, в темпе проверил его карманы. И он не ошибся. В левом кармане 
плаща лежал небольшой, со спичечный коробок, предмет. В одно мгновение он оказался в 
руке у Джо. 

Его подозрения оправдались. Кракс Бладфингер занялся электронным гипнозом, 
чтобы заполучить голоса членов Думы. 

Отмахиваясь от озверевшего старичка, как от назойливой мухи, Джо нажал кнопку 
"ВЫКЛ.", но опять столкнулся с любимой идеей Кракса - секретным кодом. Кракс защищал 
себя как мог - он предвидел, что кто-нибудь может обнаружить гипнотизатор и тогда, при 
ошибке ввода кода, гибель нашедшего эту штуковину неизбежна. 

Шестьдесят секунд между жизнью и смертью. Джо торопился, нервничал и это чуть 
его не подвело. Но он сумел взять себя в руки и справился с этой задачей. Приборчик 
замолк. Джо обернулся, старичок, улыбаясь, стоял сзади и хитро подмигивал. 

- Я вас узнал, Джо Блэйд. Мэр должен сегодня победить! 

Потом он приложил палец к губам и, надвинув на глаза шляпу, отправился своей 
дорогой на голосование. 

Джо от радости лихо подпрыгнул и одним ударом свалил в сточную канаву сразу двух 
панков. 

Теперь все прояснилось. Джо не сомневался, что люди Кракса Бладфингера каким-то 
образом сумели подбросить всем шестнадцати заседателям электронные гипнотизаторы 

Кракс хотел полной победы и, вполне вероятно, что даже те, кто был настроен к нему 
лояльно, не избежали этой участи. 

Гипнотизатор сильная штука, и, чтобы не убить человека резким вторжением в его 
мозг, на улицы города, по которым пойдут депутаты, подбросили таймеры, которые 
поддерживали десятиминутный щадящий режим работы гипотизатора. По прошествии 
этого срока процесс становился необратимым и человек уже не смог бы избавиться от 
наваждения. 

Джо мчался по улице, сбивая на своем пути всех хулиганов и наркоманов. Он засек 
время и видел, что оставалось шесть минут до окончательного перехода заседателей Думы 
на сторону Кракса. Шесть минут - если только он не найдет таймер. Как назло двери всех 
переходов между улицами были заперты. Джо стал подозревать и в этом Кракса. Отмычки 
кончались со скоростью света и Джо понял, что такое дело нельзя пускать на самотек. На 
одной из улиц с огромным отвращением он перевернул мусорный бак в надежде найти хотя 
бы кусок проволоки. К сожалению, ничего подобного он не обнаружил. 

Он пересек еще несколько улиц и увидел таймер. Прибор сразу бросился в глаза. Джо 
подбежал и, уже готовый сбросить его на прежнее время, заметил заседателя городской 
Думы. Тот неспеша проходил мимо. 

Сколько всего таймеров подброшено на улицы города? Джо не находил ответа на этот 
вопрос. Может быть по одному на каждого заседателя, а может быть всего два, и поэтому он 
не стал рисковать. Оставив на время таймер, Джо подкрался к заседателю и, не говоря ни 
слова, принялся его обыскивать. Прибор он нашел быстро и ситуация повторилась. Не 
обращая внимания на возмущенные крики горожанина, Джо занимался кодом. Надо 
сказать, что здесь код оказался сложнее и Джо изрядно попотел, прежде чем решил эту 
задачку. 

Очнувшись от чар электронного гипноза, заседатель любезно раскланялся с Блэйдом 
и заверил его в своей преданности мэру. 

Теперь настало время сбросить таймер и отсрочить развязку еще на десять минут. Но 
Джо не расслаблялся. Все улицы, прилегающие к зданию мэрии, необходимо было 
тщательно контролировать, чтобы не пропустить ни одного заседателя, а свои отмычки Джо 
почти израсходовал. Опрокинув пять мусорных баков, Джо пополнил использованные 
запасы десятью ключами. 

Время шло, но по мере того, как Джо встречал все новых и новых членов городской 


Думы, его действия приобретали почти автоматический характер: внезапное нападение, 
гипнотизатор, установка кода, вежливое прощание... 

Позже, вспоминая эти сумасшедшие минуты, он улыбался своей мысли о том, что со 
стороны его поведение могло показаться странным. Это он был загипнотизирован, ибо 
действовал как робот... 

Джо Блэйд вздохнул свободно только тогда, когда шестнадцатый человек ушел на 
голосование, глядя на мир не через пленку, накинутую Краксом Бладфингерон, а своими 
глазами. 

* * * 

Из протокола №29 экстренного заседания Думы в расширенном составе: 

а считать нецелесообразным введение чрезвычайного положения. С учетом 
принятого решения по этому вопросу, передать все полномочия на время, необходимое для 
наведения порядка, мэру города..." 


ТНЕ ОАВК \/НЕЕЁ 


Станция "Кориолис" представляет собой огромный мир, воздвигнутый на шести 
панелях и заполняющий образованное таким образом обширное замкнутое пространство. 
На противоположных панелях расположены два крупнейших центра - Саут Сити и Норт Сити. 
Огни, сверкающие в ночи над головой жителя Саут Сити - это ничто иное, как ярко 
освещенные дома и улицы противоположного города. 

Алекс отметился в регистрационном пункте своего причала и взял воздушное такси. 
Юркий автоматический корабль аккуратно скользнул между громадами прибывающих и 
отходящих кораблей. В восторженном настроении Алекс наблюдал, как из серой дымки над 
ним проступали массивы городских строений Саут Сити. Слева от него очень хорошо 
просматривались улицы и парки другого конгломерата, известного под названием 
Коммандер Сити. Этот город располагался как раз напротив входа на станцию и 
традиционно там проживали высокопоставленные чины администрации станции, а также 
послы и представители других планетных систем. Условия их проживания были особо 
комфортными. Этот город имел специально сконструированный ландшафт с озерами, 
реками и парками. Здесь были даже склоны для катания на горных лыжах, покрытые 
настоящим снегом. 

"Немезида" под ним превратилась сначала в бесформенную темную колючку, а потом 
и совсем исчезла из виду, растворившись на фоне посадочной платформы, а над ним, 
словно гигантские сталактиты, нависли городские массивы Саут Сити. 

Кораблик развернулся и после мгновенной потери ориентации все опять стало на 
свое место. Дома оказались внизу, а "Немезида" стала едва заметной точкой в темном небе. 
Такси мягко спустилось на уровень городских улиц между двумя монолитными 
сооружениями. Вокруг сверкали разноцветные огни и казалось, что тонкий слой атмосферы, 
покрывавшей город, сам туманно мерцал вместе с этими огнями. 

Улицы ночного города были запружены толпами народа и Алекс быстро понял, что на 
этой станции Саут Сити был своеобразным злачным местом. Здесь, по-видимому, 
процветала торговля всевозможным запрещенным товаром - рабами, роботами, 
наркотиками, сенсостимуляторами и замороженными органами. Инопланетники медленно и 
осторожно продвигались по улицам: многие из них были одеты почти в полный космический 
костюм, что само по себе указывало на небезопасность окружения. Здесь и там 
громоздились рекламные объявления, обещавшие все мыслимые и не мыслимые, в 
большинстве своем запрещенные удовольствия. Высоко в небе, среди рекламных кораблей 
парили несколько полицейских катеров. Улицы города были заполнены толпами, суетой и 
грязью. 

Темный куб Комплекса Магеллана расположился среди этого хаоса, как огромный 
монстр. Никаких окон снаружи не просматривалось. Здесь и там по стенам скользили 
наружные лифты. При виде их медленно перемещавшихся зеленых огоньков казалось, что 
это сооружение - живое. 

Алекс прибыл сюда без оружия и уже начал об этом жалеть. Практически все, кого он 
видел, были вооружены, несмотря на то, что ношение оружия в пределах орбитальных 
станций было запрещено. Он аккуратно пробирался сквозь толпу рептилиоилдов, 
амфибиоидов, вооруженных инсектоидов, гротескных робо-танков, похожих то на 
гигантских моллюсков, то на червей. 

Он вошел в здание и здесь ему остро ударил в нос отвратительный запах, 
объединивший в себе выделения тысяч различных живых форм. Бывают, правда, случаи, 
когда существа, питающиеся жидким метаном, потеют эфирами с запахом сирени, но увы 
так бывает далеко не всегда. 

Частный торговый центр представлял собой огромный зал, вокруг которого 
расположились конторы и склады. В этом зале, запруженном толпой, продавались как 
правило такие товары, которые выставить на открытом рынке было бы слишком рискованно 


или вследствие своей изощренной специфики они все равно не нашли бы там покупателя. 
Во всяком случае, торговые корабли, загружавшие свой товар здесь, немедленно 
регистрировались официальными службами и более жесткий таможенный мониторинг 
экспортной службы перед отлетом им был обеспечен. Более того, многим из них был 
уготован гораздо более плотный контакт со спецслужбами в порту назначения, чем им 
хотелось бы. 

Алекс внимательно пригляделся к стенам в поисках вывески складов Мак Греви. 
Наконец, он отыскал ее и направился ко входу, когда путь ему преградили два высоких и 
довольно решительно выглядевших инсектоида. Их тела были покрыты светло серым 
панцирем, а фасеточные глаза немигая следили за Алексом. Они о чем-то совещались, 
пощелкивая и потрескивая в своеобразной манере общения. Алекс шагнул в сторону, 
сердце бешено забилось и кровь хлынула к голове - "... Фасеточные глаза, шарнирные 
конечности, антенны на голове, двухрядные челюсти... - Таргоиды! - эта мысль мгновенно 
родилась в его голове. - Таргоиды, здесь на космической станции?!". 

Таргоиды были смертельно опасны. У пилотов их кораблей удалялись железы, 
вырабатывающие вещества, которые вызывают чувство страха. Это совершенно 
бесстрашные и безжалостные противники. Абсолютно негуманоидные, они были самыми 
злобными и непримиримыми врагами людей в известном космосе. Награда за уничтожение 
таргоида была огромной, но еще выше объявленная премия тому, кто доставит в 
исследовательский центр образцы форм детенышей таргоидов - тарглетов. 

Но что могут делать таргоиды здесь, на космической станции? Оба чудовища 
продолжали беседу, холодно рассматривая Алекса. Алекс обратил внимание на придатки 
пластины, закрывающей грудную клетку, за которой таргоиды хранят свои ручные лазерные 
пистолеты. 

- Назад, - зашептал голос ему на ухо и Алекс обернулся. Мак Греви стоял рядом. 
Только сейчас Алекс узнал о его невысоком росте - он едва доставал ему по грудь. 

- Таргоиды... - прошептал Алекс. 

- Ерунда, сказал Мак Греви и потянул Алекса в сторону. - Это оресрианцы и 
единственная их опасность - в том, что они очень похожи на таргоидов и их часто путают 
точно так же, как спутал их и ты. А таргоиды, кстати, их злейшие враги. В следующий раз 
обращай внимание на пластину, закрывающую грудную клетку и на форму четвертого 
сустава задней ноги, прежде чем делать поспешные выводы. 

Алекс с облегчением последовал за Мак Греви, прочь от продолжавших шептаться 
странных существ. 

Склад Мак Греви был небольшим, до предела загроможденным и очень вонючим. 
Алекс прошел в тускло освещенный коридор и почувствовал явный дискомфорт, когда Мак 
Греви закрыл входную дверь. В нескольких больших и прозрачных клетках шевелились и 
урчали странные создания, обеспокоенные неожиданным вторжением. 

Это то, что ты хотел мне предложить? - низким голосом промолвил Алекс. Мак Греви 
кашлянул. Он подошел к одной из клеток и включил свет, более ярко высветивший то, что 
находилось внутри. 

Алекс застыл. Создание выглядело явно знакомым, но память отказывалась служить. 
У животного был плотный панцирь, аккуратно разделенный на ячейки. Из образованного 
панцирем костяного домика через регулярно расположенные отверстия высовывались 
конечности. Втянув конечности, существо оказалось полностью под защитой своей 
оболочки. 

- Кто это? 

- Мимурты,- ответил Мак Греви. - Если тебе они кажутся знакомыми, так это потому, 
что они выглядят точно так же, как и животные Древней Земли. Кажется, тех называли 
черепахами или что-то в этом роде. У этих две головы, четыре ноги и еще две каких-то 
внешних органеллы, которые неизвестно для чего нужны. Их называют по имени той 
планеты, откуда они родом - Мимурт. Твоя задача - перевезти их на Сираг. У сирагианцев 
особое отношение к мимуртам. 

- Они их едят? - догадался Алекс. 


- Они им молятся, - движением губ поправил его догадку Мак Греви. 

- Молятся? 

Мак Греви кивнул. - Для жителей Сирага мимурты - это нечто вроде живого 
воплощения их богов. Слышал когда нибудь о реинкарнации? Ну так вот, есть у них такой 
особый бог Аватар, который возрождается в облике мимурта. Так что мимурты - это живые 
формы их бога. Мимурты очень похожи на древние представления легенд и мифов Сирага 
об их боге. Конечно же, мимурты родом с другой планеты и никакого отношения ни к Сирагу, 
ни к их богам не имеют, но любая сирагская семья отдаст маленькое состояние, чтобы 
иметь себе мимурта в домашнем храме. 

Алекс почувствовал интерес, а успокоенные создания опять начали шевелиться. Из 
отверстия в корпусе появились и задвигались розоватые конечности. Животные поползли 
по слякоти, заполнявшей клетку. 

- А "маленькое состояние", это сколько? 

- Каждый из них потянет на сотню кредов, может чуть больше. Здесь их двадцать 
восемь штук. Двадцать восемь сотен, этого тебе хватит на на любые защитные экраны и 
лазеры. 

- А почему ты не хочешь доставить их сам? 

- С моим-то криминальным списком? Нет уж, благодарю покорно, но я не желаю 
выходить в космос. У меня теперь другой бизнес. Обычно у меня уходит год, чтобы собрать 
такую партию, как сейчас, и обычно к этому времени Рейф Зеттер присылает ко мне 
торговца, нуждающегося вроде тебя в быстром зарабатке для какого-то дела. 

Алекс поймал себя на том, что спокойно и без прежнего отвращения смотрел прямо в 
изуродованное лицо. Он больше не обращал внимания на пульсацию чужеродной жизни под 
тонкой кожей человека. Он чувствовал, что должен верить этому знакомому Рейфа, ему 
даже хотелось верить и все-таки он не мог. 

- Сделай мне такое предложение, чтобы я не смог отказаться, - продолжил Мак Греви. 
И Алекс с огорчением вернулся к обыденной прозе жизни. 

- Три сотни, - сказал он. 

Мак Греви прокашлялся и покачал головой. 

- Нет, парень, ты не понял. Идея вовсе не в том, чтоб обобрать тебя. Наоборот, именно 
ты должен иметь с этого дела основной доход. Откуда ты его возьмешь, если будешь давать 
мне за голову в три раза больше, чем получишь сам? 

- Я имел в виду... три сотни за всех. 

На секунду Мак Греви застыл, уставясь на молодого человека 

- Это что, шутка? 

- Нет, не шутка. У меня всего лишь триста кредов. я не тот человек, который вам 
нужен, мистер Мак Греви. 

- Даты же только что продал груз шанаскилского меха? 

- Да, и купил вооружение и оборудование. К тому же, закупал я эти меха с потерей, в 
общем, я вам говорю, что я не торговец, а боец. - Алекс еще раз взглянул на мимуртов и 
произнес - Я беру восемь штук. Договорились? 

- Я продаю все или ничего и мне нужно за них пятнадцать сотен. Рейф Зеттер говорил, 
что... 

- Значит, он был неправ. Поищи себе другого сопляка. 

Алекс развернулся, собираясь уходить и со злорадным удовольствием услыаал нотки 
паники в голосе Мак Греви. 

- Я берег их для Рейфа. Где я найду еще кого-то, кто будет торговать мимуртами? 

- За три сотни я возьму десять штук. Чем больше ты будешь думать, тем меньше я 
дам. 

Торговля начинала нравиться Алексу. 

- Ноя должен отправить на Сираг именно всю партию. 

- Интересно, где этот Сираг, - подумал Алекс. Это название не вызывало в его голове 
никаких ассоциаций. 

- Тогда тебе придется доверить мне так же, как ты доверял Рейфу. Я даю триста 


кредов авансом и потом еще треть того, что получу за них на Сираге. Расплачусь, когда 
вернусь. 

Мак Греви молча разглядывал юношу. - Треть вряд ли покроет мои расходы. 
Пятьдесят процентов. 

- Сорок процентов, - сказал Алекс. - Это последнее предложение. 

Мимурты опять сосредоточенно завозились в клетках. Мак Греви огорченно пожал 
плечами и кивнул. Он тут же вызвал по видеоканалам двух свидетелей и в их присутствии 
контракт был подписан. 

Дело обещало быть выгодным для Алекса, если религиозные фанатики этого Сирага 
раскупят всех мимуртов. Но где же этот Сираг, черт побери?.. Да, теперь "Немезида" будет 
вооружена лучшими лазерами, снабжена дополнительными энергетическими отсеками и 
энергетической бомбой. Вот когда начнется настоящая охота! 

Алекс вернулся на корабль с докладом о результатах торговли. 


ГЛАВА 7. 


Теперь они были на нуле. И, надо сказать, сами играючи залезли в такую петлю. 
Оставалось только найти Сираг и двигать к нему. Алекс проверил официальный планетный 
регистр, но Сираг там не значился. Так вот почему название казалось ему незнакомым! 
Вообще-то невключение в официальный регистр еще ничего не значило. Туда включались 
только обитаемые планеты. Существовали миллионы планет, интересные только для 
шахтеров, охотников и добытчиков руд, которые упоминались только в галактическом 
справочнике. Но ведь Сираг совсем иное дело, это планета с разумной жизнью! 

Это означало только одно. Значит, Сираг был независимым миром и не признал 
Федерацию. Стало быть, это было очень опасное и, может быть, даже смертельно опасное 
место для посещения. Скорее всего, это рай для пиратов, преступников и прочих бандитов 
всех мастей. По-видимому, это система, в которой сперва стреляют, а потом 
разговаривают. 

- Мы, кажется рехнулись... - сказала Элиссия. 

Алекс не возражал. - Слушай, а может быть Сираг - это и есть Ракксла? Может быть, 
его имел в виду мой отец перед смертью? 

- Не может быть. Сираг - это Сираг, а Ракксла, если она вообще существует, 
находится где-то в другой галактике. Ты ведь знаешь легенды. Судя по всему, Сираг - это 
чертова дыра. Верни этому парню его мимуртов и давай лучше попробуем толкнуть эти 
окаменелые кости. 

Но Алекс отказался. Он чувствовал, что вокруг него что-то происходит. То, как его 
"направляли" и как им манипулировали, развило в нем непонятную тягу к этому 
предприятию. В конце концов, его ждали впереди немалые деньги и наконец-то появлялась 
возможность закончить вооружение "Немезиды" и начать настоящую охоту, начать жизнь 
мстителя. 

- В общем, пан или пропал? Так? И, как говорит Рейф, если нас ждет неудача, то нас 
не будет, чтобы ее переживать. 

- Мы, наверное, сошли с ума... - опять повторила Элиссия. 

- По крайней мере, будет нам наука, как общаться с незнакомыми людьми. 


Перед ними парил Сираг, пастельно желтая планета с темными пятнами то ли гор, то 
ли пустынь, рисунок которых напомнил Алексу о костях. Девятнадцать световых лет от 
Ксезавра "Немезида" покрыла с двумя дозаправками и сейчас в ее баках оставалось 
горючего на прыжок в два световых года, а ближайшая система находилась вдвое дальше. 

Впрочем, теперь это не имело значения. С новыми топливозаборниками им 
достаточно пройти над солнечной короной и горючего будет достаточно. 

Солнце Сирага было большой желтой звездой, достаточно старой, но еще вполне 
активной. Когда Элиссия, сидевшая у навигационной консоли, развернулась к звезде, два 


мощных протуберанца вспыхнули на ее поверхности и устремились в космос. Эти 
воронкообразные вихри очень красиво смотрелись через поляризованные фильтры 
"Немезиды". 

- Давай немного подзаправимся, - сказала Элиссия и дала полное ускорение, но 
лететь им пришлось не более минуты. 

- Святая Звездная Матерь! - Алекс бросил взгляд на экран сканера, и почувствовал, 
как желудок выворачивается наизнанку. Яркие метки на экране были столь велики, что они 
могли принадлежать либо крейсерам класса "Боа", либо "Анаконде". Четыре ярких точки, 
расположенные в боевом строю и рой сопровождающих истребителей не оставляли 
сомнения о намерениях их экипажей. 

- "Боа", - сказала Элиссия. Ведут себя, как боевые крейсеры. Хорошо хоть они 
медленные. Держись... 

Алекс вцепился в кресло. Хорошо, что он был пристегнут. Вселенная вздрогнула, а 
внутренние органы сделали сальто. Элиссия исполнила лихую петлю и строй истребителей, 
а это были "Мамбы", распался и начал расходиться веером. Это означало погоню. Но 
Элиссия не останавливаясь сделала еще один вираж и обманула преследователей, перейдя 
в лобовую атаку. 

Спокойно и аккуратно она поднырнула под брюхо ведущего корабля. Казалось, что это 
было сделано с удовольствием. Противник открыл огонь с нижней полуплоскости и "Кобра" 
развернулась вокруг оси, приведя к бою бортовые лазеры. Они как раз пролетали под 
брюхом огромного крейсера. 

- Опознавательные знаки незнакомы, - сказал Алекс. Это были черно-зеленые флаги с 
изображением ярком солнечной вспышки и неземными иероглифами по бокам. 

- Зато их намерения очень знакомы, - вздохнула Элиссия. К этому временя две 
преследующие "Мамбы" завершили маневр охвата и приближались сзади. Вспышки огня 
лазеров прорезали черное пространство вокруг яркого солнечного диска. Более крупные 
корабли к этому времени уже тоже развернулись и угрожающе приближались. И Алекс и 
элиссия прекрасно понимали, что теперь им не дойти до звезды на дозаправку. 

Элиссия развернула корабль. Во время разворота она нацелила и выпустила первую 
ракету. Ближайший истребитель мгновенно исчез в облаке сверкающей пыли. Несколько 
зарядов, принятых лобовым экраном, заставили их корабль дрогнуть, но два коротких 
нажатия ловкими пальцами на кнопку бортового лазера остановили второй истребитель и он 
закувыркался. Элиссия приблизилась для последнего удара... 

Убит!.. 

Из темноты вышел "Боа". Он медленно вращался и лучи лазера играли у носовой 
надстройки гигантского корабля. Элиссия нацелила еще одну ракету. По ее лицу текли 
крупные капли пота, пальцы побелели от напряжения. Алекс, чувствуя свою бесполезность, 
сидел, напряженно вцепившись в кресло, всем телом повторяя маневры Элиссии. 

"Боа" уничтожил ракету, едва она прошла десятую часть дистанции. Но "Немезида" 
вновь скользнула под брюхо огромного корабля и, развернувшись боком, и уровняв 
скорости, начала разносить чувствительные участки гиганта огнем из бортового лазера. 

Но наконец то, что рано или поздно должно было случиться, произошло. Страшный 
удар в кормовую часть потряс их корабль. "Немезида" задрожала и начала быстрое 
беспорядочное вращение. Алекс выругался, почувствовав, как в тело впились пристяжные 
ремни. Неожиданный удар чуть не оторвал ему голову. С трудом он выпрямился, пытаясь 
разобраться в ситуации. Сзади приближались две "Мамбы", а неподалеку парила гигантская 
"Анаконда", готовая их поглотить. 

- Мы еще посмотрим кто кого, - громко сказал Алекс и обернулся к Элиссии, 
недоумевая почему она не маневрирует. 

Она обмякла в своем кресле. С головы и носа текла кровь. Она, во-видимому, была 
слабо пристегнута, когда удар потряс "Кобру" и разбила голову о приборную консоль. 

Рывком Алекс покинул кресло второго пилота, освободил Элиссию и буквально 
бросил ее на пол. Сейчас было не до вежливости. Он круто изогнул траекторию корабля и 
всадил заряд в распахнутый грузовой отсек "Анаконды". Увернувшись от огня лазера, он тут 


же увернулся и от ракеты, сбивать которую уже не было времени. На мнгновение диск 
планеты проскочил перед ним и Алекс развил полную скорость, пытаясь уйти от 
смертельной опасности. 

Во время этой отчаянной попытки оторваться от врагов неприятная мысль поразила 
его. "А где гарантия, что на этой планете станция будет его защищать, если он окажется в ее 
зоне?" Такой гарантии у него не было. Вполне возможно, что и станция будет против него. 
Надо только дать им знать, какой груз он везет. Если они будут знать, что у него на борту 
груз их обожаемых богов, они вышлют корабли и прогонят пиратов. 

Справа неизвестно откуда вынырнула "Мамба". Он развернул "Немезиду`" и встретил 
ее кормовым лазером, сбросил скорость, опять развернул корабль и поразил противника 
огнем с правого борта, Корабль не взорвался, но закувыркался и вышел из строя. 

Ах, если бы он мог бросить груз, выкинуть в космос контейнеры с системой 
жизнеобеспечения мимуртов и, может быть, все прекратилось бы. Они с Элиссией потеряют 
на этом три сотни кредов, ту и что? Они ведь в конце концов еще не "элита". 

Новые залпы потрясли корабль. Это опять "Мамба". Алекс нацелил ракету, но 
запускать ее не стал, открыв огонь бортового лазера. 

В это время Элиссия начала приходить в сознание. Она поднялась на ноги и сквозь 
залитые кровью глаза наблюдала за битвой. Сираг был все ближе и ближе. Маленькая точка 
серебристого света мигнула им навстречу, но не наполнила Алекса радостью. 

- Слушай, в этих контейнерах должно быть не мимурты, - тихо произнесла Элиссия. 

- Позже поговорим, - ответил Алекс, маневрируя и выходя из под огня более крупных 
кораблей противника. 

Элиссия покинула мостик. Спасая их жизни, она направилась в грузовой отсек... 

И вдруг внезапно атака прекратилась. Алекс чуть не подпрыгнул от изумления. Еще 
мгновение назад его кормовые экраны едва сдерживали огонь противника. Его бортовой 
лазер перегрелся от непрерывного огня и вдруг... ничего, тяжелые массы пиратских 
кораблей отошли назад. Две легких "Мамбы", вцепившиеся в их хвост, выпустили по 
последнему отчаянному заряду вдогонку и исчезли, промелькнув в солнечных лучах и 
растаяв в черноте пространства. 

Алекс замедлил ход и проверил степень повреждений. К счастью, ничего серьезного. 
Они лишились двух ракет, низок энергетический уровень, зато груз не поврежден. А раз 
пираты прекратили преследование, значит Сираг будет защищать своих визитеров. 

На мостик вернулась Элиссия, в руках у которой была просвечивающая камера. 

- Слушай, эти животные выглядят как черепахи, ведут себя как черепахи и от них 
воняет как от черепах, но я сделала пару просвечивающих снимков, чтобы посмотреть нет 
ли там еще чего-нибудь. 

- Отличная идея. Давай посмотрим. 

- Сейчас, еще две--три минуты. 

Она поставила камеру, присела в кресло второго пилота и взглянула на Алекса. 

- Ты в порядке? 

Алекс кивнул. 

- Аты? 

- Чувствую себя чертовски разбитой. Мы в безопасной зоне? 

- Вроде да. 

Перед ними неспешно вращалась станция "Кориолис", ярко освещенная солнцем. 
Она отбрасывала пятна серозеленой тени на поверхность своей планеты. Неподалеку 
парили несколько пришвартованных к буям кораблей. Они выглядели достаточно 
безмятежно. На станции вспыхнули огни. Вскоре все вокруг приветливо засверкало. 

Алекс грациозно пролетел сквозь орбитальный город парящих судов и приблизился к 
точке входа. 

Но входа не было!.. 

- Что за черт? 

Он сидел неподвижно. Корабль вращался, уровняв скорость своей ротации со 
станцией, но вместо входа перед ними серел металл. Увеличив разрешение приборов. 


Алекс все-таки сумел различить признаки входного отверстия, но оно было плотно закрыто. 

- Может, они опасаются чужестранцев? - пожала плечами Элиссия. 

- Но нам очень нужно топливо. Ну нельзя же нас опасаться до такой степени. 

Наконец, раздался треск в устройстве громкоговорящей связи: 

- "Назовитесь! Назовитесь! Говорит орбитальная станция планеты Сираг." 

- "Немезида", торговый корабль класса "Кобра", - сообщил Алекс. - Мы несем груз 
мимуртов. Просим открыть шлюз. 

На некоторое время последовала тишина, хотя потрескивание в канале 
свидетельствовало о том, что связь не прервана, и затем: 

- Внимание "Немезида"! Торговля мимуртами на станции запрещена! 

- Что? 

- Избавьтесь от груза перед входом на станцию. Бросьте груз. Вы получите 
компенсацию. 

Алекс взглянул на Элиссию. 

- Что же нам теперь делать? 

- Мне кажется, что все это выглядит как-то непрофессионально. Что-то здесь есть 
фальшивое. 

Она взяла в руки камеру и извлекла оттуда обработанную пленку. Внезапно она 
застыла, уставившись в два готовых отпечатка, как будто не в силах оценить то, что увидела 
и наконец произнесла: 

- Бог мой... - с этими словами она передала отпечатки Алексу. 

В это время начало постепенно открываться приемное отверстие станции. Два ярких 
прожектора проступили из темноты отверстия, как два горящих глаза. 

Алекс вгляделся в отпечатки и на секунду растерялся при виде необычного, 
гротескного зрелища. Просветив тела живых мимуртов, камера выхватила какие-то 
паукообразные формы, живущие внутри этих безобидных черепашек. Зрелище было очень 
неприятным. Суставчатые конечности протянулись в каждую из конечностей мимуртов, 
заполняя все внутренне пространство. На темном теле просматривались фасеточные глаза. 
Два длинных отростка протянулись от него внутрь голов мимурта. 

- Что это? - прошептал Алекс. 

- Это беда. Это детеныши таргоидов. 

Сердце Алекса учащенно забилось. Так это тарглеты?! Значит, он транспортировал 
тарглетов - личиночную стадию самой опасной жизненной формы в известных галактиках. 
Он подставлен? Нет, "подставка" - это слишком мягкое слово для того, что с ним сделали на 
Ксезавре. Чего же теперь удивляться, что пираты накинулись на него столь отчаянно? 

- За тарглетов дают неплохое вознаграждение. Военные охотно принимают их для 
исследовательских целей. 

- Пираты выращивают их и используют в качестве пилотов на своих истребителях. Мы 
привезли на Сираг будущих пилотов пиратских кораблей. Понятно, что они на нас 
накинулись. Им нельзя оставлять свидетелей. 

Алекс уставился на станцию. На какое-то время слова Элиссии пролетели мимо и 
никак не отложились в его голове. Он задумался о пиратах, атаку которых они отбили, он 
думал, что все позади и раз они находятся рядом со станцией, то бояться больше нечего, 
кроме обвинения в торговле запрещенным товаром. Да, он думал, что они в безопасности. 

Два желтых глаза выскользнули из черной утробы станции, а за ними потянулось и 
само темное тело корабля. За ним вспыхнул свет и темная тень незнакомого судна упала на 
"Немезиду". Змеиная тень, тень "Кобры". 

Этот корабль он узнал бы где угодно. Прошли месяцы после встречи с ним, но не было 
ни одной ночи, когда бы мысль о нем не возвращалась к нему в ночных кошмарах. Корабль, 
погубивший "Авалонию" медленно приближался и ни малейшего сомнения Алекс не 
испытывал. Не было сомнений иу Элиссии. 

Она затаила дыхание и подалась вперед всем телом. - Отдай мне его. Пусти меня к 
приборам. 

- Сядь. - холодно ответил Алекс и Элиссия зло на него посмотрела. 


- У меня с ними большие счеты... 

- Пилот этого корабля убил моего отца. 

- Они убили всю мою семью! Мы бежали с Теорга и обратились к ним за помощью, мы 
просили немного припасов. Они захватили меня и сестру в качестве рабов, а корабль моего 
отца расстреляли. Мне удалось бежать, а сестра погибла. Алекс, отдай мне этого ублюдка! 

- Сейчас уже поздно... 

Вспышка полыхнула со стороны "Кобры". "Немезиду" тряхнуло. Алекс нацелил ракету 
и всадил мощный заряд из носового лазера в противника. Желтым цветком рассеялась 
энергия на защитных экранах "Кобры". 

Она ускорила свой ход. Алекс тоже прибавил скорость, но завис над станцией и 
противником. 

"Мы не можем сражаться с ней. У нас пока нет ни достаточого вооружения, ни средств 
защиты. Пока еще нет! Что же делать?" - проносились мысли в его голове. 

На заднем экране Алекс видел контур мрачного убийцы, выплывающего из-за 
орбитальной станции. Вспыхнул сигнал приближавшейся ракеты и Алекс задействовал 
систему ЕСМ на ее подавление. Сделав это, он развернул корабль. Оба корабля прошли 
встречными курсами, разрывая друг друга на части. Два величественных металлических 
галеона, поливающих друг друга огнем. Снова разворот и очередное сближение. 

Дважды они схватывались в такой дуэли. "Немезида" стонала под тяжестью лазерных 
ударов. Энергетические отсеки начали сдавать и вновь сомнения захватили Алекса. Эта 
"Кобра" знает, кто перед ней и не даст ему уйти. Он тоже хочет ее смерти. Но ведь он еще не 
готов! Нет, еще нет! 

Так, несмотря на упреки Элиссии, Алекс развернул корабль и направил его к звезде. 
"Кобра" начала преследование. Оба корабля маневрировали, сплетая в петли траектории 
полета. То тормозясь, то ускоряясь Алекс не упускал ни одной возможности для стрельбы 
кормовым лазером и это немного сдерживало напор пирата. Алекс сбил еще три 
выпущенных противником ракеты. Хотелось думать, что весь запас ракет пирата исчерпан, 
но Алекс не позволял себе расслабиться. Собственная ракета оставалась нацеленной и 
готовой к пуску. Алекс медлял, сознавая, что ее ждет быстрая и бессмысленная кончина. 

Звезда придвинулась. Она сияла в своем огромном великолепии. Температура в 
кабине "Немезиды" начала постепенно повышаться. Сверхестественными чудовищами, 
порожденными расплавленным океаном, всплывали вихрящиеся рукава раскаленной 
плазмы необъятных размеров. К одному из них направил свой корабль Алекс, подготовив 
топливозаборное устройство. 

"Кобра" сделала еще выстрел и вновь заскрежетали силовые экраны. Сражающиеся 
корабли начали погружение в раскаленную преисподнюю... 

- Смотри, оно работает, - сказал Алекс. 

Стрелка датчика горючего поползла вверх, по мере того, как топливозаборное 
устройство всасывало потоки сырой плазмы и конвертировало ее в форму, необходимую 
для работы гиперпространственных двигателей. "Немезида" скользила по краю огненного 
океана. Рукава выбросов солнечной короны достигали миллионов миль в длину и тысяч миль 
в поперечнике. Они свивались в огромные воронки, похожие на водовороты. В центре такой 
воронки образовывается относительно спокойная, более безопасная и менее раскаленная 
область. 

Туда и направил корабль Алекс. Рубка наполнилась сверхестественным сиянием, 
солнце светило непереносимым блеском и температура корабля начала катастрофически 
повышаться. Пламя заиграло на обводах корпуса, застонали силовые экраны. 

- Только не долго, - сказала Элиссия. В конце концов и она начала понимать, что они 
еще не готовы к последней битве с врагом. Сейчас им надо уйти отсюда и побыстрее. До 
ближайшей звезды шесть световых лет, а у них топлива, судя по показаниям датчика - всего 
на четыре, но стрелка продолжала подниматься. 

Выбрав спокойный участок в океане огня, корабль остановился. Где-то в ярком потоке 
слепящей плазмы, окружившей их, продолжал свои поиски смертельный враг. По- 
видимому, здесь они были в безопасности - никакие электронные средства обнаружения не 


могли работать в потоке интенсивной радиации, излучаемой солнечной короной. Враг 
остался без глаз и без ушей. 

- Пять световых лет, заряд нормальный. Приготовься к старту. Курс введен... 

- Готов, - ответил Алекс. Он старался не думать о возможных последствиях такого 
дальнего неконтролируемого гиперпрыжка. В первый момент ему пришла в голову мысль 
попробовать перемещаться малыми скачками, но он решил этого не делать - гиперпривод 
мог не выдержать многократных запусков. 

Алекс развернул корабль и придал ему небольшое вращение, внимательно 
просматривая окружающее пространство в поисках возможной опасности. 

- Пять точка пять световых лет. Еще одна минута. Всего шестьдесят секунд... 

- Всего тридцать секунд... 

Корабль вибрировал всем корпусом. По лицу Алекса сбегали крупные капли пота. 

- Еще двадцать секунд, Алекс и мы полетим. 

Едва различимое пятнышко мигнуло на экране сканера, выдавая присутствие 
пиратской "Кобры" где-то рядом. Она находилась по другую сторону плазменного вихря. 
Занавес сплошного огня разделил их. "Немезида" и убийца стояли друг против друга, 
отделенные стеной солнечного пламени. 

- Мы готовы, - доложила Элиссия. - Вперед, Алекс! Пошел! 

Алекс Райдер отрицательно тряхнул головой. - Нет, пока еще нет... 

- Алекс! 

Он тронул корабль вперед, в направлении огня. Мерцающее, еле различимое 
изображение на экране сканера тоже переместилось. Началоеь сближение. 

Дикий крик вырвался из груди Алекса, когда он дал максимальное ускорение 
кораблю, вложив всю возможную мощь в двигатели. Корабль рванулся вперед навстречу 
стене огня и плазмы. Исчезли все изображения на экранах, единственное, что видел Алекс 
перед собой - это лицо отца и яркую вспышку пламени, в котором погибла "Авалония". 

Горечь, гнев и ненависть - только эти чувства он ощущал в это мгновенье. Он знал, что 
пока у него есть ракета, уже нацеленная на вражескую "Кобру, у него еще остается один 
последний отчаянный шанс. 

Корабли сближались. Теперь их разделяла только тонкая стена плазменного 
водоворота. Плазма играла на корпусе "Немезиды" и силовые поля уже не выдерживали 
напора. Дальше двигаться было нельзя. Глубже - нельзя... опасность!.. И Алекс запустил 
ракету. 

Крошечный снаряд нырнул в солнечное пламя, отыскивая свой путь к цели. Алекс не 
видел ракету на экране, не видела ее и пиратская "Кобра", пока не стало слишком поздно. 

В последний момент "Кобра" включила ЕСМ. За вспышкой света последовала 
детонационная волна и еще через мгновенье ракета превратилась в стремительно 
вращающийся огненный клубок, вобравший в себя инерцию ракеты, силу взрыва и потоки 
раскаленной солнечной плазмы. Развивая скорость и мощь, этот клубок рванулся к 
вражескому кораблю и не было никакой силы защитных экранов, способной остановить этот 
клубок солнечной энергии. Через мгновенье “Кобра” купалась в потоках плазмы, 
захваченная вихрей протуберанца. Алекс не отрывал глаз от экранов и вдруг... все 
кончилось. "Кобра" была уничтожена. Она погибла, сгинула навсегда. 

Медленно развернувшись, "Немезида" легла на обратный курс. Никто на мостике не 
проронил ни слова, но в ярких лучах старевшего светила блестели слезы на двух счастливых 
лицах. 


ГЛАВА 8. 


Галоизображение Рейфа Зеттера дрожало в боевой рубке корабля и гордо светилось. 
За ним на переднем экране просматривался гостеприимный диск планеты Лейа. Остатки 
мимуртов с их драгоценными паразитами к этому времени уже были перегружены на два 
"Эспа" военного флота. Сумма окончательного вознаграждения, правда, еще не была 
согласована, но получалось не меньше, чем по сотне кредов за экземпляр. 

- Я знал, что ты сможешь это сделать, - сказал Рейф, счастливо пережевывая свою 


жвачку и лихо сплевывая ее в сторону. - Я был уверен настолько, что направил тебя на Сираг 
немного раньше, чем ты окончательно подготовился. 

- Но мы могли погибнуть. От этой системы мурашки бегут по коже. 

- Настоящий боец, даже если он "Элита", знает, когда надо отступить и как надо 
отступать. Я горжусь тобой. Ты отступил ... и победил. 

В это время пришло сообщение с "Кориолис-6" из штаб квартиры галактической 
полиции. 

"От имени Галактического Содружества Миров поздравляем Алекса Райдера и 
приносим благодарность за проявленное умение и мужество при уничтожении пиратских 
кораблей. Согласно представленному рапорту, подтвержденному пленкой бортовой 
регистрационной \-системы, присваиваем боевой ранг "Смертельный". Ваш правовой 
статус “В розыске" снимается, новый боевой рейтинг "Смертельный" будет введен в каналы 
Галактической сети в течение стандартного дня. Желаем быть мудрым и сильным в бою." 

Вот так и случилось, что не достигнув и двадцати лет, Алекс оказался всего на шаг от 
боевого класса, о которой большинство людей даже и не мечтают. Он вошел в класс 
"Смертельных". Он уничтожил "Кобру", которая неизвестно за что убила его отца. Почему 
это было сделано, Алекс конечно не знал, а спросить у пилота-убийцы не подумал. Он 
предполагал, что это было просто заказное убийство, за которое бандит получил 
вознаграждение. 

Вместо этого, он спросил Зеттера: - Ты знал, что этот корабль на Сираге? 

- Предполагал. Алекс, вот почему мы послали тебя с грузом тарглетов. Ты знаешь, 
никто, абсолютно никто не в состоянии устоять перед искушением захватить такую добычу. 
Я знал, что ты соберешь всех пиратов в радиусе светового года, но я также знал и то, что ты 
с ними справишься. 

Более того, я был даже уверен, что такая наживка привлечет и эту "Кобру". 

Ты бился отлично. Я вижу в тебе те же инстинкты бойца, которые были и в Джейсоне. И 
он был прав. Ты именно тот человек, который сможет пойти по его стопам. 

- Куда пойти по его стопам? 

Рейф кашлянул и покачал головой. - Знашь, это сложный вопрос. Твой отец искал 
следы мифической Раккслы. Он хотел узнать, существует ли она на самом деле? Если 
легенды не врут, то там должна быть установка, созданная инопланетным разумом, с 
помощью которой открывается проходы в другие Вселенные, ко всем их сокровищам. 

Джейсон Райдер был уверен, что Ракксла реально существует. Вот почему он прошел 
специальную подготовку и был включен в состав лиги Темного Колеса, лиги легендарных 
первопроходцев. На несколько лет он исчез и я не имел никаких сведений ни от него, ни о 
нем до самого последнего времени перед его гибелью. Тогда он рассказал мне, что нашел 
реальные доказательства существования Раккслы. Он вернулся из глубин космоса, чтобы 
сформировать команду. - Рейф горько улыбнулся. - Но перед самым отлетом он взял 
несколько дней для отдыха в спокойном месте вместе с сыном... где его и встретил наемный 
убийца. 

- Но почему? Почему его убили из-за Раккслы? 

- Потому, что на Ракксле уже давно люди. Правда, это только догадка, но судя по тому, 
что они сделали с Джейсоном, она недалека от истины. Мы давно подозревали, что корпус 
"Элиты" создал там базу и широко использует переход в иные Вселенные. Это 
могущественные и решительные люди. У них достаточно средств, чтобы нанять негодяя и 
уничтожить того, кто несет угрозу их превосходству. 

Рейф приблизился чуть вперед, его глаза сияли. 

- Я контролировал твои шаги, Алекс, а также и Элиссии. Темное Колесо нуждается в 
вас. В обоих вас. Но поверь мне, то, через что вы уже прошли - ничто по сравнению с тем, 
что Вас ждет в будущем. Алекс, вы должны стать "Элитой". А это означает многие месяцы, а 
может быть и годы тревировок и сражений, но после этого Вселенная распахнется перед 
Вами так, как Вы не можете себе даже представить. 

Алекс стоял и глядел на старика в молчании и задумчивости. Наполовину скрытая в 
тени, в уголке стояла Элиссия, напуганная тем, что только что услышала. 


- Ну как, твое горе утихло? - спросил Рейф и Алекс кивнул. Старый торговец 
улыбнулся. 

- Скажи, что ты чувствуешь став богатым? 

- Опустошенность. - и Рейф рассмеялся. 

- Да, ты подойдешь для Темного Колеса, это точно! 
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РЕВЮ 
СХ - лв 


Василий Кормилицын,Кт 


"ИНФОРКОМ" 121019, Москва, Г-19, а/я 16 


Вниманию читателей! 
Мы продолжаем публиковать адреса пунктов, в которых можно приобрести наши 
материалы: 


г. Воронеж. Студия компьютерных игр ЗАМ-ЗАМ. Магазин-салон "Электроника". Тел. 14-00-73. 

г. Днепропетровск, ул. Шевченко, 34. Фирма "ЭКОС". 

610014, г. Киров, ул. Производственная, д. 27, "Дом науки и техники". Магазин-салон "МАРС". 

г. Москва, Новый Арбат, д.2, 19-ое отделение связи, 1-ый этаж операционного зала. Ежедневно, 
кроме выходных, с 10 до 17 часов. Перерыв с 14.00 до 15.00. 

г. Нижний Новгород, ул. Горького, 146. Маг. "ФОТОЛЮБИТЕЛЬ". ИМА "Ф-ПЛЮС". Тел. 35-07-18. 


Вниманию дистрибуторов! Адреса наших оптовых покупателей публикуются 
бесплатно. 


СПЕКТРУМ В ШКОЛЕ 


Дорогие друзья! Вам никогда в детстве не приходилось играть в игру "Холодно- 
Горячо"? Это когда один играющий прячет в комнате какой-то предмет, а другой пытается 
его отыскать по сообщениям типа "Холодно!" - "Холодно" - "Теплее" - "Горячо" - 
"АФРИКА!!". 

Вполне серьезная игра для научных работников всех специальностей, имеющих дело 
со сложными алгебраическими уравнениями и с системами таких уравнений. Вы пока 
учитесь в школе, и Вам может быть рано решать проблемы численных методов 
математической физики, но сыграть в такую игру с компьютером Вы вполне можете. 

Давайте вдумаемся, ведь в любом алгебраическом уравнении "спрятан" его корень 
(если он есть). Если вместо неизвестного Х в уравнение подставить этот корень, то 
уравнение обратится в ноль. А если, подставить не корень, а другое число? Тогда оно в ноль 
не обратится, а будет равно какому-то числу “4” и чем больше эта “невязка" а, тем 
"холоднее" Ваш ответ. Вот так играя мы можем решать достаточно сложные уравнения. 

Возьмем простенькое уравнение: 

5х^З - Зх - 70.625 =0 

И попробуем "угадать" его решение. Подставим вместо хединицу. 

= 5*1^3 - 3 - 70.625 = -68.125 

Пока "холодно", подставим х=2. 

Ч = 40 - 6 -70.625 = -36.625 

Это уже "теплее", проверим теперь х=3. 

Ч = 5*27 - 15 - 70.625 = 49.375 

Надо же - опять "холодно", но обратите внимание на то, что наша “невязка" а 
изменила знак. Раньше она была отрицательной, а теперь стала положительной. Это 
говорит о том, что мы проскочили мимо спрятанного корня и ушли не в ту сторону. Надо 
вернуться назад и искать более тщательно, пойдем от числа х=2 более аккуратно. Вместо 
шагов по единице будем шагать по 0.1. 

Проверим х=2.1, х=2.2 и так далее, пока не дойдем до х=2.5. Вот это и будет "АФРИКА" 
- точное решение, при котором "невязка" равна нулю. 


К сожалению, точное решение возможно только для таких простых уравнений, как 
наше. А что делать, если уравнение посложнее? Например 

2х^0.8 - ИМ(Зх) - 1.7=0 

Оно не имеет точного решения, да ведь оно нам и не нужно! Давайте зададим 
величину “Б", которая является предельно допустимой “невязкой", и будем бегать, 
подставляя Х, взад-вперед, уменьшая шаг в десять раз после каждого изменения знака 
"невязки" до тех пор, пока она не окажется меньше ранее заданного числа "Б". 

Как видите, все очень просто. Конечно, с карандашом на бумаге двадцать раз 
вычислять одно и то же выражение занятие не из приятных, ну а для чего нам компьютер? Он 
сам и подставит значение "х" и подсчитает невязку "Аа" и сравнит ее с предельной величиной 
"р" и, если предел не достигнут, изменит х, снова все посчитает, проверит знак "невязки" и 
т.д. Этот прием очень просто алгоритмизируется 


10 ТМРИТ х: РЕМ Начальное значение х Вы должны задать сами. 

20 ТМРИТ 6: ВЕМ Предельное значение “невязки”. Чем оно меньше, тем точнее Ваш расчет, но тем 
больше времени он потребует. 

30 ТМРИТ а: ВЕМ Это начальное значение шага по “х"”. Далее компьютер будет рассчитывать его 
сам. 

40 @0 508 500: ВЕМ Расчет “невязки”. 

50 ТЕ АВЗ а<6 ТНЕМ @0 ТО 800 

60 ТЕТ м=а 

70 ТЕТ х=хча 

80 60 508 500 

90 ТЕ АВЗ а<6 ТНЕМ @0 ТО 800 

100 ТЕ $5С№ а <> 56М№ м ТНЕМ @0 ТО 600 

110 ТЕ АВ а > АВЗ м ТНЕМ 60 ТО 700 

120 @0 ТО 60 


Здесь надо записать Ваше уравнение) 

510 РАТМТ “х= ”;х, "”9= ";а 

520 НЕТОАМ 

600 НЕМ Если мы “проскочили” мимо корня, надо вернуться на шаг назад и уменьшить величину 
шага. 

610 1ЕТ х=х-а 

620 1ЕТ а=а/10 

630 @0 ТО 70 

700 ВЕМ Если “невязка” после шага стала больше, чем была, значит мы пошли не в ту сторону. 
Надо вернуться на шаг назад и изменить знак шага (идти в другую сторону). 

710 ТЕТ х=х-а 


720 ТЕТ а=-а 
730 60 ТО 70 
800 ТОР 


Этим методом ученые пользуются уже не одну сотню лет. Он называется методом 
простой итерации. На его основе разработано еще очень много других полезных методов, 
позволяющих решать очень большие системы самых сложных уравнений. Если Вы 
подумаете, то безусловно найдете пути, как улучшить этот метод. Правда, к сожалению, 
скорее всего может оказаться, что Ваше улучшение уже было кем-то открыто несколько 
десятков лет назад и уже носит чье-то имя. На всякий случай, если что-то изобретете, то 
загляните в какой-нибудь математический справочник в раздел, посвященный численным 
методам. 


Желаем успеха! 
Ваш "ИНФОРКОМ" 


УМСЁЬАВ ГОСО 


(Продолжение. Начало см. на стр. 69 - 74) 


Команды "Черепашки". 
"Черепашка" в ЛОГО имеет небольшую систему собственных команд. Рассмотрим эти 
команды. 


ЕЕМСЕ. 

Обычно, когда "черепашка" доходит до границы экрана, она может продолжать свою 
работу, выходя за него. При этом если она покинула экран справа, то появляется на экране 
слева. Если покинула экран сверху, то появляется, соответственно, снизу. Действует 
эффект автоматического возврата. Это во многих случаях бывает удобным, но не всегда. 
Если Вы хотите, чтобы Ваша "черепашка" останавливалась дойдя до границ экрана и не 
возвращалась, то можете дать команду ЕЕМСЕ. 


ИЛМРОИУ. 

Команда ЕЕМСЕ отключит возврат "черепашки" с противоположной стороны, но не 
позволит ей покинуть пределы экрана. Может быть, Вам нужен вариант, когда она может 
покидать экран в любом направлении без возврата. В этом случае используется команда 
\МММООМ/. Представьте себе, что Ваша “черепашка” ходит по огромному столу, а Вы 
смотрите сверху на этот стол через небольшое "окно" своего экрана размером 255*176. 
Покинув экран, "черепашка" продолжает движение в любом направлении. Она может 
удалиться от центра экрана на расстояние до 32767 шагов. 


И/РАР. 
Этой командой отбивают действие включенных команд ЕЕМСЕ и \ММОО\М/ и 
возвращают "черепашку" к нормальной работе "с возвратом“. 


РЕМОР. 

Обычно в своих перемещениях "черепашка" оставляет вычерчиваемый на бумаге 
след. Это можно устранить, дав команду РЕМУР. Перо поднимается и "черепашка" может 
переместиться в новую точку, не оставляя линию на бумаге. 


РЕМРОИ/М. 

Команда на опускание пера. "Черепашка" опять готова к рисованию. 

Если Вы вспомните, что “черепашка” - это как бы маленький робот-манипулятор, 
установленный на колесной тележке и подключенный к компьютеру, то Вам все станет ясно. 
С помощью электромагнита по командам от компьютера ее пишущий узел (карандаш, 
фломастер, шариковый стержень и т.п.) может подниматься или опускаться. 


РЕМЕВАЗЕ. 

"Черепашка" на нашем экране - воображаемая и потому она может делать немного 
больше разных вещей, чем настоящий робот. Так, например, с помощью команды 
РЕМЕВАЗЕ можно дать задание на стирание всех линий, которые встретятся на ее пути. 


РЕМВЕУЕВФЕ - еще более хитрая команда. Для "черепашки" это указание стирать все 
нарисованные линии на своем пути там, где они есть, а там, где их нет - наоборот рисовать. 


ЗЕТРС - эта команда расшифровывается как ЗЕТ РЕМ СОГОРН - установка цвета пера. 
"Спектрум" работает с восемью цветами: 

0 - черный 

1 - синий 

2 - красный 

3 - пурпурный 

4 - зеленый 

5 - голубой 


6 - желтый 

7 - белый 

Вы можете задать любой из восьми цветов в качестве цвета пера. Например, команда 
ЗЕТРС 6 установит в качестве текущего цвета желтый. Все новые линии будут изображаться 
желтым цветом. Более того, все то, что нарисовано в пределах одного знакоместа рядом с 
нарисованной линией, тоже будет окрашено в желтый цвет. 

Для работы с цветом, ЛОГО имеет еще одну удобную процедуру. Это процедура 
РЕМСОГОВ. С ее помощью можно получить число, которое соответствует номеру 
включенного в данный момент цвета. Таким образом, манипулируя с цветами, Вы можете 
запомнить текущий цвет в какой-либо переменной и потом, когда надо, к нему вернуться: 

МАКЕ “МУСОГОВ РЕМСОГОВ 


ЗЕТРС :МУСОГОВ 
Очень хорошей практикой при работе с цветом является при входе в любую 
процедуру, в которой изменяются цвета, запоминать текущие цвета в переменных, потом 
делать то, что требуется, а перед выходом из процедуры восстанавливать ранее 
запомненные цвета. 


ЗЕТВС - эта команда расшифровывается как ЕТ ВаскСгоипа. Она устанавливает цвет 
фона экрана. Таким образом, она так же эквивалентна команде РАРЕВ БЕЙСИКА, как 
команда ЗЕТРС эквивалентна команде ПМК. 

Процедура ВАСКСВОЧМО аналогична процедуре РЕМСОЁОВ и применяется в тех же 
целях. С ее помощью можно определить текущий включенный в данный момент цвет фона и 
запомнить его в какой-либо переменной. 

МАКЕ “ОЕОСОЕОВ ВАСКОНОЦимр 


ЗЕТВ@ : ОЕОСОЕОВ 


ЗЕТВОВОЕВ 
Эта команда служит для переключения цвета рамки экрана и эквивалентна команде 
БЕЙСИКа ВОВОЕВ. 
В заключение этого раздела мы рассмотрим несколько примеров процедур. Вы 
можете развить эти примеры, дооснастив их манипуляциями с цветом. 


Спирали. 
Без этого примера не обходится ни одна книга по ЛОГО. Не знаем, что уж в нем так 
понравилось авторам книг, наверное дело в том, что здесь используется рекурсия. 
Начнем так же, как мы начинали при рисовании квадрата: 
РОВМААО :5ТУЕ ВТОНТ 90 
Но теперь, чтобы получить эффект спирали, нам надо увеличить размер стороны 
(МЕ) "квадрата" после одного витка и повторить все тоже самое несколько раз. 
ТО ЗОЦАВЕЗРТ :5Т7Е 
РОАВМАВО :5ТУЕ 
АТСНТ 90 
МАКЕ “5Т7Е :517Е+5 
ЗОЦАВЕЗРТ :5Т7Е 
ЕМО 


Рекурсия здесь состоит в том, что в описании процедуры ЗОЧАВЕЗР! есть вызов 
самой этой же процедуры. При этом вызове компьютер обращается к ее описанию и в нем 
"натыкается" опять же на ее вызов и так далее. В данном случае эта спираль могла бы 
рисоваться бесконечно, поскольку никакого разумного выхода из рекуррентной 
последовательности нет. Вам же придется нажать ВВЕАК для того, чтобы прервать работу 
процедуры. 


ЗОЧАРЕЗРТ 18 ЯБЗРТ 38 9 98 


Рис. 1 Рис. 2 


Спирали не обязательно должны быть прямоугольными. Вы можете изменить 
приведенную выше процедуру, задав поворот после каждого шага не на 90 градусов, а на 
столько, на сколько Вам нужно. Может быть, Вам нужно управлять и величиной приращения, 
на которую увеличивается размер спирали после каждого витка. Это могло бы быть 
полезным в тех случаях, когда "черепашка" слишком быстро выходит за пределы экрана. Так 
в итоге мы получим процедуру для рисования спиралей с тремя параметрами: 

УЕ - размер начальной стороны; 

АМОГЕ - угол поворота; 

МС - приращение стороны на каждом новом витке. 

ТО ЭРТВАЁ :517Е: АМОЕЕ: ТМС 
РОВМАВО :5Т7Е 
ВТОНТ :АМСЕЕ 
МАКЕ “5Т7Е :5ТИЕ + .Т№МС 
ОРТНАЕ :517Е :АМОЕЕ :Т№С 

ЕМО 

Проверьте эту процедуру на конкретных примерах. Наиболее интересные эффекты 
получаются, когда угол АМСЁЕЕ почти (но не точно) равен углу правильного многоугольника. 
Испытайте, например, следующие примеры: 

ОРТВАЕ 10, 121, 5 
ОРТВАЕ 10, 119, 5 
ОРТВАЕ 10, 135, 5 

Вы можете менять не только линейный размер витков :5МЕ, но и угол поворота 
спирали :АМСЕЕ. 

ТО АЗРТ :5Т7Е: АМОШЕ: ТМ 

РОВМАВО :5Т7Е 

ВТОНТ :АМОСЕЕ 

МАКЕ “АМОЕЕ :АМОЕЕ + :1Т№С 

ОРТНАЕ :517Е :АМОЁЕЕ :Т№С 


ЕМО 

Посмотрите, что получится для следующих вариантов: 

АЗРТ 10 05 
АЗРТ 10 40 30 
АЗРТ 102 20 

Один из примеров приведен на рис. 2. 

Не менее интересным будет изображение части спирали, а затем повторение ее 
вновь из другой точки, в которой в данный момент времени находится "черепашка". В этом 
случае вместо изменения значения $517Е (которое должно быть постоянным) мы делаем шаг 
РОР\М/ААО на переменную величину, которая рассчитывается как произведение $7Е на 


некоторое число СОЦМТ, изменяющееся отединицы до максимального значения МАХ. 
ТО ВЕЗРТ :5ТИЕ :АМОЁЕ :МАХ 
МАКЕ “СОЦМТ 1 
ВЕРЕАТ МАХ [РОВМААО :5Т7Е* :СО0МТ 
ВТОНТ :АМОЕЕ 
МАКЕ “СОПМТ :СОУМТ + 1] 
ВЕЗРТ :5Т7Е :АМОЁЕ :МАХ 
ЕМО 


Один из возможных примеров приведен на рис. 3: 


РЕЗРТ 28 128 5 


Рис. 3 


ПРИМЕЧАНИЕ “ИНФОРКОМА". 

Подобная технология имеет очень широкие возможности применения в создании 
игровых программ. Аналогичными приемами, основанными на рекурсии, в последнее время 
начали пользоваться для созданий графических изображений квазирегулярной структуры. К 
ним в первую очередь относятся естественные природные объекты: лес, трава, облака, 
снежинки, ледники, контур береговой линии материка или острова, дым от горящего танка и 
многое-многое другое. Смысл состоит в том, чтобы не хранить в компьютере картинку с 
изображением, например, облака, а всякий раз, когда надо его нарисовать, вызывать для 
этого процедуру-генератор облака (дыма, леса ит.п.). 

Конечно, такие процедуры пишут не на ЛОГО, а на АССЕМБЛЕР, но для "обкатки" 
алгоритма, прежде чем переносить его на "АССЕМБЛЕР", ЛОГО очень удобен, ведь надо 
подобрать и исследовать все параметры. 

Технология создания подобных объектов квазирегулярной структуры хоть и не 
сложна, но почему-то малоисследована - то ли у многих до нее не дошли руки, то ли мало 
кто об этом знает, то ли информацию об этой технологии закрывают как ценное "ноу-хау" 

Вы имеете уникальную возможность провести подобные исследования, используя 
ЛОГО в качестве удобного подручного инструмента. В исследованиях стоит стремиться к 
тому, чтобы Ваш объект (например дым) выглядел как можно более натурально. Он может 
быть динамичным, т.е. постоянно меняться и переливаться на экране. Возможно 
задействование команд управления цветом. Стоит также стремиться к тому, чтобы 
алгоритм, положенный в основу генератора, был легко переносим на АССЕМБЛЕР. 

Мы с радостью напечатаем результаты наиболее интересных исследований. Так что 
дерзайте, Вас могут ждать потрясающие открытия. 


Объекты ЛОГО. 

Если Вы еще не запутались со всеми двоеточиями и кавычками, с которыми пришлось 
иметь дело в предыдущих разделах, то это очень хорошо. Дело не в том, что трудно 
разобраться, где что нужно ставить, просто это такой вопрос, который лучше не объяснять, а 
демонстрировать на примере. Если же сейчас что-то покажется не очень понятным, не 
пугайтесь, у Вас всегда будет возможность вернуться к этому разделу, когда Вы будете 
сами писать свои процедуры. 

Итак, ЛОГО имеет дело с четырьмя различными видами объектов: 

» Слова 


е Числа 
е Процедуры 
е Списки 


О списках мы поговорим в следующей главе. 

Что касается чисел, так официально их тоже квалифицируют как "слова", но поскольку 
они подчиняются несколько иным правилам, мы их выделили в отдельный объект. Числа 
состоят из десятеричных цифр от 0 до 9. Возможно использование знака "минус" в начале 


числа, а также использование десятичной точки. Числа, превышающие 10 миллионов в 
ЛОГО печатаются в экспоненциальной форме. Так, например, 2.3Е+9 означает: 

2 300 000 000 

Запись Е+9 обозначает, что десятичную точку следует перенести на девять позиций 
вправо от того места, в котором она показана в числе 2.3. 

Точно так же для очень малых чисел величина экспоненты может быть отрицательной. 
Запись 1.4Е-6 обозначает перенос десятичной точки влево на шесть позиций. Получим: 

0.0000014 

При такой форме записи можно работать почти с любыми числами. Если Ваше число 
окажется больше, чем 1Е+38 (а это крайне маловероятно), то тогда будет выдано 
сообщение об ошибке 

М№пфехг Еоо Б1а Число слишком велико. 

Если же Ваше число окажется меньше, чем 1Е-38, то оно воспринимается 
компьютером как ноль. 

Обычно ЛОГО считает, что всякое слово, которое встречается в программе, является 
командой, которую следует исполнить, или именем процедуры, которую следует разыскать 
в памяти, прежде чем исполнять или выдавать сообщение об ошибке, если эта процедура не 
разыскана. Поэтому, если Вы хотите, чтобы Ваше слово воспринималось только как слово, а 
не как команда и не как имя процедуры, Вам необходимо перед ним поставить кавычки, 
например: 

"РЕВЕБ 

Будьте внимательны и следите за тем, чтобы между кавычками и словом не 
образовалось случайного пробела. Дело в том, что ЛОГО признает существование "пустого 
слова", в котором нет ни одного символа. В программе такое "пустое слово" изображается 
кавычками, за которыми следует пробел. Этот странный объект на самом деле не столь 
бесполезен, как многим может показаться. Когда мы манипулируем со словами, 
обрабатывая по очереди букву за буквой, "пустое слово" является отличным индикатором 
того места, где следует остановиться. 

Слово может быть именем какого-либо другого объекта. Мы с Вами уже 
рассматривали примеры, когда слово являлось именем процедуры или именем числовой 
переменной. Как Вы помните, последнее достигалось с помощью команды МАКЕ. 

МАКЕ "№05 15*40/100 

По этой команде будет рассчитано значение №05, равное 6. Мы можем сказать так, 
что "б" - это содержание того, что именуется словом МО5. Для того, чтобы по имени найти 
его содержание служит команда ТНМО. Например: 

РАТМТ ТНТМС "№05 

В результате получите число 6. 

Поскольку поиск содержания переменной по ее имени очень и очень часто 
встречающаяся задача, решено было упростить форму записи и вместо ТНИМС ставить 
двоеточие: 

РАТМТ :№05$ 

Впрочем, команда ТНМС и двоеточие - это не вполне эквивалентные вещи и не всегда 
могут быть использованы одно вместо другого. Об этом мы еще поговорим чуть ниже. 

Команда МАКЕ всегда имеет следующую конструкцию: 

МАКЕ <имя> «содержание» 

Поскольку первым параметром всегда идет имя, оно обычно начинается с кавычек. 

Второй параметр может быть словом, числом или списком. 
МАКЕ “РАТСЕ 27 


РАТМТ РАТС 
2 
Число 27 является значением переменной с именем РЁСЕ. 
Другой пример: 

МАКЕ “МААУ “СОМТВААУ 

РАТМТ “МАВУ 
МАВУ 


Поскольку в команде РАМТ стояли кавычки, то мы точно указали, что мы хотим 
напечатать именно слово МАРУ, что и было сделано. А вотесли сделать так: 


РАТМТ :МАВУ 
- то это указание на то, чтобы распечатать содержимое МАРУ и в итоге получим: 
СОМТВАВУ 
А вотеще более сложный пример: 
МАКЕ “ЛЕА : МАВУ 
РАТМТ ЕАМ 
СОМТВАВУ 


Команда МАКЕ присвоила имени ЕАМ содержимое имени МАВУ. Оно, как мы помним 
равно СОМТВАВУ, что мы и получили по команде РАМТ, дав указание распечатать 
содержимое ЕАМ. 

На первый раз может показаться нелепым использовать одно слово вместо другого, 
но при создании программ это может быть полезным. Так, например, Вы хотите, чтобы Ваша 
программа сначала спросила как зовут того, кто с ней работает, а потом в диалогах с ним 
всегда пользовалась этим именем. Тогда Вы, не зная заранее имени пользователя, всюду в 
диалогах используете вместо него например имя АМЗМЕВ. А когда узнаете его имя, 


присвоите переменной АМЗМЕРН необходимое содержание. 
ТО ОВЕЕТ 
РАТМТ [МНАТ 1$ УОУНА МАМЕ] 
МАКЕ “АМЗМЕА ВЕАБЕТУТ 
РАТМТ “НЕГЕО 
РАТМТ :АМЗМЕВ 
ЕМО 


Когда Вы работаете в БЕЙСИКе, то для ввода имени пользователя Вы использовали 
бы команду МРОТ. Здесь же мы воспользовались для этой цели вызовом процедуры 
ВЕАВЫЗТ. О том, что это за процедура мы поговорим, когда придет время. Пока же Вам 
достаточно знать, что она возьмет слово, набранное пользователем с клавиатуры (или 
список слов) и присвоит его в качестве параметра в команде МАКЕ. 

Теперь Вы можете видеть, что если, скажем УОНМ является именем человека, 
работающего на компьютере, то АМЗМЕН является именем переменной, содержанием 
которой является слово ЗОНМ. 

Рассмотрим еще более сложный пример: 


АКЕ “СТВЁЕ “МАВУ 
РАТМТ “СТАЕ 
СТВЬ 
Пока все идет тривиально просто. 
РАТМТ СТАЕ 
МАВУ 
Это мы тоже уже проходили. 
РАТМТ ТНТМ№б СТАЕ 


СОМТВАВУ 
А вот это уже что-то новенькое. Фактически мы дали команду напечатать содержание 
имени, которое является содержанием переменной по имени СВЕ. 
В принципе конструкция 
ТНТМ@ ОТВЕ 
эквивалентна конструкции 
:: СТАЕ 
которая не разрешена, или конструкции 
ТНТМ@ ТНТМ@ СТАЕ 
Последнюю конструкцию Вы можете проверить сами. 
Фактически мы имеем два уровня вложения имени: 
СВЕ ---> МААУ ---> СОМТВАВУ 
Вот перед Вами как раз тот случай, когда команда ТНМОС и знак "двоеточие" не вполне 
взаимозаменяемы, о чем мы и упомянули выше. 
Зачем нам может быть нужен более, чем один уровень вложения имени? - Для 
большей гибкости языка, для создания более универсальных процедур. 
Рассмотрим пример. У Вас на складе лежат разные товары: кассеты, дискеты, джинсы 
и пр. Каждый из этих товаров обладает разной ценой (РЕТСЕ). Предположим, что Вы хотите 
написать процедуру, которая быстро сообщит вам данные по запрашиваемому товару. 


Чтобы не делать по каждому виду товара свою процедуру, Вы сделаете подстановку 
имени: 
ТО МАМЕРНТМТ :ОВУЕСТ 
РАТМТ :ОВОЕСТ 
РАТМТ ТНТМа :ОВФЕСТ 
ЕМО 
Предположим, что джинсы стоят 15 долларов, кассеты - 2, а дискеты - 1. 
МАКЕ “УЕАМЗ 15 
МАКЕ “САЗЗЕТТЕ$ 2 
МАКЕ “ОТЗКЕТТЕЗ 1 


Когда же эта информация нам будет нужна, мы всегда ее получим с помощью 
процедуры МАМЕРЁМТ, задавая при вызове интересующий нас товар (ОВУЕСТ). 


По такой команде получим сообщение: 
ОЕАМ$ 
5 
Если воспользоваться еще и оператором ЗЕМТЕМСЕ (с ним мы будем разбираться 
позже), то можно программировать целые отчеты от компьютера, например: 
ТО МАМЕРНТМТ :ОВУЕСТ 
РАТМТ (ЗЕМТЕМСЕ “ТНЕ_РВТСЕ_ОЕ 
‘ОВУЕСТ “Т$ ТНТМ@ :ОВУЕСТ) 


ЕМО 

Если теперь дать команду МАМЕРАМТ "УЕАМ$, то получите сообщение: 

ТНЕ РВЕТСЕ ОЕ ОЕАМ$ Т$ 15 

(Цена джинсов - 15) 

Еще более интересно использовать такую технику в команде МАКЕ, что дает 
возможность косвенного присвоения и переприсвоения переменных. Пример: 

МАКЕ “ОЦАМТТТУ “РАТСЕ 
МАКЕ :ОЦУАМТТТУ 27 
РАТМТ :РВТСЕ 

27 

Самое интересное в том, что мы нигде не присваивали числового значения 
переменной РЕСЕ и, тем не менее, когда оно нам понадобилось, смогли его получить по 
команде РАМТ. Все дело во второй строчке, где содержимому переменной ОЧАМТПУ 
присваивается значение 27. Поскольку содержимое имени ОЧАМТПУ равно имени РНСЕ, то 
и получилось так, что значение 27 присвоилось переменной, имя которой РЫСЕ. 

В заключение, говоря о правилах использования кавычек, мы должны сказать еще 
пару слов. 

Как Вы знаете, в ЛОГО все слова, которые не являются числами и не начинаются с 
кавычек или двоеточия, интерпретируются, как имена процедур. Таким образом, встретив 
например слово ЗУМР, ЛОГО либо перейдет к поиску и исполнению процедуры УУМР, либо 
(если она не задана), выдаст сообщение об ошибке. Но ведь бывают случаи, когда Вам надо 
сделать с процедурой что-либо иное, например вызвать ее для редактирования. В этом 
случае перед именем процедуры должны стоять кавычки: 

ЕБ “ОМР 
То же самое относится и к системным операторам РО, ЕРи ЗА\Е. 


МАКЕ "Р ТГТСТ ЕТВСТ ТНТМС :А ЗЕМТЕМСЕ "РВ МОВО СНАВ 34 :А 
Рис. 4а 
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Виды процедур. 
В ЛОГО имеет смысл различать два вида процедур. 
Первый вид - команды, которые дают компьютеру указание выполнить какие-то 
действия, например: 
РОВМАВО 50 
РАТМТ “НЕЕЕО 
РЕМИР 
ЗА\УЕ “МУРВОС 
ит.п. 
Второй вид - операторы. Их задача - рассчитать результат и выдать его для 
исполнения командой. Например: 
$иМ 
ОТ\У 


ит.п. 

В ЛОГО все команды принимают параметры (если они нужны для работы) справа от 
себя, а всякий оператор выдает результат своей работы влево от себя. Именно поэтому, 
когда мы рассматривали арифметические операции, мы всегда слева вставляли команду 
РАМТ. 

Единственным исключением этого общего принципа "Вход справа - выход налево" 
являются знаки арифметических операций +, -, /, >, <, =. Эти знаки ставятся между своими 
операндами - это исключение является как бы данью традиции. 

Те процедуры, которые встроены в ЛОГО без Вашего участия и являются системными, 
называют ПРИМИТИВАМИ. 

Иногда строки в ЛОГО могут выглядеть очень сложными. Посмотрите, например, на 
строку, приведенную на рис. 4а. 

Тем не менее, существует простой способ разобраться с такой конструкцией. Прежде 
всего, найдите в строке имена процедур. Это не числа и они не начинаются с кавычек или 
двоеточия. Разберитесь сколько параметров каждая из них ожидает после себя и поставьте 
это число под именем процедуры (рис. 4.6.). 

Большинство слов в этой строке Вам пока незнакомо, но это даже и хорошо для того, 
чтобы научиться анализировать непонятные строки. Пока скажем только, что все процедуры 


являются встроенными примитивами. 

Теперь на листе бумаги напишите первое слово строки. Это обязательно команда. К 
нему проведите столько стрелок, сколько параметров требует эта команда, см. рис Ав. В 
конце первой стрелки запишите следующее слово. Если это не имя процедуры, то 
следующее слово запишите в конце следующей стрелки. Если же это процедура, то к ней 
тоже проведите столько стрелок, сколько параметров она требует. 

Продолжайте таким образом, пока не дойдете до конца ЛОГО-строки. Результат для 
данной строки показан на рис. 4в. Здесь ясно видно как и от кого каждая процедура ожидает 
входные данные и куда направляет результат своей работы. 

Если же этот метод не сработал и либо в строке есть слова, которые некуда 
подключить, либо есть стрелки, которые ничем не кончаются, то значит в написании строки 
имеется ошибка. 


ГЛАВА 4. СЛОВА И СПИСКИ 


Что такое список, знают конечно все и объяснять этого не надо. Даже совсем не 
рассеянные люди, готовясь к поездке, составляют список того, что надо захватить в дорогу. 

Список как объект языка ЛОГО ничем не отличается от тех списков, к которым Вы 
привыкли в обыденной жизни. Правда, ЛОГО любит, чтобы списки для него заключали в 
квадратные скобки, а отдельные элементы списков отделяли друг от друга с помощью 
пробелов. Порядок элементов в списке играет важную роль. Так, два нижеследующих 
списка являются различными: 


[Л]АМУАВУ РЕВВЦАВУ МАВСН] 
[ЛАМОАВУ МАНСН РЕВВУАВУ ] 


Элементами списков являются либо слова, либо тоже списки. Со списками, 
состоящими из списков мы поговорим в следующей главе, а пока остановимся на списках, 
состоящих ИЗ СЛОВ. 

Обычно нет необходимости слова в списках начинать с кавычек. ЛОГО полагает, что 
два нижеследующих списка идентичны: 


[ЛАМУАВУ ЕЕВВУАВУ МАВСН] 
["ЧАМУАНУ "РЕВВУАВУ “МАВСН) 
Для чисел мы вводили имена переменных, точно так же можно дать имя списку. Это 
тоже делается командой МАКЕ. 
МАКЕ “ЭНОРРТМ@а [ВВЕАБ ВОИТТЕВ МТЕК ЗТАМРЗ ] 
Списку предполагаемых покупок (хлеб, масло, молоко, почтовые марки) мы 
присвоили имя ЗНОРРИМС. 
Преимущество работы с именованным списком состоит в том, что мы можем 
ссылаться на него по имени. Например, команда 
РАТМТ :5НОРРТМС 
ВБЕАР ВОТТЕВ МТК СТАМРЗ 
Обратите внимание на то, что при печати списка ЛОГО опускает квадратные скобки. 
Мы можем присвоить списку другое имя или, наоборот, списку с заданным именем 
присвоить иное содержание, например: 
МАКЕ “ВОУ@НТ :5НОРРТМС 
РАТМТ :ВОУОНТ 
ВБЕАР ВОТТЕВ МТЬК $ТАМРЗ 
Так у нас появился новый список ВОЦСНТ. 


Выбор элементов списка. 

В списках было бы очень мало пользы, если бы с ними можно было работать только 
как с одной цельной вещью (хранить, переименовывать и распечатывать). Нам нужны 
приемы, с помощью которых мы могли бы иметь доступ к отдельным элементам списка. 
ЛОГО предоставляет несколько таких приемов. Самый простой и наиболее широко 
применяющийся - оператор ЕВ$Т. Он выдает первый элемент списка. 

Например: 

РАТМТ ЕТАЗТ [ЛАМЦААУ РЕВАЦААУ МАВСН] 

ЗАМОАВУ 


Оператор НАЗТ может работать и с именованными списками тоже: 
РАТМТ ЕТНУТ .5НОРРТМВ 
ВВЕАР 

Разобравшись с первым элементом списка, мы хотели бы разобраться и с 
остальными. Для этого наиболее стандартным является оператор ВУТАВ$Т. Он создает 
второй список, состоящий из всех элементов исходного списка, кроме первого. Т.е. как бы 
отбрасывается первый элемент, а оставшиеся элементы становятся новым списком. 

РАТМТ ВУТЕТАЗТ [ЛАМУАВУ РЕВВУАНУ МАВСН] 
КЕВВОАВУ МАВСН 
совершенно аналогично для именованных списков: 
РАТМТ ВУТЕТВЗТ :ЭНОРРТМ@ 
ВОТТЕВ МТЬК 5ТАМРЗ 

Кроме естественного различия между НА$Т и ВУТАВ$Т есть еще одно очень важное 
различие: 

АВЗТ - дает слово; 

ВОТРВАФЗТ - дает список. 

Специально для удобства пользователей со списками можно работать не только с 
начала, но и с конца. Оператор ГАЗТ дает последний элемент списка: 

РАТМТ ГАЗТ :ЗНОРРТМ@ 

СТАМР$ 

Есть и оператор ВУТЬАЗТ, который, как Вы уже очевидно догадались, создает новый 
список, равный исходному без последнего элемента. 

РАТМТ ВУТЕАЗТ [МОМВАУ ТУЕЗОАУ МЕБМЕЗВАУ ТНУВЗВАУ ЕАТВАУ] 

МОМРАУ ТОЕЗРАУ МЕШМЕЗРАУ ТНОВбРАУ 

Можно выбирать не только первый или последний элемент из списка. Для того, чтобы 
получить любой произвольный элемент, служит оператор ТЕМ, который требует после себя 
указания двух параметров - номера нужного элемента списка и самого списка. 

РАТМТ ТТЕМ 2 [АРВТЕ МАУ ДОМЕ] 

МАУ 

Список может быть задан своим именем: 
РАТМТ ТТЕМ 3 :5НОРРТМа 

МТЬК 

Часто бывает важным знать, сколько же элементов содержится в Вашем списке. Для 
этого служит оператор СОЧЦМТ. 

РАТМТ СОУМТ []АМУААУ РЕВВУАВУ МАВСН] 

3 

РАТМТ СОУМТ :ЗНОРРТМ@ 

4 

Многие стандартные процедуры ЛОГО воспринимают списки в качестве входных 
параметров. С некоторыми мы уже сталкивались. Такова, например, команда ВЕРЕАТ, после 
которой должны быть два параметра. Первый параметр - число повторов. Второй параметр - 
список повторяющихся команд. Это один из тех случаев, когда кавычки могут быть внутри 
списка, причем опустить их нельзя: 

ВЕРЕАТ 4[МАКЕ “МОМВЕН :МОМВЕВ+1] 

Хоть команда НЕРЕАТ и принимает список как список, тем не менее команда МАКЕ, 
стоящая в списке, требует, чтобы ее первым параметром было имя. Если Вы захотите 
испытать этот пример, то предварительно не забудьте задать первоначальное значение 
переменной МУМВЕВН. 

Некоторые из встроенных примитивов могут работать как со словами, так и со 
списками. Примером может служить команда РАМТ, которая распечатает и слово и список. 
Фактически именно для таких случаев в ЛОГО и ввели правило, по которому списки должны 
быть заключены в квадратные скобки. 

Вы можете создавать и свои процедуры для работы со списками. Так, например, ниже 
приведена процедура для печати элементов списка в столбик по одному (обычно список 
распечатывается в строчку). 

Процедура работает в цикле ВЕРЕАТ, переходя от одного элемента к другому и 
выхватывая его с помощью оператора ТЕМ. 

ТО ТВЕ :АЁТЗТ 


МАКЕ “СОПМТЕВ 1 

ВЕРЕАТ СОУМТ :АЕТЗТ 

[РАТМТ ТТЕМ :СОУМТЕВ :АЕТУТ 
МАКЕ “СОПМТЕН :СОУМТЕВ+1 ] 


ЕМО 
Тогда команда: 
ЕВЕ [ЕВЕ $ТАМО$ РОН ЕТМЕ ВУ 1ТМЕ] 
даст результат 
ВЬ 
СТАМО$ 
ГОК. 
ВУ 

Попробуйте сами в порядке эксперимента написать процедуру, которая сможет 
печатать список в обратном порядке. 

Используя уже изученные инструменты и приемы, мы можем применять списки для 
того, чтобы хранить и обрабатывать информацию. Например, Вам надо сохранить в базе 
данных свои ежемесячные расходы в течение года, а потом найти их среднюю величину и 
сумму. Тогда Вы составите список, в котором первым элементом будет расход за январь, 
вторым - за февраль и т.д. Нижеприведенная процедура пройдет по списку таким же 
образом, как это делала процедура 1В1. Только она не будет распечатывать найденные 
элементы, а будет накапливать их текущую сумму в переменной ТОТАЕ, которая конечно в 
начале процедуры должна быть занулена. Средняя величина расходов определится 
делением суммы на двенадцать. 

ТО АУЕВАСЕ :АСТУТ 

МАКЕ “ТОТАЕ 0 

МАКЕ “СОПМТЕВ 1 

ВЕРЕАТ 12 [МАКЕ “ТОТАЁ, .ТОТАЁ + ТТЕМ: СОУМТЕН :АЕТЗТ 
МАКЕ “СОУМТЕВ :СОУМТЕВ + 1] 

МАКЕ “АУЕНАСЕ :ТОТАЁ/12 
РАТМТ “ТОТАЕ 
РАТМТ : ТОТАЕ 
РАТМТ “АУЕВАСЕ 
РАТМТ :АУЕВАСЕ 
ЕМО 
Испытайте эту процедуру с любым удобным Вам списком из двенадцати чисел. 


[ 
й 


Ввод слов и списков. 

Обычно ввод списков с клавиатуры выполняют с помощью оператора ВЕАОВИЗТ. 
Результат его работы должен быть тут же передан какой-либо переменной или процедуре. 
Обычно это делают с помощью команды МАКЕ. Например: 

МАКЕ “АМЗМЕВ ВЕАБЕТУТ 

По этой команде компьютер переходит в состояние ожидания до тех пор, пока Вы не 
наберете то, что Вам нужно на клавиатуре. Обозначается это состояние вопросительным 
знаком на экране. Список ввода состоит из тех слов, разделенных пробелами, которые Вы 
наберете до нажатия клавиши ЕМТЕВ, после чего ввод будет закончен. 

Попробуйте и посмотрите, что Вы набрали: 

МАКЕ “АМЗМЕВ ВЕАБЕТЗТ 
РАТМТ :АМЗМЕН 

ГОСО не имеет соответствующего оператора для ввода только одного слова, но в нем 
и нет необходимости. Обычно, когда в этом возникает необходимость, пользуются 
конструкцией: 

ЕТВЗТ АЕАОЕТУТ 

которая вводит первое слово входного списка. Все остальные слова игнорируются. 

Может быть, Вы хотите получить отдельно первое слово списка и всю остальную часть 
списка. В этом случае неприменима такая конструкция: 

МАКЕ “ЗТАВТ ЕТВЗТ ВЕАБЕТЗТ 
МАКЕ “ВЕЗТ ВУТЕТАЗТ ВЕАБЕТУТ 


Просто встретив РЕАОМЗТ второй раз, компьютер снова войдет в состояние 
ожидания и примет окончание списка, НО ЭТО БУДЕТ УЖЕ НЕ ТОТ СПИСОК. 
Если Вы хотите, чтобы у Вас все получилось нормально, то единственный путь - 
принять весь список и только потом заниматься его разделением. 
МАКЕ “АМЗМЕВ ВЕАБЕТЗТ 
МАКЕ “ЭТАНТ ЕТАЗТ : АМЗМЕВ 
МАКЕ “ВЕЗТ ВУТЕТА$ЗТ :АМЗИЕВ 


Пустой список. 

Список, в котором не содержится ни один элемент, является необычным, но очень 
полезным объектом. Обозначается он - [] и называется пустым списком. Он нужен, 
например, при создании списков в качестве исходного элемента. Он же используется для 
сигнализации о конце работы, когда какой-то заполненный список сканируется и элемент за 
элементом извлекаются из него и отправляются на обработку процедурами. 


Создание и слияние списков. 

Для этих целей широко используется процедура ЗЕМТЕМСЕ. Мы уже встречались с 
ней в команде РЕМТ. Она принимает в качестве входных параметров два или более слова 
или списка и объединяет их в один список. Например: 

МАКЕ “РАОУЕВВ ЗЕМТЕМСЕ “МАМУ “"НАМОЗ 
РАТМТ :РНОМЕАВ 

МАМУ НАМОС 

Мы слили два слова: МАМУ и НАМОЗ$ в один список МАМУ НАМОЗ. 

Но ЗЕМТЕМСЕ может сливать и списки: 

МАКЕ “РАОУЕВВ ЗЕМТЕМСЕ [МАМУ НАМО$] [МАКЕ ЕТОНТ МОВК] 
РАТМТ :РВОУЕНВ 
МАМУ НАМОС МАКЕ 1 
Или: 
МАКЕ “МЕМФАУТМ@ ЗЕМТЕМСЕ :РВОУЕНВ [ОН ЗРОТЕ ВАОТН] 
РАТМТ :МЕМЗАУТМС 

МАМУ НАМОС МАКЕ ГТСНТ МОВК ОБ 5РОТПЬ ВВОТН 

Оператор ЗЕМТЕМСЕ может иметь более двух входных параметров. В этом случае и 
ЗЕМТЕМСЕ и параметры должны быть заключены в круглые скобки. 

РАТМТ (ЗЕМТЕМСЕ ГА НОНЕТМС][5ТОМЕ САТНЕА$ [№0 М055]) 
или: 
МАКЕ “ОЕОЗАУТМ@а (ЗЕМТЕМСЕ [ТНЕ ЗАУТМ@) :РВОМЕАВ [15$ ТНУЕ]) РВТМТ :ОЕО$АУТМВ 

ТНЕ САУТМС МАМУ НАМО$ МАКЕ ГТСНТ МОВК$ Т5 ТВОЕ 

Команда РАМТ всегда требует при себе только одного входного параметра - слова 
или списка, поэтому Вы не можете напечатать: 

РАТМТ “МАМУ “НАМОЗ 
Вам на помощь приходит список: 
РАТМТ [МАМУ НАМОЗ] 

Но если текст еще более сложен и требует слияния списков и слов в одно целое, то мы 
пользуемся оператором ЗЕМТЕМСЕ: 

РАТМТ ЗЕМТЕМСЕ [ТНЕ ЗНОРРТМа ЕТУТ 1$] :ЗНОРРТМ@ 

В результате Вы получите: 

ТНЕ СНОРРТМС ГТ5Т Т$ ВВЕАР ВОТТЕВ МТЬК 5ТАКЕС 

До сих пор мы использовали ЗЕМТЕМСЕ для слияния списков. Теперь посмотрим, как 
можно создавать новые списки. Пусть, например, перед нами стоит задача создать список 
ежемесячные расходов, которым мы уже пользовались в одном из вышеприведенных 
примеров. Процедура должна печатать по порядку названия месяцев, принимать с 
клавиатуры величину расхода в данном месяце и вводить ее в список расходов. 

Мы начнем с того, что создадим список месяцев - УЕАВ, а список расходов ЕХРЕМО 
сделаем пока пустым списком. Затем повторим двенадцать раз процедуру ввода данных с 
клавиатуры - ИММОМТН. 

ТО ВУТЕБЕТЬТ 
МАКЕ “УЕАВ [ЛАМУАВУ РЕВВИАВУ 
МАВСН АРАТЕ МАУ 


СНТ МОВК 


ЗИМЕ УОЕУ АУбОЗТ 
ЗЕРТЕМВЕН ОСТОВЕВ 
МО\МЕМВЕН ОЕСЕМВЕВ] 


МАКЕ “ЕХРЕМО [] 

МАКЕ “СОПМТЕВ 1 

ВЕРЕАТ 12[ТММОЦМТН] 
ЕМО 


Процедура 1ММОМТН должна печатать название очередного месяца и принимать с 
клавиатуры данные по расходам за этот месяц. Для этого используется техника НАЗТ 
ВЕАОМФТ, рассмотренная выше. 

ТО ТММОмН 

МАКЕ “МОЦТН ТТЕМ :СОУМТЕВ :УЕАН 

РВТМТ :МОМТН 

МАКЕ “"ЕХРЕМО ЗЕМТЕМСЕ :ЕХРЕМО 

ЕТВЗТ НЕАБЕТЬТ 

МАКЕ СОУМТЕВ :СОУМТЕВ + 1 

ЕМО 

Есть еще один изощренный метод исполнения того, что делает оператор ЗЕМТЕМСЕ. 
Обычно изощрения в программировании вовсе не являются необходимыми улучшениями, 
но в данном случае у нас появляется одно преимущество. В этой технологии используется 
идея, описанная в конце предыдущей главы. Давайте рассмотрим слова в списке УЕАН как 
имена переменных, содержанием которых является ежемесячный расход. Тогда, например, 
"]АМИААУ - это имя месячного расхода за январь. Тогда процедура ИММОМТН может 
выглядеть так: 

ТО ТММОмТН 

МАКЕ “МОМТН ТТЕМ :СОУМТЕВ :УЕАЯ 

РАТМТ :МОМТН 

МАКЕ :МОМТН РЕТАЗТ ВЕАБЕТУТ 

МАКЕ “СОУМТЕВ :СОУМТЕВ+1 

ЕМО 


Вторая команда МАКЕ использует содержание МОМТН в качестве своего первого 
параметра, в результате ЗАМИАРУ станет именем тех данных, которые будут считаны с 
клавиатуры по НАЗТ ВЕАБМ$Т. 

Такой подход дает нам то преимущество, что каждый элемент данных может быть 
легко индивидуально изменен. При написании программ всегда следует думать о том, что 
должен сделать пользователь, если случайно допустит ошибку. Если мы будем работать 
таким приемом, то нам не нужен список расходов ЕХРЕМО. 

Как упражнение напишите процедуру СНАМОЕ, которая примет с клавиатуры название 
месяца и расход в этом месяце и изменит эти значения в списке. 

Если Вам захочется сохранить результаты этих экспериментов на кассете в виде 
сборника процедур для ведения личной бухгалтерии, ЛОГО обеспечивает для этого только 
одну возможность. Вы можете воспользоваться командой ЗАМЕАЦ-, после которой надо 
указать имя файла: 

ЗАМЕАЕЕ “МОМЕУ 

По этой команде на ленту будет выгружено все, что находится в рабочей области, т.е. 
и все процедуры и все переменные. В этом тоже есть удобство, поскольку когда Вам опять 
понадобится файл МОМЕУХ, то загрузив его Вы не только загрузите все данные, но и все 
процедуры, необходимые для работы с ним. 


Работа со словами. 

Многие процедуры, предназначенные для обслуживания списков и слов внутри 
списков, могут на самом деле применяться только для работы со словами и даже с 
символами, из которых эти слова состоят. Так, например, команда НРАЗТ, если ее применить 
не к списку, а к отдельному слову, выдаст первый символ этого слова. 

РАТМТ ЕТНУТ "АВС 

А 

Точно так же: 
РАТМТ СОУМТ "РЕг1дау 


даст в результате: 

6 

Из рассмотренных в этой главе процедур только две неприменимы для работы с 
отдельными словами. Это процедуры ТЕМ и ЗЕМТЕМСЕ. 

Аналог процедуре ТЕМ мы сделаем несколько позже, воспользовавшись для этого 
АВЗТ, АЗТ, ВУТАВЗТ, ВОТЕА$Т и рекурсией. 

А вот в качестве аналога процедуры ЗЕМТЕМСЕ для создания слов есть специальная 
процедура \М/ОВО. Она и работает как ЗЕМТЕМСЕ, принимая два или более слов, но сливает 
их не в список, а в одно слово, т.е. не оставляет между составляющими словами пробелов. 

РАТМТ МОНО “ВЕАСК “РОО 
ВГАСКРООГ 

Так же, как и ЗЕМТЕМСЕ, процедура \М/ОНРО требует наличия круглых кавычек, если 

входных данных более, чем два. 
РАТМТ (МОНО “ВТАМ “ТМ@ “НАМ) 
ВТЕМТМСНАМ 

В качестве примера мы рассмотрели несложную процедуру, которая принимает с 
клавиатуры от пользователя слово и печатает его задом наперед. Для приема слова мы 
опять используем технику НАЗТ ВЕАШМ$Т. Затем, начиная с конца, это слово сканируется и 
символ за символом собираются в новое слово с помощью оператора М/ОРО. Исходно новое 
слово задается пустым словом. 

ТО НЕУЕВЗЕ 

РАТМТ (@ТУЕ МЕ А ОВО) 

МАКЕ “ТМИОНО ЕТВЗТ ВЕАБЕТЗТ 


МАКЕ “МЕММОАО 
ВЕРЕАТ СОУМТ : ТАМ ОНО 
[МАКЕ “МЕММОНО 


ОАО :МЕЙММОВВ ГАЗТ :ТМОВО 
МАКЕ - ТММОНО ВОТЕАЗТ : ТАММОНО] 
РАТМТ :МЕММОВО 


Те, кто программируют на БЕЙСИКе, должны быть знакомы с процедурами, 
отрезающими левую или правую часть слова. В ЛОГО нет соответствующих встроенных 
примитивов, вместо этого мы напишем свою процедуру, которая принимает в качестве 
входных параметров слово и число символов, которые должны быть "отрезаны" от слова, 
считая слева, то есть от начала слова. Эта процедура создаст два новых слова, назовем их 
ГЕРТи В СНТ. 

Работа этой процедуры похожа на работу ранее рассмотренной процедуры РЕ\УЕВ$ЗЕ. 
В качестве исходного значения правой (ЕТОНТ) части задается все исходное слово, а в 
качестве исходного значения левой (1ЕРТ) его части задается пустое слово. Затем 


необходимое количество символов переносится из НСНТ в ЁЕЕТ. 
то ЗРЕТТ : АМОВО : МОМ 


МАКЕ “ВТСНТ :АМААО 

МАКЕ “ЕЕЕТ " 

ВЕРЕАТ :МОМ 
[МАКЕ “ЁЕЕТ МОВО :ЕЕРТ РТА$ЗТ 
АТеНТ 


МАКЕ “ВТ@НТ ВУТЕТАЗТ :ВТ@нт] 
ЕМО 
для эксперимента попробуйте: 
ОРЕТТ “БЕРТМЕО 4 
РАТМТ :АТОНТ 
РАТМТ :ЕЕРТ 
В результате должно получиться 
МЕР РЕЕР 
А сейчас мы прощаемся с Вами до следующего выпуска, в котором рассмотрим 
работу с циклами и еще немного углубим свои взгляды на "черепашью графику". 
(Продолжение следует) 


Маленькие хитрости 


Короткое, но очень интересное письмо прислал наш читатель Радзевич А. А. из г. 
Нальчик. Оно очень заинтриговало нас. Вот его письмо практически дословно: 

"Мучая свой ЭУМСЁЬЕАА я раскопал нечто такое, что Вас может заинтересовать. 
Запустите следующую программу и Вы все увидите сами. " 

10 ТМРИТ а 

20 С1$ 

30 РЕОТ 41, 87 

40 ОВАМ 174,0, (2*а+1)»РТ 
50 @0 ТО 10 

Наиболее любопытные эффекты возникают, если ввести числа 91, 100, 125, а также и 
любые другие. Можно еще включить режим О\МЕВ 1. Попробуйте, Вы не зря потратите 
время!" 

Набрав эту программу, мы убедились, что это действительно "нечто такое". Не 
скроем, мы с интересом "играли" с этой программой, задавая всевозможные числа и 
наблюдая за тем, что происходит при этом на экране компьютера. 

Программа предельно проста, но эффекты, которые она создает, совсем неочевидны. 
Через некоторое время, "наигравшись", мы задумались над тем, как же все-таки она 
работает. Причудливый орнамент образуется на экране, и весь он создается всего лишь 
одним оператором ОВРА\У. Что лежит в основе происходящего? Работа встроенного 
калькулятора? Округления чисел? Любители головоломок! Если Вы заинтересовались 
происходящим, попытайтесь объяснить, как же все-таки работает эта программа? 


Я=114 
ОСОЕЯ 


Стюарт Николс. 


ПРИМЕНЕНИЕ АССЕМБЛЕРА ДЛЯ СОЗДАНИЯ 
БЫСТРОРАБОТАЮЩИХ ПРОГРАММ 


Перевод с английского Пашорина В. И. 
Продолжение. Начало см. с. 9-12, 48-61. 


4. СЛУЧАЙНЫЕ ЧИСЛА 


Случайные числа являются неотъемлемой частью большинства игровых программ. 
Получить случайные числа с помощью программы в машинных кодах довольно легко и, в 
зависимости от диапазона выборки, определяющего границы интервала, в котором 
необходимо получить случайные числа, различают два способа. 

Первый способ, вполне удовлетворительный для большинства игровых программ, 
основан на использовании системных переменных ЗЕЕБ и ЕВАМЕ$. Применяться этот 
способ может при следующих диапазонах выборки: 


=. 
..З1, 
..63, 
„12; 
Ир: 


ны 


Для этого в регистровую пару НЁ записывается значение системной переменной 
ЗЕЕО (5С76НЕХ = 23670 ПЕС), а в регистровую пару ОЕ - значение младшего байта 
системной переменной ЕВАМЕ$З (5С78НЕХ = 23672 ОЕС). Затем эти два числа суммируется 
и результат заносится в системную переменную ЗЕЕРВ (это нужно для выборки очередного 
случайного числа). В регистр А поочередно записываются значения Н и Ё и путем 
логической операции АМО маскируются незначимые биты для задания диапазона выборки 
случайного числа. 

В программе 4.1, к примеру, для задания диапазона выборки 0...31 т.е. для получения 
таких же случайных чисел, как к по ВАЗ!С-команде 1МТ(АМО»*3З2), в регистре А маскируются 
биты с пятого по седьмой. 

Как уже отмечалось, такой способ может быть использован для получения случайных 
чисел в строго определенных диапазонах. Однако, представленную программу можно 
усовершенствовать и расширить диапазон фиксированных интервалов для случайных 
чисел. Например, для реализации ИМТ(ВМО*23) необходимо добавить: 


Обратите внимание на то, что в программе 4.1 регистр В используется как счетчик 
шагов цикла (10 шагов) и значение этого же регистра используется в РЕМТ-процедуре: 
РАМТ АТВ, 10 для вывода случайных чисел на экран. 


Листинг 4.1 


АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 
23760 06 ОА [О В, 10 ‚ Счетчик на 10 шагов. 
23762 С5 [1 РУЗН ВС ‚ Запомнили состояние счет- 
‚ чика. 
23763 2А 76 5С [О НЕ, (23670) ‚Приняли в НЁ состояние 
‚ системной переменной ЗЕЕВ. 
23766 ЕВ 58 78 50 [О БЕ, (23672) ‚Приняли в ОЕ состояние 
‚ системной перем. РВАМЕЗ. 
23770 19 АБО НЕ, ОЕ ‚ Нашл х сумму 
23771 22 76 5С ЕО (23670), НЕ ‚И установили результат в 
‚ ЗЕЕБ 
23774 70 ВА, ЕЁ 
23775 Еб ЛЕ АМО 31 ‚ Гашение ненужных битов. 
23777 Р5 РУЗН АР ‚ Запомнили результат. 
23776 ЗЕ 02 [0 А, 2 
23780 СО 01 16 САЕЕ 5633 ‚ | Открытие канала печати на 
23783 ЗЕ 16 [О А, 22 ‚ [экран и выдача управля- 
23785 07 ВТ 16 ‚ |ющих кодов для установки 
23786 78 [О А, В ‚ | позиции печат 
23787 07 ВУТ 16 
23788 ЗЕ ОА [О А, 10 АТ В, 10 
23790 07 ВУТ 16 
23791 Е1 РОР АЕ ‚ Восстановление числа со 
‚ стека. 
23792 СО 28 20 САЁЕ 11560 ‚ Процедура ЭТАСК-А (помеща- 
‚ет на стек калькулятора 
‚число, записанное в акку- 
‚ муляторе процессора. 
23795 СО ЕЗ 20 САЕЕ 11747 ‚ Процедура РАТМТ_ЕР. Печата- 
‚ет действительное число, 
‚ находящееся на вершине 
‚ стека калькулятора. 
23798 С1 РОР ВС ‚ Восстановление счетчика. 
23799 10 09 №7 (1 ‚ Уменьшение счетчика и воз- 
‚врат на новый шаг. 
23801 С9 ВЕТ ‚ Выход из процедуры. 


Для получения случайных чисел из произвольного интервала применяется второй 
способ. Этот способ основан на использовании НМ№О-процедуры из системного ПЗУ 
компьютера. К сожалению, эту процедуру нельзя вызвать простой командой САЦ АМЮО, т.к. 
она не завершается командой ВЕТ. Процедура эта занимает участок памяти с адреса 9725 
по адрес 9765 (25Е0НЕХ...2625НЕХ) и в своей работе использует встроенный калькулятор, а 
по завершении работы меняет значение переменной ЗЕЕШ. Для этого в начале работы это 
значение извлекается из ЗЕЕО, преобразуется, а затем дважды записывается на вершину 
калькуляторного стека. Первое значение на вершине стека передается в системную 
переменную ЗЕЕ для генерации очередного случайного числа, а оставшееся на вершине 
стека значение преобразуется для получения соответствующего ему числа в диапазоне 0...1 
(но не = 1). Чтобы использовать эту процедуру, необходимо ее скопировать из ПЗУ и затем 
вызывать, как подпрограмму. 

Подпрограмма 4.2 показывает применение этого способа для получения случайных 
чисел 

ТМТ (В№0*12345) 

и вывода 44 из них в два столбца на экране путем использования СНВ$6. 

АМО-процедура использует несколько новых для нас кодов калькулятора, которые 
могут быть полезны и для других процедур: 

Код 161 (АЛН) - Заск_опе - помещает на вершину стека калькулятора единицу. 

Код 52 (ЗА4Н) - Заск даа - интерпретирует следующие за ним пять байтов как 
действительное число с плавающей точкой, записанное в интегральной форме и помещает 


его на вершину стека калькулятора. 

Код 50 (32Н) - п_то4_т - вместо делимого (п) и делителя (т) эта команда помещает 
на стек остаток от деления и целое частное. 

Код 02 - даеаще - команда служит для удаления числа с вершины стека калькулятора. 

Последние два кода редко используются в игровых программах. Вызов процедуры 
ЕР_ТО_ВС, находящейся по адресу 11682 ОЕС (20А2НЕХ) - САЦ. 11682, позволяет извлечь 
число с вершины стека, округлить его до ближайшего целого числа и затем записать в 
регистровую пару ВС. В отличие от этой процедуры, процедура ЕЁ _ТО_А, находящаяся по 
адресу 11733З0ЕС (2В05НЕХ), передает число с вершины стека в регистр А. 

В данной программе скопированная АМ№О-процедура заканчивается по адресу 23810, 
а начиная с адреса 23811 и по адрес 23820 находится процедура, осуществляющая 
дальнейшее преобразование случайного числа, записанного на стеке. Для этого на стек 
записывается число 12345, определяющее диапазон выборки, а затем производится 
перемножение случайного числа из диапазона 0...1, находящегося на стеке, с этим числом. 
Затем кодом калькулятора 02 (деаще) удаляем со стека дробную часть произведения и на 
вершине стека остается целое число 1МТ(АМО* 12345). Процедура РЕМТ \УАЕУЕ выводит на 
экран 44 случайных числа в 2 столбца. 


Листинг 4. 2 


АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 

23760 ЗЕ 02 [В А, 2 ‚ Открываем канал для печа- 

23762 СО 01 16 САЕЕ 5633 ‚ти на экран. 

23765 СО 68 00 САЁЕ 3435 ‚ Очистка экрана. 

23768 06 2С ЕО В, 44 ализация счетчика. 

23770 С5 [1 РОЗН ВС ‚ запомнили показания счет- 
‚ чика. 

23771 ЕВ 4В 76 5С ЕО ВС, (23670) ‚ Приняли в ВС текущее зна- 
‚чение системной перемен- 
‚ной ЗЕЕБ. 

237175 СО 2В 20 САЁЕ 11563 ‚ Переброска содержимого ВС 
‚на стек калькулятора. 

23778 ЕР АТ 40 ‚ Включение калькулятора. 

23779 А1 эфаск_опе ‚На стеке (5ЕЕВ), 1 

23780 ОЕ ааа ‚ (ЗЕЕБ)-1 

23781 34 37 16 зтаск_питрег ‚На стек помещаем число 75. 

23784 04 ми 1 р1у  (($ЕЕБ)+1)*75 

23785 34 80 41 00 00 80 зэТаск_питрег ‚Число 65537 

23791 32 п_ПоЧ_м ‚ Деление на 65537 с остат- 
‚ КОМ. 

23792 02 де1ете ‚ Частное удалили, оставили 
‚только остаток. 

23793 А] зфтаск_опе ‚ остаток”, 1 

23794 03 зи гасе ‚ остаток”-1 

23795 31 Чир11сате ‚На стеке сделали копию. 

23796 36 епдса1с ‚ Выключение калькулятора. 

23797 С0 А2 20 САЕЕ 11682 ‚ Перенос результата со сте- 
‚ ка калькулятора в регист- 
‚ ровую пару ВС. 

23800 ЕВ 43 76 5С ЕО (23670), ВС ‚ Установка нового значения 
‚ системной переменной 5ЕЕВ. 

23804 ТЕ ЕВА, (НЕ) ‚ Экспонента числа, находя- 
‚ шегося на вершине стека. 

23805 АТ АМО А ‚ Выставление флагов. 

23806 28 03 УИ 7, 12 ‚ Обход, если экспонента = 0 

23808 06 10 508 16 ‚ Вычитание числа 16 из экс- 
‚ поненты эквивалентно деле- 
‚нию на 65536. 

23810 77 ЕВ (НЕ), А ‚Изменили экспоненту числа, 
‚на вершине стека. 
‚ Теперь на вершине стека 


‚ случайное число в диапазо- 
‚не от 0 до 1. 


[2 
23811 01 39 30 ЕО ВС, 12345 
23814 СО 28 20 САЁЕ 11563 ‚Число 12345 БЕС переносим 
‚на стек. 
23817 ЕЕ ВОТ 40 ‚ Включение калькулятора. 
23818 04 ми 1р1у ‚ Умножение. На стеке слу- 
‚ чайное число от 0 до 12345 
23819 27 Тит ‚ Выделение целой части. 
23820 38 епдса1с ‚ Выключение калькулятора. 
23821 ЗЕ 02 ЕВ А, 02 
23823 СО 01 16 САЕЕ 5633 ‚Открыли канал печати на 
‚ экран. 
23826 СО ЕЗ 20 САЕЕ 11747 ‚ Процедура РАТМТ_ЕР. Печата- 
‚ет действительное число, 
‚ находящееся на вершине 
‚стека калькулятора. 
25829 ЗЕ 06 ГБ А, 06 
23831 07 ВУТ 16 ‚ Печать кода СНЕ$ 6. 
23832 С1 РОР ВС ‚ Восстановление счетчика. 
23833 10 ВЕ УМХ 11 ‚ Возврат на повторный шаг. 
23835 С9 ВЕ ‚ Выход из процедуры. 


Демонстрационная программа 4.3 показывает, как применяется процедура ВМО. 
Здесь эта процедура используется для задания случайным образом цвета и высоты домов в 
городе и может быть использована в программах типа "Бомбардировщик". Все 
необходимые символы ЧОС здесь уже определены и Вы можете легко усовершенствовать 
эту программу для своих целей. 

Начальное изображение на экране формируется с помощью БЕЙСИКа, а 
последующее, через несколько секунд, с помощью программы в машинных кодах, что 
позволяет сравнить скорость выполнения функции ВМО. Чтобы не менять начальное 
значение для генератора случайных чисел, используйте для вызова программы в машинных 
кодах не РАМРОММЕ ЧЦ$В "адрес", а ЕТ "переменная" = УЗВ "адрес". Можно использовать 
команду РЕМТ Ц$ВР "адрес", если Вы хотите получить число, записанное в регистровой паре 
ВС после выхода из процедуры в машинных кодах. Для установки цветов РАРЕВ и ТМК в 
процедуре используется 

ЕО (Т\+83), 47 
вместо 

[О А, 47 и 

ЕО (1Т\+83),А. 

как это было в предыдущих примерах, что позволяет уменьшить требуемый для 
процедуры объем памяти. 

Перед вызовом генератора случайных чисел в регистр А записывается значение 
коэффициента п в формуле АМО*п, которое затем передается в ячейку по адресу 23681 (в 
стандартной версии это неиспользуемая ячейка в области системных переменных). Это 
число округляется до ближайшего целого числа и записывается опять в регистр А, а оттуда, 
с помощью процедуры САЦ 11733 переписывается на вершину стека. 

Необходимая для организации вывода на экран информация находится в буфере 
принтера в следующей последовательности: 

АТ(22), х,у, 1МК(16),а$, 6$. 


5. ОБСЛУЖИВАНИЕ КЛАВИАТУРЫ 


Существуют два способа создания программ в машинных кодах для опроса состояния 
клавиатуры. Оба способа вполне приемлемы, но конкретный выбор одного из них зависит от 
типа программы. 


5.1. Использование системной переменной ГА$ЗТ_КЕУ. 

В области памяти ОЗУ компьютера "7Х-Зре‹гит" имеется процедура КЕУЗСАМ 
которая вызывается каждую 1/50 секунды для опроса состояния клавиатуры и изменения 
соответствующих системных переменных. В случае, если будет нажата произвольная 
клавиша, то установится 5-й бит системной переменной Е-АС5$(23611 ОЕС = 5СЗВ НЕХ), 
сигнализирующий о факте нажатия клавиши, а код нажатой клавиши запишется в системную 
переменную ГАЗТ_КЕУ. Если же не будет нажата ни одна клавиша, то при каждом вызове 
процедуры КЕУЗСАМ будет увеличиваться на 1 только значение системной переменной 
ЕААМЕ?. 

Поскольку команда процессора НАЁЕТ приостанавливает выполнение программы до 
очередного вызова процедуры КЕУЗСАМ, то можно реализовать в машинных кодах 
программу, аналогичную по действию ВАЗ!С-команде РАЦЗЕ 0 (см. листинг 5.1). Эта 
программа зациклена на непрерывной проверке 5-го бита системной переменной ЕГАСЗ и, 
как только будет обнаружено, что этот бит включен (т.е. после очередного нажатия 
клавиши), выполнение программы будет продолжено дальше. Необходимо при этом сразу 
же сбросить 5-й бит переменной ЕТАС$ для того, чтобы при очередном вызове процедуры 
опять сработала задержка до нажатия произвольной клавиши. 


Листинг 4.3 
АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 
23760 ЗЕ 00 [0 А, 0 ‚Черный цвет бордюра. 
23762 СО 9В 22 САЕЕ 8859 ‚ Окраска бордюра. 
23765 ЕО 36 53 2Е [О (1\+83), 47 ‚ Установка цвета: 
‚ РАРЕН = 5; ТМК = 7 
23769 ЗЕ 02 [0 А, 2 ‚Канал экрана. 
23771 С0 01 16 САЕЕ 5633 ‚ Открыли канал. 
23774 Со 68 00 САЕЕ 3435 ‚ Очистка экрана (1$. 
23777 ЕО 21 00 5В [О ТУ, 23296 ‚ Регистровая пара ТУ становится 
‚ указателем на буфер принтера. 
23781 ЕО 36 00 16 [О (Т\+0), 22 ‚В буфер принтера помещаем 
‚КОД 22 - код АТ. 
23785 ЕО 36 03 10 [0 (1\+03), 16 ‚ Гуда же (со смещением +3) 
‚ помещаем код 16 - код Т№К. 
23789 ЕО 21 ЗА 50 [О ТУ, 23610 ‚ Восстановление ТУ в ис- 
‚ ходное состояние. 
23793 ЗЕ ЛЕ [О А, 31 ‚ Счетч столбцов экрана. 
Е1 
23795 32 02 5В [О (23298), А ‚ Текущую координату Х по- 
‚ местили на ее место в буфере принтера. 
23798 ЗЕ ОА [О А, 10 ‚Множитель 10 для Н№О. 
23800 32 81 5С [0 (23681), А ‚ Сохраняем его в 23681. 
23803 СО 61 50 САЕЕ ВМО ‚Вызов копии процедуры ВЕВ. 
‚Копия организована в 23905 
23806 бЕ [О Г, А ‚ Случайное число. 
23807 ЗЕ 13 [О А, 19 
23809 95 ЗВ | ‚ 19-Н№О»*10 - это У-координата 
‚позиции печати. 
23810 32 01 5В [О (23297), А ‚ Заложили ее на свое место 
‚в буфере принтера. 
23813 ЗЕ 02 [0 А, 2 
23815 32 81 5С [0 (23681), А ‚ Множитель при ВМО равен 2. 
23818 СО 61 58 САЕЕ ВМО ‚ ТМТ (В№0х2) 
23821 С6 94 АБ А, 148 ‚ ТМТ (В№0*2) + 148 - выбор 
‚ символа 100 - 148 или 149. 
23823 32 05 5В ЕВ (23301), А ‚ Код печатаемого символа 
‚ переносим в буфер принтера 
23826 ЗЕ 04 ГРА, 4 
23826 32.81 56 [О (23681), А ‚ Множитель при ВМО равен 4. 
23831 СО 61 50 САЕЕ ВМО ‚ ТМТ (В№0*4) 
23834 32 04 5В ЕВ (23300), А ‚ Код цвета ТМК 0...3 
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‚ Включение калькулятора. 
‚ Умножение. 
‚ Выделение целой части. 


23954 38 епаса1с ‚ Выключение калькулятора. 


23955 СВ 05 20 САЕЕ 11733 ‚ Перенос результата в акк-р 
23958 С9 ВЕТ ‚Выход из процедуры НМ. 
Листинг 5.1 

АДРЕС МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 
Е1 
23760 ЕО СВ 01 6Е ВТТ 5, (1+1) ‚; Проверка 5-го бита системной 

‚ переменной ЕЁАбЗ. 
23764 28 РА УВ 7, Е1 ‚ Зацикливание на метку |1 

‚если никакая клавиша не нажата. 
23766 ЕО СВ 01 АЕ ВЕС 5, (1+1) ‚ Принудительное выключение 

‚5-го бита, если клавиша была нажата. 
23770 С9 ВЕТ ‚ Выход из процедуры. 


5.2 Опрос клавиатуры, как внешнего порта: 1М А, (С) 

Аналогично команде БЕЙСИКа ИМ, при этом способе проверяется состояние одной из 
половин ряда клавиатуры. Спецификация проверяемого ряда находится в регистровой паре 
ВС, а код нажатой клавиши передается в регистр А. Так как каждая половина ряда 
клавиатуры включает по 5 клавиш, то для идентификации нажатой клавиши используют с 0 
по 4 биты аккумулятора. Нулевой бит соответствует внешней клавише ряда, а четвертый бит 
соответствует внутренней клавише полуряда клавиатуры. 

Все биты регистра А изначально установлены и, если не нажата ни одна из клавиш, то 
значение регистра А должно быть равно 255. Если же одна из клавиш будет нажата, то 
сбрасывается бит, соответствующий этой клавише. Например, если будет нажата клавиша 
"О", то сбрасывается нулевой бит регистра А и значение этого регистра теперь будет равно 
254. При этом способе можно определить одновременное нажатие более чем одной 
клавиши путем анализа битов аккумулятора. 

Этот способ оказывается весьма полезным для создания игр, в которых участвуют два 
и более игроков, либо для организации перемещения объектов по экрану одновременно в 
двух направлениях. Одним словом, этим приемом пользуются в тех случаях, когда надо 
обрабатывать нажатие пользователем второй клавиши при неотпущенной первой. В 
программе 5.2 показано, как осуществить задержку в выполнении программ до тех пор, пока 
не будет нажата клавиша "0". 

Есть еще один случай, когда опрос клавиатуры как внешнего порта оказывается 
единственным рабочим приемом - случай, когда прерывания работы процессора отключены 
командой 01. 

Даже во время выполнения Вашей собственной программы, написанной в машинных 
кодах, 50 раз в секунду будет вызываться процедура КЕУЗСАМ и, в результате, 
увеличивается время выполнения Вашей программы. Можно отменить эти прерывания 
чтобы сократить время выполнения программы, используя команду 01. Однако, это будет 
означать, что все прерывания запрещены и, следовательно, нельзя будет использовать 
процедуру 1АЗТ КЕУ для считывания состояния клавиатуры, т.е. команда !М остается 
единственный доступным способом. 

В программе 5.3 показан порядок работы при запрете прерываний. 

Всегда помните, что перед выходом из процедуры, где Вы используете команду 01, 
необходимо записать команду Е, разрешающую прерывания. Попробуйте выполнить 
программу 5.3 без этой команды и увидите, что из этого получится. Сброса программы не 
произошло, но компьютер “завис” и для того, чтобы клавиатура вновь заработала, 
необходимо выключить и опять включить компьютер. 

Программа 5.4 является аналогом БЕЙСИК-команды РАЧЗЕ п, т.е. позволяет 
остановить выполнение программы на заданный промежуток времени, либо продолжить 
выполнение сразу же после нажатия произвольной клавиши. Эта программа основана на 
том, что сканирование клавиатуры происходит строго через каждые 0.02 секунды, а команда 
НАЁТ приостанавливает выполнение программы до очередного сканирования клавиатуры. 
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6. МУЗЫКАЛЬНЫЕ И ЗВУКОВЫЕ ЭФФЕКТЫ 


В этой главе мы рассмотрим некоторые способы улучшения работы Ваших программ 
путем включения в них специальных звуковых эффектов или музыки. Но прежде мы должны 
разобрать способ представления чисел с плавающей запятой в компьютере "7Х-Зрегит", 
а также способы записи этих чисел в упакованной форме. 


Интегральная форма записи действительных чисел. 

Любые числа: целые, дробные, положительные, отрицательные, могут быть 
представлены в 5-байтной форме. Первый байт в такой форме записи числа определяет 
экспоненту, а оставшиеся четыре - мантиссу числа. Перевод обычной записи числа в 5- 
байтную форму осуществляется в четыре этапа: 


1. Переводим число в его эквивалент в двоичной системе счисления. 
Например: 

АЗ ее ОТО 

Напомним, что в двоичной системе счисления 

Оо 0: 

0,25: =:.0:, 01 

0,125 = 0,001 ит.д. 


2. Определяем экспоненту числа. Для этого перемещаем десятичную точку влево или 
вправо, пока не дойдём до крайней единицы справа или слева. При этом считаем число 
шагов перемещений. Экспонента будет равна 128 плюс число шагов. Если движение 
производилось влево, то оно считается положительным, а если вправо - то отрицательным. 
В нашем примере получим после четырех шагов вправо: 

ОЛЕОЛЕ 

и, следовательно, экспонента равна 128-+4 = 132. 


3. Меняем состояние бита справа от десятичной точки в зависимости от того, 
положительным или отрицательным было наше исходное число. Если число было 
положительным, то этот бит надо выключить, а если отрицательным, то его надо оставить 
включенным. Таким образом, этот бит будет сигнализировать о знаке числа. 

В нашем примере число было положительным и поэтому после смены состояния бита 


оно будет иметь вил: 
.00110110 


4. Определяем мантиссу числа. Для этого, не обращая внимание на десятичную точку, 
добавим справа определенное количеств нулей, чтобы получить 32-х разрядное число. 
Теперь распределим 32 разряда числа между четырьмя байтами и определим значение 
каждого байта: 

00110100 (54) 00000000 (0) 

00000000 (0) 00000000 (0) 

Таким образом, 5-байтное представление числа 11,375 будет иметь следующий вид: 

132 54а 0 0 0 

Если Вы хотите проверить все вышесказанное, то Вам необходимо ввести короткую 
программу, позволяющую считывать 5 последовательных байтов (например, через РЕЕК) из 
участка памяти, где записаны переменные ВАЗ$!С-программы. Значения переменных в этой 
области хранятся именно в 5-ти байтной форме. 

Теперь вернемся к главной теме этой главы. Операнды ВАЗ!С-команды ВЕЕР, 
определяющие длительность и тональность звука, записываются в калькуляторный стек. 
Калькуляторный стек оперирует и хранит числа, записанные именно в 5-байтной форме. 
Поэтому, чтобы написать программу в машинных кодах для получения звука или музыки, 
необходимо значение этих операндов занести в калькуляторный стек именно в 5-байтной 
форме. 

Процедура ВЕЕР, находящаяся по адресу 1016, извлекает эти два числа с 


калькуляторного стека и воспроизводит звуковой сигнал в соответствии со значениями этих 
чисел. Например, для получения эффекта, аналогичного команде БЕЙСИКа ВЕЕР .1,11, 
необходимо числа 0.1 и 11 вначале перевести в их 5-байтную форму: 

0.1 = 125 76 204 204 204 

11 = 132 48 0 0 0 

Теперь необходимо передать последовательно эти 10 байтов на калькуляторный стек. 
Как это сделать, показано в программе 6.1. Здесь используется команда передачи блока 
ГОА. При этом в регистровую пару НЕЁ записывается адрес начала этих 10 байтов в памяти, а 
в регистровую пару ПЕ - адрес вершины стека, который постоянно хранится в системной 
переменой ЭТКЕМО (23653). В регистровую пару ВС записывается число перемещаемых 
байтов. Процедура ВЕЕР извлекает два числа в 5-байтной форме с вершины стека и адрес 
вершины стека восстанавливается, т.е. становится таким же, как и до записи туда чисел. 


Листинг 6. 1 


ОВ@ 23760 

23760 ЕВ 5В 65 5С [О ОЕ, (23653) ‚ В ОЕ установили то, что 

‚ хранится в ЭТКЕМО 
23764 21 Е4 5С [0 НЕ, ВАТА ‚В НЁ - адрес наших 10 байтов 
23767 01 ОА 00 [О ВС, 10 ‚ В ВС - количество пересылаемых байтов 
23770 ЕБ ВО [ОТВ ‚ Переброска данных на машинный 

‚стек калькулятора 
23772 ЕБ 53 65 5С [0 (23653), ОЕ ‚ Переустановили новое значение ЗТКЕМБ 
23776 СО ЕЗ 03 САЁЕ 1016 ‚ Вызов процедуры ВЕЕР 
23779 С9 ВЕТ ‚ Выход 
23780 БАТА ОБЕРМ 125, 76, 204, 204, 204 ‚Число 0.1 
23785 БЕРМ 132, 48, 0, 0, 0 ‚Число 11 


Другой способ передачи чисел на стек калькулятора основан на использовании 
команды 1 А, п и процедуры ПЗУ ЗЭТАСК А, находящейся по адресу 11560, если передаются 
целые числа в диапазоне 0...255. 

Если надо передать целые числа из диапазона 0...65535, то можно воспользоваться 
переброской через регистровую пару ВС и вызов процедуры ПЗУ ЗТАСК_ВС, находящейся 
по адресу 11563. В программе 6.2 показано, как можно передать в калькуляторный стек 
число 11, используя регистр А. 


Листинг б.2 
ОВ@ 23760 

23760 ЕВ 5В 65 5С [О ОЕ, (23653) ‚ В ОЕ установили то, что 

‚ хранится в ЭТКЕМО 
23764 21 ЕЭ 50 [0 НЕ, ВАТА ‚ В НЕ - адрес наших 10 байтов 
23767 01 05 00 [О ВС, 5 ‚ В ВС - количество пересылаемых байтов 
23770 ЕБ ВО [ОТВ ‚ Переброска данных на машинный 

‚ стек калькулятора 
23772 ЕВ 53 65 50 [0 (23653), ОЕ ‚ Переустановили новое значение ЗТКЕМБ 
23776 ЗЕ ОВ [О А, 11 ‚В аккумуляторе число 11 
237178 СО 28 20 САЕЕ 11560 ‚Число 11 помещено на вершину 

‚ стека калькулятора 
23781 СО ЕЗ 03 САЁЕ 1016 ‚ Вызов процедуры ВЕЕР 
23784 С9 ВЕ ‚ Выход 
23785 ВАТА ОЕРМ 125, 76, 204, 204, 204 ‚ Число 0.1 


Упакованная форма записи действительных чисел. 

Теперь познакомимся с записью чисел с плавающей запятой в упакованной форме ис 
использованием кода калькулятора 520ЕС для работы с числами, находящимися на 
калькуляторном стеке в этой форме. 

Перевод 5-байтного числа в упакованную форму включает в себя следующие этапы: 


АДР 


ЕС 


23760 
23761 
23767 
23770 
23771 
23784 


ОЕ. 


АДР 


ЕС 


23760 
23762 
23765 
23768 
23769 
23770 
23773 
23774 
23775 
23776 
23778 


э. 
6. 


7. 


. Начиная с пятого байта, убираем все числа, равные нулю до тех пор, пока не 


выйдем на ненулевое число или не достигнем второго байта 5-байтной записи 
числа. 

Определяем число удаленных байтов К и рассчитываем число д = З-К. 

Вычитаем 80 из числа, записанного в первом байте и, если результат больше или 
равен 64, то переходим кп.6. 

Меняем значение экспоненты (число в первом байте) на число: экспонента минус 
80 плюс 9*64. 

Переходим кп.7. 

Экспонента числа занимает 2 байта. Значение первого байта равно 9*64, а второго 
80. 

Записываем оставшиеся байты после модифицированной экспоненты. 


Для выполнения обратного перехода необходимо: 


1 
2. 
3. 


4. 


Разделить значение первого байта на 64. 

Если будет остаток от деления, то экспонента будет равна 80+остаток. 

Если остатка от деления на 64 не будет, то экспонента равна 80 плюс значение 
второго байта. 

Частное от деления на 64 используется для определения количества 
последующих байтов, это количество равно частному от деления плюс 1. 


Например, для числа 11 упакованная форма имеет вид: 


52 


48 


Делим 52 на 64 и получаем: частное = 0, а остаток = 52. Значит, после экспоненты, 
равной 80-52 = 132, следует только 0+1= 1 байт. В упакованной форме записи он равен 48. 
Следовательно, 5-байтная запись числа 11 будет иметь вид: 

132 48000 

Программа 6.3 показывает, как может использоваться упакованная форма для 
реализации команды ВЕЕР .1,11 в машинных кодах. 


Листинг 6.3 

МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 

ОВа 23760 

В5Т 40 ‚ Включение калькулятора. 

ЕЕ 34 ЕБ 4С СС СС СС тк Чака ‚На стеке 0.1 

34 ЗА 30 этКк_дата ‚На стеке 0.1, 11 
38 епаса1с ‚ Выключение калькулятора. 
СО ЕВ 03 САЕЕ 1016 ‚ Вызов процедуры ВЕЕР. 
С9 ВЕТ ‚ Выход. 


Для получения различных звуковых эффектов можно использовать процедуру ВЕЕР с 
точкой входа 949. При этом значения длительности и тональности звука подаются не на стек 
калькулятора, а соответственно в регистровые пары ГЕ и НЕ. 

Программа 6.4 показывает, как можно программно менять тональность звука, 
используя процедуру ВЕЕР в цикле. При этом будет меняться и длительность, потому что 
длительность звучания является функцией значений, записанных в регистровых парах НЁ и 


Листинг 6.4 

МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 

ОВ@ 23760 
06 ЕЕ [О В, 255 ‚ Инициализация счётчика. 
21 01 00 [О НЕ, 1 ‚ Инициализация высоты тона. 
11 01 00 [00Р [В ОЕ, 1 ‚ Инициализация длительности звука. 
Еб РОЗН НЕ ‚ Надо предохранить НЁ и ВС 
#2 РОЗН ВС ‚от порчи процедурой ВЕЕР. 
СО В5 03 САЕЕ 949 ‚ Вызов процедуры ВЕЕР. 
С1 РОР НЕ 
ЕЛ РОР ВС 
23 ТМС НЕ ‚ Повышение высоты тона. 
10 23 № Е0ОР ‚ Повтор цикла. 
С9 ВЕТ ‚ Выход из процедуры. 


Существует ещё один метод воспроизведения звука в компьютерах Зресгит. Для 
этого нужно знать частоту смены высокого и низкого уровня для каждой ноты и отправлять 
сигнал прямо на динамик, минуя процедуры ПЗУ. Этот метод можно использовать в игровых 
программах для создания "белого шума", эффекта взрыва и т.д. При этом используется 
команда ОЧТ (254), А. Причем этой командой можно не только управлять работой динамика, 
но и менять цвет рамки экрана (цвет ВОВГЕН). 

1. Если только нулевой бит регистра А включен, то ВОВПЕВН - синий. 

2. Если только первый бит регистра А включен, то ВОВПЕВН - красный. 

3. Если только второй бит регистра А включен, то ВОВПЕН - зеленый. 

4. Если бит 4 регистра А включен, то на динамик компьютера идет высокий сигнал, а 

если этот бит сброшен - то низкий. 

Понятно, что если периодически менять состояние 4-го бита регистра А и 
использовать команду ОЧТ (254), А, то частота звука из динамика будет пропорциональна 
частоте смены состояния 4-го бита. Для создания "белого шума“ период чередования 
состояния 4-го бита должен быть случайным, но при использовании стандартной процедуры 
генерации случайных чисел, программа будет выполняться слишком медленно. Поэтому 
лучше использовать в качестве случайных чисел содержимое в каких-то ячейках памяти и, 
тем самым, переключать уровень сигнала на динамике (см. программу 6.5). В этой 
программе в одном цикле трижды используется команда 

ОТ (254), А, 
а также ряд команд МОР, что необходимо для создания временной задержки. 
Длительность звука ограничена. Для этого используется команда 

СР 60 

Цвет ВОРОЕВН также меняется случайным образом, чтобы этот цвет оставался 
постоянным, необходимо переписать биты 3-5 с системной переменной ВОВПЕРВ в биты 0-2 
регистра А. 


Листинг 6.5 
ОВ@ 23760 

23760 21 00 00 ЕО НЕ, 00 ‚Мы начинаем брать данные для 

‚ "белого шума” прямо из ПЗУ. 
23763 ТЕ [1 [О А, (НЕ) ‚ Очередной байт из ПЗУ. 
23764 00 ОР ‚ Пауза. 
23765 03 ЕЕ О0Т (254), А ‚ Выдача сигнала на динамик. 
23757 00 ОР 
23758 00 ОР 
23769 03 ЕЕ ОИТ (254), А 
23771 00 ОР 
23772 00 ОР 
23773 03 ЕЕ ОИТ (254), А 
23775 00 ОР 
23776 23 ТАС НЕ ‚ Переход к следующей ячейке ПЗУ. 
23777 70 [О А,Н 
23778 ЕЕ ЗС СР 60 ‚ Проверка на конец работы. 
23780 20 Е УВ №, 11 ‚ Возврат к началу цикла. 
23782 С9 ВЕТ ‚ Выход из процедуры. 


Если Вы хотите поэкспериментировать с созданием музыки, используя этот метод, то 
вам необходимо помнить, что каждую 1/50 секунды ваша программа будет прерываться 
процедурой сканирования клавиатуры. Поэтому, чтобы сохранить частоту звука, 
необходимо в начале программы запретить прерывания командой П1, а в конце программы 
вновь разрешить их командой Е|. Кстати, именно поэтому невозможно прервать выполнение 
команды ВЕЕР клавишей ВВЕАК. 

Помните также, что в игровых программах звуковые эффекты не должны быть 
слишком длинными, т.к. на это время может приостанавливаться движение персонажей. 


(Продолжение следует) 


РОВУМ 


Нам пишет Галунов В. А.: 

Расскажите, пожалуйста в "7Х-РЕВЮ-93" о спрайтах: что это такое (формулировка). 
Как их хранить в памяти, как ими пользоваться и как создавать. Расскажите, пожалуйста о 
мультипликации. Если Вы намечаете осветить эти вопросы в своих книгах о графике 
"Спектрума", то большое спасибо... 

ИФК: Спасибо Вам, уважаемый читатель за хороший вопрос. Действительно, все о 
спрайтах войдет в третий том "Графики Спектрума", который называется "Динамическая 
графика" и работа над которым сейчас близится к концу. 

КОРР: ... Все Ваши книги я с радостью покупаю и буду покупать. 

ИФК: После этих слов хочется работать, работать и работать. 

КОРР: Да, кстати, побольше рассказывайте об адаптации программ под ТВ-0О$ и о 
многом другом, связанном с этой системой, ведь все большее и большее число 
пользователей приобретает дисководы. 

ИФК: К сожалению все большее число пользователей уходит не только в ТВ-0О5, но и 
еще дальше - на работу с 1ВМ-совместимыми машинами. Поскольку мы всегда думаем не 
только о завтрашнем дне, но и о послезавтрашнем, то и сами постепенно дрейфуем в том 
же направлении. Т.е. все меньше людей остаются на "Синклеровском" фронте и нам бывает 
трудно объимать необъятное. 

Тем не менее, нет никаких проблем для того, чтобы печатать на наших страницах те 
материалы, которыми, готовы поделиться наши читатели, и для ТВ-0О$ мы всегда дадим 
зеленую улицу, если такие энтузиасты найдутся. 

КОРР: И еще один вопрос: как снять со стека калькулятора число, чтобы работать с 
ним в машинном коде? 

ИФК: Поделимся простым приемом. Если Вы вызовете калькулятор из маш. кода 
командой АЗТ 28Н, а потом тут же выйдете из него командой ОЕЕВ З8Н (епа_са!с), то в 
результате этого автоматически в регистровой паре НЕ установится значение, равное 
ЭТКЕМО -5. Таким образом, Ваша регистровая пара НЕЁ укажет на начало пятибайтного 
числа, хранящегося на вершине стека. Далее байт за байтом Вы "прощелкаете", что там есть 
и перегоните его туда, куда Вам надо и так, как Вам надо. Надеемся, что с форматом записи 
таких чисел Вы знакомы, а если нет, то надеемся, что заказанная вами литература дошла 
успешно и Вы этот вопрос разберете. 

Это, так сказать, теория, а на практике Вам вряд ли когда захочется обрабатывать вне 
калькулятора действительные числа с плавающей точкой. Скорее всего, Вам и нужно-то 
взять оттуда целое число в диапазоне от -65535 до +65535. А раз это так, то можно сделать 
еще проще, воспользовавшись готовой процедурой ПЗУ, которая называется ЕР_ТО_ВС и 
находится, по адресу 20А2 (11682 ОЕС). Вызовом этой процедуры Вы округлите то число, 
которое есть на вершине стека калькулятора до целого и перегоните его в регистровую пару 
ВС, после чего можете делать с ним все, что хотите. 

Как Вы понимаете, не всякое действительное число может быть "втиснуто" в такие 
ограниченные рамки. Может быть, оно туда и не "влезло" и процедура не сработала. Чтобы 
узнать об этом, надо после вызова процедуры ЕР_ТО_ВС проверить состояние некоторых 
флагов регистра Г. 

Если результат слишком велик, т.е. больше 65535, то процедура включает флаг 
переноса САВВУ. 

О том, что число отрицательное сигнализирует выключенный флаг нуля - флаг 2ЕРО. 


Нам пишет Д. Зайцев из Пензы: 
Я провел небольшое исследование программы ЕНТЕ. Байты 16 и 17 - это внутренние 
часы игры. Только по определенным значениям этих байтов Вам предлагают выполнить 


миссии.... 

ИФК: Напомним читателям, что речь идет о байтах отгружаемого блока при 
сохранении состояния. Байты 16,17 не были идентифицированы ранее (см. 7Х-Р-92, М 5,6, 
стр. 123,124). 

КОРР:... Например, если заслать в 16 байт число 31, то после гиперперехода Вам 
предложат выполнить первую миссию. Если же записать в этот байт число 128, то Вам 
встретятся корабли-невидимки, при этом байт 93 должен быть обнулен (он свидетельствует 
о наличии на борту СЕОАКМ@ БЕМСЕ). Это надо сделать, потому что если там находится 
число 67, то ни первую, ни вторую миссию Вам уже не предложат. Числа, которые должны 
быть записаны в 16 и 17 байты для перехода к третьей миссии мне неизвестны, т.к. я имею 
рейтинг РАМСЕВОСЦЗ (в байтах с 13 по 15 у меня числа 175,2,9). 

Теперь о неизвестных байтах 71-74. По моему мнению, это данные о планете, на 
которой Вы находитесь. К примеру, 73 байт - это техническое развитие планеты. 

Неизвестный 92-ой байт - это байт, отвечающий за третью миссию. Если Вы запишите 
в него число 1 или 2, то Вам предложат ее выполнить. Если Вы установите в этом байте 
число 3, то миссию Вам уже предложили и Вы можете лететь взрывать станцию, 
захваченную Таргонами. 


Нам пишет Пушкарев Александр Николаевич из г. Петропавловска-Камчатского: 

Я по поводу ЕНТЕ. Копаясь в ЗОУЗТИСК СЕЗВ - версии я нашел один интересный РОКЕ 
39517,0. Он отключает расход энергии. Самое интересное, что теперь можно без 
ограничений использовать СГОАКМ@ ОЕМСЕ, которое из малополезного устройства, зря 
расходующего энергию, превратилось в очень полезную вещь. 

Еще я решил исследовать один вопрос, а куда же летят все корабли?... 

ИФК: Мы страшно горды тем, что вкус к исследовательской работе стал характерной 
чертой истинного "Синклериста". 

КОРР: ... Все корабли летят со скоростью 0,5 максимальной и направляются они к 
звезде, где бесследно исчезают. Обычно я пристраивался в хвост и, уравнивая скорость и 
курс, плелся за ними следом. Интересно, что когда я выключал СТОАКИМ@ ОЕМСЕ, корабли 
резко набирали скорость и взмывали вверх. 

ИФК: Еще бы! Кому же приятно, когда у него на хвосте сидит корреспондент "7Х- 
РЕВЮ"! 

КОРР: Исследовал я и вопрос, почему не у всех получается заправка топливом у 
звезды. Дело это непростое и требует аккуратности. Надо подлететь к звезде 
перпендикулярно, снизить скорость до половины и ждать, когда датчик температуры 
поднимется тоже до половины. Только тогда появится сообщение о заправке. 

Решил я попробовать и "грязный бизнес" - торговлю наркотиками. И вот, что 
оказалось. Примерно через 10 - 15 перелетов при входе на станцию корабль оказывался 
захваченным пиратами. И никаких компромиссов, это происходит всякий раз. Пираты 
подстраивают ловушки дельцам, занимающимся грязным бизнесом непрерывно. 

МФК: Блеск! если бы Вы знали, сколько килограммов писем с жалобами на неэтичное 
поведение пиратов мы получаем. Оказывается, "кто-то кое-где у нас порой" ведет себя в 
космосе не по-христиански и бывает заслуженно за это наказан. Особенно нас обрадовало в 
этом сообщении то, что такую гипотезу мы выдвигали в одном из ранних выпусков "РЕВЮ" и 
теперь она подтвердилась. 

КОРР: Хочу также отметить одну особенность УОУЗТИСК-СЕОВ-версии: здесь очень 
часто встречаются "Кобры" и ни разу не видел ни одного корабля "АББЕРВ". Наверное, их 
заменили на "КААП". 

Хочу также поделиться с читателями несколькими разысканными мною РОКЕ$. 

1. 01773 - 63001,0 (РЕСА). 

2. ТО! (Газе 1) - 50297,0 

3. ТО (Газе 3) - 49693,0 


4. ТО! (Еазе 4) - 49485,0 

5. АТ ММАН 2 - 43831,255 (ЕО Ап) 

6. СОР ОЦТ - 32817,255 

7. ММУА СОММАМОО -29076,255 

8. С-ТВАЗЕН - загрузить в #61А8, #88ВА, #В0С0 - число не более 9. Программа 
выполняет проверку! 

9. МОУ (Еа${ Сгизаае) 

Блок длинной 20992 (#5200) загрузить начиная с #6000. После этого: 

#0ЕОО0,0 (не убывает оружие) 

#А044,#3С (долгая жизнь) 

#АОЕ4,#3С 

10. ОВАСОМО?З - 64215,0 

11. ЗНОСК \МАХ - загрузить стандартно, а затем: 

#8В427,0; #В426,0. 

Во многих современных играх найти РОКЕЗ для "бессмертия" через аккумулятор не 
удается. В программах, например ОААСОМО$, ЭНОСК \М/АУ и др. не используется операция 
ОЕС А. Вместо аккумулятора работает регистровая пара НЕ. Выглядит это примерно так: 

[О А, п 
[О (адрес), А 
ЕВ НЕ, (адрес) 
ВЕС НЕ 

Для обессмерчивания игр я использую монитор \МЕЗ8Н++, который загружается в 
экран, благодаря чему можно грузить файлы любой длины, кроме тех, которые сами тоже 
грузятся в экран. Обессмертив игру, я выгружаю ее или здесь же и запускаю. 

ИФК: Спасибо, Александр Николаевич! С нетерпением ждем новых открытий. 


* * * 


Нам пишет Алексей Березин из г. Колпашево, Томской области: 

Я подписался на Ваш журнал в 1991 ив 1992 г.г. и теперь с удовольствием отмечаю, 
что не зря потратил деньги. Особенно мне нравится раздел ЕОРВЦМ... 

ИФК: Спасибо, Андрей! Ты уже понял, что после принятых мер он будет еще более 
оживленным и надеемся, что теперь он тебе понравится еще больше. 

КОРР: ... Кроме того, сам я немного хаккер и люблю вскрывать разные игры. Мне даже 
удалось переделать игру ГОРЕВУММЕН. Переделал я не только уровни, но и персонажей. 

Весьма заинтересовала меня Ваша классификация версий программы "ЕМТЕ", данная 
в номерах 3,4 за 1992 г. Сам я давно пользуюсь версией, помеченной Джеком О"Лантерном 
(Часк О'Тащегп ргезещ$), а недавно я нашёл и версию Чоузйск СшБ’а. Теперь имею 
возможность сравнить их. 

Во-первых, сразу после загрузки версия 4.С. выдает надпись Ргез$ ФЗрасе, 
Соттапаекг, а версия 4.0"(. - надпись "1оаа Мем/ Соттапаег \е$ ог Мо?" 

Если нажать "\" и выгрузить ситуацию, а потом войти в игру, то вам дают несколько 
миллионов кредов, статус ГидЙме, рейтинг ЕНТЕ, а корабль забросят в 47-ю галактику, да к 
тому же сразу предложат и первую миссию (спасти беженцев). После этого Вы попадете в 8- 
ую галактику, причем если совершить оттуда межгалактический перелет, то Вы попадете в 
первую галактику, но ни одной знакомой звезды там не увидите, нет там ни 1А\МЕ, ни 
ТОМИЗЕА, нет к сожаление и планеты Вахха. 

Во-вторых, в версии у.О’Ё отсутствует корабль КААП, но доказано, что существует 
ЗТААМСЕРН, похожий на астероид... 

ИФК: В свое время мы о нем неоднократно упоминали. 

КОРР: Я неоднократно встречал этот "объект" в 1-ой галактике между планетами 
ОМНВА и ГАВАЁЕ и около ПОМ$УЁЬА, Если начать стрелять в него, он выпускает 2-3 
"Сайдуиндера" или "Эддера". 

В-третьих, корабли "Сайдуиндер", "Эддер" и, возможно, "Эсп-МК-2" здесь всегда 
пираты. Впрочем, насчет "Эспа" я не совсем уверен, хотя, кажется, ни разу не встречал 


мирно настроенного "Эспа". 

Захваты пиратами в версии .О"(. очень редки. Со мной такое произошло лишь один 
раз... 

ИФК: Это не факт. Возможно, что Вы просто вели целомудренный образ жизни и Вас 
не за что было наказывать? 

КОРР: ... Вокруг станции всегда пустынно и не летают даже полицейские "Вайперы". 
Таргоны, если встречаются, летают всегда поодиночке. В версии +.О’Ё. работают все 
РОКЕЗ, напечатанные Вами. Также хорошо проходит заправка топливом от звезды. 

В заключение хочу предложить собственную разработку описания к программе ВСК 
ОАМСЕВНОЦ5, некоторые РОКЕЗ и несколько "жучков". 

Некоторые РОКЕЗ. 


1. СОЗА МОЗТВА - 39717,0 
2. ВЕХ-1 - 39402,0; 40057,0 
3. ВЕХ-2 - 39176,0; 40303,0 
4. СК БАМ. - 58356,0; 64075,0; 64166,0 
5. ЭТАА ВРУММЕН -49560,183 
6. 0177\-3 - 30273,182 
7. 0177\-4 - 63001,183 
8. ОУМАМПТЕ БАМ - 29002,182 
9. РААВЕМНЕП-3000 - 30818,0 
Некоторые пароли. 
ЕАЕООУ-2 897653 
НУРЗУ$-2 ОВОМ/ $ $ АРТ 
РНАМТ!$-2 18757 
ТАЧЕМО-2 270653 


МАМУ МО\Е$ -2 63723 
САМЕ О\ЕВ-2 18024 
ВЕХ-2 8980818908609407 


Некоторые секреты. 
1. СНАВОМОЗ - В таблице лучших результатов набрать большими буквами слова: ЛМ@ 
Г ВАВУ -получите супер-лазер. 
2. ООМ/М ТО ЕАВТН - при игре нажмите одновременно клавиши 2,3,4,5 и, удерживая 
их, нажмите 1. Загорится надпись “РЬАМЕТ СЕЕААЕО" и Вы перейдете на следующий 
уровень. 


ИФК: Большое спасибо, Алексей. Ну какой же “синклерист" откажется от свежего 
РОКЕ. Без хорошего РОКЕ компьютер сирота. 

Правда, с описанием В.О. мы, пожалуй подождем, знаете ли, игра ведь в общем-то 
аркадная и требует не столько работы головой, сколько пальцами. Так что вроде бы и 
описание для нее не очень критично. Хотя все равно спасибо за труд, особо отметим, как 
красиво Вы его распечатали. 

Если сможете "раскрутить" что-либо требующее специальных знаний, имитатор там 
какой-нибудь или, скажем адвентюру, не говоря уж о стратегических программах, нашим 
восторгам не будет предела. Ждем контакта. 


* * * 


Нам пишет Чугайнов А.Г. из Владивостока. 

Огромное спасибо всем, кто пишет "ИНФОРКОМу" в раздел "Форум". Мне очень 
помогли Ваши советы, а особенно РОКЕ$... 

ИФХ: Боже! Как Вы правы! Ведь если кому и говорить спасибо, так это нашим 
читателям и корреспондентам, которые четыре года поддерживают наше общее дело и 


добрыми словами и полезными советами и, что греха таить, материально. Сейчас ведь без 
крепкого рубля в кулаке ни строчки не напечатаешь. 

КОРР: ... К сожалению, я не нашел пока ничего для своих любимых игр ТВУЕМО_2 и 
САМЕО\МЕВ_2. Вы ведь знаете, некоторые фирменные игровые программы делают в 
нескольких частях, а если вторая часть защищена паролем, то не удается войти в 
программу. Вот с такой проблемой я столкнулся... 

ИФК: Здесь нам трудно удержаться от того, чтобы не поставить мегабайт 
восклицательных знаков. Смотрите предыдущее письмо!!! 

КОРР: ...М еще. Недавно я достал 4 программы из серии ПГУ. Программа 
адвентюрные, а значит очень интересные... 

ИФК: Не совсем так. Это не адвентюрные программы, а аркадно-адвентюрные. Но они 
действительно безумно интересные и, кстати, далеко не самые сложные, поскольку все 
действия в них довольно корректно логически обоснованы. Кстати, тех любителей этого 
жанра, которые планируют переходить на 1ВМ-технику, должны предупредить, что там этот 
жанр представлен весьма и весьма слабо. Там развитие программного обеспечения идет по 
другим направлениям. У нас коллекция немалая, порядка 1000 программ, но мы 
испытываем грусть и ностальгию из-за нехватки аркадных адвентюр. Пока мы знаем их не 
более десяти. 

КОРР:... Первую часть я наполовину прошел, только про некоторые предметы не знаю, 
для чего они, а за остальные пока еще не брался. Не могли бы Вы напечатать в "7Х-РЕВЮ", 
как пройти, эти программы. 

ИФК: Дорогие читатели. Здесь есть масса проблем, в принципе, конечно, это можно 
сделать. Мы и сами их прошли, да и писем от тех. кто это сделал, накопилось немало. 
Несколько человек уже прислали свои проработки этих программ, еще больше получено 
предложений. 

Дело в другом, Вы знаете клятву Гиппократа - "Не сделай больному хуже". Мы уже 
двадцать раз могли бы опубликовать технику прохода этих программ, но есть какое-то 
сомнение, которое мы никак не можем перешагнуть, ведь после этого будет утрачен весь 
интерес к игре, в общем, нет у нас пока такого законченного материала, который мы не 
побоялись бы опубликовать, а дать список “хинтов" было бы просто насилием над 
интересными программами, тем более что по рынкам страны и так ходит штук двадцать 
разных кустарных сборников "хинтов". 

Давайте мы поступим так. Вы знаете, что мы начали эксперименты над новым жанром 
"Компьютерной новеллы". Если у нас это дело пойдет, то в выигрыше будут все, кто любит 
игры и тогда, может быть, мы сможем перешагнуть через тот груз ответственности, который 
сейчас вяжет нас по рукам и ногам. 


Нам пишет Денис Садошенко из г. Днепропетровска: 

Здравствуйте, коллеги! Очень обрадовался я заглянув на 211 страницу выпуска 9-10 
"7Х-РЕВЮ"-92. Как Вы понимаете, там было описание игры ВИМКУ$, любезно проверенное 
Вашим редактором. Результатом я вполне удовлетворен, хотя все же некоторые нюансы 
имеются... Но я очень рад, ведь это мое первое сочинение и первая его публикация. 

ИФК: Спасибо Денис! Будем работать еще лучше. Кстати, Вашу работу почти не 
пришлось редактировать, Вы пишете очень хорошо. 

Позвольте высказать только одно пожелание. Когда Вы пишете новеллу, то перед 
Вами, очевидно, возникает образ человека, играющего в эту игру. Попробуйте заменить 
этот образ на человека, который в эту игру не играет и вообще ни в какие игры не играет, да 
и компьютера у него никогда не было. Попробуйте сменить акценты. На первом месте 
поставить не задачу дать необходимые подсказки, а просто заинтересовать его игрой, а 
подсказки по-возможности запрятать где иносказанием, где встроив их в какой-либо 
диалог, а где только намекнув на них. Посмотрите, что тогда получится, конечно, это только 
мнение и оно никак не должно ограничивать Ваше творчество. 


Недавно у нас был очень интересный опыт именно такой проработки. Мы в несколько 
рук "раскрутили" игру "Тпе Еуе ор Вепо!аег" (это для 1ВМ-совместимых машин) и передали ее 
для публикации нашим коллегам в журнал "МОНИТОР". Выйдет она в июне-июле. Если 
сможете достать этот журнал, почитайте, не пожалеете. Кстати, там почти в каждом номере 
есть наши статьи по игровому ПО. 

КОРР: ... Скоро Ваша копилка пополнится еще одним описанием, схожем с ВЫМКУ$ - 
это сериал 072У с 1 по 6. Это та же компьютерная новелла, так же нравится моим друзьям и 
знакомым. 

ИФК: Ждем с нетерпением. Может быть, наконец-то это именно то, на что мы никак не 
можем решиться?? Такой сериал нам сейчас был бы очень кстати, поскольку наш редактор 
раздела "Компьютерная новелла" сейчас очень занят работой над сериалом ЗРЕШ-ВОЧМО - 
КМНТ ТУМЕ - ЗТОАМВАМСЕВ, а те, кто знают что такое адвентюрные игры, понимают, 
насколько круты эти программы. 

КОРР: Я хочу предложить вашему вниманию список адвентюрных игр, которые я знаю. 
Понятно, конечно, что здесь присутствуют далеко не все. Может быть Вы его опубликуете? 
Пусть читатели "РЕВЮ" его дополнят. 

ИФК: Мысль интересная. Таким способом можно определить наличие игр этого 
жанра, имеющих хождение по СНГ. Правда, в Вашем списке нет названий фирм и этот 
недостаток существенен, поскольку многие пополняют свои игротеки не по названиям игр, а 
по фирмам. Точно так же, как Вы собираете себе библиотеку по любимым авторам. Где 
смогли, мы дали названия фирм от себя. 


ИГРЫ ЖАНРА АБ\УЕМТОВЕ. 


АРТЕВЗНОСК НЖегсерюг 
АО\УЕМТИВЕ 1 Аауептиге 
АБ\УЕМТИВЕ "А" 

("РЕАМЕТ ОЕ ОЕАТН") —А|с 


ТНЕ ВОС@Т САЁ 

ВОРЕО ОЕ ТНЕ НВ МО$ Оена 4 

ТНЕ СНАЦЕМСЕ Тетр{аНоп 
ОООМРВААК'$ ВЕМЕМСЕ Веуопа 

ОА\МУ ОМЕЗ ГОСКЕВ у. Госкегбу 
ОВАККНЕМ & ТНЕ СНАМВЕВ 

ЕМЕРАШО 1ЗЁЕ Ееме! 9 
ЕЗРЮМАСЕ 1ЗВАМО 

(АБУЕМТОВЕ "О") Ас 

МСА СУАЗЕ 

(АБУЕМТОВЕ "В") Ас 

1СЕ РАГАСЕ 

|МНЕНТАМСЕ штодгатез 
МЗРЕСТОНВ ЕШОКЕТ 

СОНОЧИЕ$ 1М$ 

СМОМЕ РАМСЕВ 

СВЕМНМ$ Аауетиге 
НЕВОЕ$ ОЕ КААМ у\гсер{ог 

ТНЕ НЕМ Егебиа 

НУАСК Еесис Огеатз 
НОВВТ МеБоигпе Ноизе 
НЕА\/У ОМ ТНЕ МАС!С Сагооуе Сатез 
НМАМ Аауетиге 
НУМСНВАСК-1,2,3 Осеап 
НАМРЗТЕАО МеБоигпе Ноизе 


НЕААТЬЕАМО оат 


ЧЕММЕТ$ ОЕ ВАВУОМ НЖегсерюг 


КАВУЗЗА шсепНуе 
КАУГЕТН Аауетиге 
КМАН! 

КМО'$ ОЧЕЗТ Зегта-оп-Шпе 
КОВУАСН! МАВУ Мачейгопс 
ГОСК ЗНЕН 2 

ИТТЕЕ СОМРОТЕВ РЕОРШЕ Асмзоп 
ГАМВЕРУ МУЗТЕРУ 

ГОАО ОРТНЕ ВН МС$ 1,2 МеБоите Ноизе 
МАЗТЕВ ОЕ МАС!С Мазейгоп!с 
ММОЗНАВОМ/ Асймзоп 


МУЗТЕРУ ОЕ АВКНЕМ МАМОВ 1!опдоп Свгопае 
МЕУЕРВЕМО!МС ТОРУ 1,2,3 Осеап 


РУЗГКА РАМОРОВУ 
ВОНМ ОР ЗНЕВЕОСК ОеНа 4/ЗЙуегзо" 
ВОММЕ СОЕЗ ТО НОНММООРО 5-1 Вау 
ВЕВЕЕ РЕАМЕТ 1$ доа 
АВЕО НАМК МеБоигте Ноизе 
АВЕО МООМ Ееме! 9 
ЗНЕЛАГОСК МеБоигтпе Ноизе 
ЗЁАМЕ КМС 
ЗНР ОРОООМ 

АОБ\УЕМТИВЕ "С" Ас 
ЗНАОО\М/5 ОР МОВООН (см. ГОРО ОРТНЕ В МС$ 2) 
ЗНСОМ ОВЕАМ$ Ееме! 9 
ЗМОМ/ВАЕС Ееме! 9 
ЗОАОЕНКОМ'$ ЗНАБОМ/ Веуопа 
ЗТОАМВЕАИМСЕВ Мазейгой!с 
ЗЮОМЕУ АРРА!В штодгатез 
ЗРЕНВОЧМО Мазейгой!с 
ЗАМ СВИ$ЗЕ Мегозрйпеге 
\УЕВА СРУ$ АЕЕАПВ 1,2 штодгатез 
ММТСН'$ САЧЕОАОМ Мгсго-деп 
\МОТЕРАМ Соае Маег$ 
\М/МОВМ 1М РАВАО!$Е Ееме! 9 


* * * 


Нам пишет Владимир Зареев. 

Здравствуйте, пишет Вам Ваш читатель из г. Заволжье Нижегородской области. Я 
читаю Ваши описания и заметки по программе ЕЧТЕ и хочу внести свой вклад для 
начинающих игроков. Дело в том, что во всех описаниях, которые я прочел, стыковка с базой 
описывается, как сложное мероприятие и таким способом трудно стыковаться даже 
опытному пилоту. Мой же способ позволил многим моим друзьям преуспеть в космическом 
бизнесе. 

Однажды, вылетев из базы и решив покончить жизнь самоубийством, я нацелился 
пониже входного отверстия и на полной скорости ... влетел в базу. Меня это очень удивило, 
но попробовав еще несколько раз, я убедился, что это не случайность. Этот способ я 
проверял на двух версиях программы: с пометкой М128 и в версии аск О'ащет. При этом 
очень удобно пользоваться бестопливным перелетом с Кориолиса на Кориолис, описанным 
в (Х-РЕВЮ за 1991 год. 

Прошу напечатать эту заметку, т. к. она поможет многим. 

ИФК: Печатаем с удовольствием. 


От себя хотим добавить, что бог сделал все нужное простым, а все сложное 
ненужным. 

Да и вообще, как показывет жизнь, очень часто интересные находки бывают 
неожиданными. У нас тут тоже на днях был интересный эпизод. Заходим как-то в одной 
адвентюре в одну комнату, а там нападает какое-то чудовище, то ли воробей, то ли собака, 
но челюсти, кажется составляют большую часть туловища. Как назло, ружье забыли взять из 
сундука и как от этого монстра ни отбивались, ничто не помогает. В полном отчаянии 
хватаем со стола вазу и в него. Монстра, конечно, не убили, зато ваза раскололась и из нее 
выпал ... ключ, которого ох как не хватало. Впрочем, это отступление к делу отношения не 
имеет и служит скорее для поддержания духа экспериментаторства. Так что пойдем дальше. 

КОРР: А теперь несколько слов об игре АТЕ, описанной С. А. Фокиным в "7Х-РЕВЮ-92" 
(Выпуск 12,с.258). Там сказано, что не надо слишком доверять автопилоту, т.к. самолет 
может не успевать отслеживать рельеф местности и задевает за вершины холмов. 

Все дело в том, что надо убирать шасси. Это делается клавишей "\". Тогда самолет и 
скорость разовьет больше и за холмы задевать не будет. Кстати, режим автопилота у меня 
включается клавишей "Т", а не "Ц". При посадке же самолет тормозит автоматически. 


Нам пишет Дворецков А. И. из г. Кургана. 

Привет, Инфорком! 

Я отправил вам денежный перевод около Нового года, в надежде получить "7Х-РЕВЮ" 
за 91 и 92 год. Отправил, и потерял все надежды получить ответ. Но каково же было мое 
удивление, когда я, наконец, получил его (7Х-РЕВЮ) через 4 месяца! Как это понимать?... 

ИФК: К сожалению, сейчас такие задержки происходят все чаще и чаще. Дело в том, 
что типографии, способные оперативно нас обслужить как правило маломощные и потому 
наши тиражи невелики (2 - 3 тыс. экземпляров), а при работе с более мощными 
типографиями срок от подачи заявки и материала до выхода книжки растягивается на пол- 
года (у них стоит очередь и госзаказы они пропускают вперед, отодвигая нас все дальше и 
дальше). Так и в Вашем случае, в январе несколько оптовых покупателей оставили нас без 
сборника 2Х-РЕВЮ-91. Мы ожидали его очередную партию и спокойно отдали. А 
типография получила госзаказ на печать бандеролей для упаковки банковских купюр и два 
месяца печатала только их (интересно, сколько же купюр нас ожидает в ближайшие месяцы? 
Примерно так это и бывает, конечно же Вам от этого не легче и мы просим прощения как у 
Вас так и у других читателей за подобные задержки. Надеемся, что Вы нас простите и 
поймете. К сожалению. Вы читаете быстрее, чем мы пишем и печатаем. 

КОРР: ... Но когда я стал читать, все мои опасения "как ветром сдуло". Да я просто не 
предполагал увидеть что-либо подобное. Это превзошло все мои ожидания! Я думаю, что 
все синклеристы со мной согласятся. Ну, а теперь немного критики. 

1. Считаю ненужным давать описания различных программ: ВЕТА ВАЗ!С, МЕСА ВАЗ!С. 
Лучше выпустить их отдельной книгой. То же самое и "Секреты ПЗУ. 

2. Статья Михайленко В.С. "Защита программ" - полезная вещь, но много пустых слов. 
Например, много было написано о структуре заголовка (я называю его "шапкой") и о том, 
как лишить программу автостарта. Все гораздо проще. Загрузите Бейсик-загрузчик в СОРУ- 
86М и нажмите клавишу В. Выгрузив на ленту Бейсик-загрузчик, Вы лишите его автостарта. 
Вообще всем хакерам я бы посоветовал брошюру Н. Родионова "Адаптация программ к 
системе ТВ-0О05. Издатель: фирма "Питер" 1992. 

3. Дж. Хардман, Э. Хьюзон "40 лучших процедур" - я в восторге! 

4. "Профессиональный подход" Стива Тернера - выше всяких похвал. 

5. Слово экспертам - аналогично пункту 4 - так держать! 

6. "Форум". Ну а этому разделу я отдаю наибольшее предпочтение. 

На этом вся критика закончилась. 

Могу предоставить вам экспертную проработку программы “ЕСМ ОЕ ОЕАТН" 
(Бесплатно, а в награду я хотел бы получить достоверную информацию: где мне купить 


дисковод и контроллер, возможно вместе со Спектрумом по доступной цене. Помогите!) 

ИФК: Спасибо огромное! Нас очень интересует эта проработка. Наверное, с этим 
согласятся и многие наши читатели. Поскольку мы сами аппаратными вопросами не 
занимаемся и аппаратурой не торгуем, давайте попросим всех, кто знает, как это сделать, 
написать Вам. Наверное, и в самом Кургане Вы найдете надежных консультантов. Кроме 
того, очень хорошо поставлено это дело и в регионах, соседних с Вашим - в Челябинской, 
Свердловской, Оренбуржской областях. Даем Ваш адрес: 

640004, г. Курган ул. Омская, д.4, кв.3, Дворецкову А. И. 

КОРР:... Ну воти все! с уважением, Денис Дворецков 16 лет. 

ИФК: До свидания. Денис. Ждем с нетерпением "Легионы смерти", а пока поспешите 
заказать самый большой почтовый ящик, какой только бывает. Стандартный может не 
выдержать, но вы, надеемся, будете этому рады. 


Нам пишет Камразе Тимофей Михайлович, г. Москва: 

Здравствуйте уважаемые составители рубрики "Форум". 

Я увлекаюсь составлением карт к играм и хочу поблагодарить Вас за вашу отличную 
работу: "Форум" во многом облегчил мне жизнь в составлении плана к "НЕА\МУ ОМ ТНЕ 
МАС!С". Если вам интересно, то могу предложить карты "ПВА-МА-МОС", "ЭАСК ТНЕ МРРЕА 
2", "АНЕМ$"... 

ИФК: Огромное спасибо! У Вас очень интересное хобби. Мы с радостью примем 
карты, хотя здесь есть проблема. Дело в том, что подготовка к печати в текстовом редакторе 
художественно выполненной карты крайне трудоемкий процесс, да и вообще не всегда 
возможна, а у нас нет постоянных кадров, которым можно было бы это дело поручить. 
Просить Вас, чтобы Вы сами сделали карты в виде, пригодном для размножения, 
разумеется было бы бестактно. Вашу карту к игре АНЕМ$ мы с благодарностью принимаем и 
даем для наших читателей, хотя она, конечно многое потеряла при наборе в текстовом 
редакторе (см. на следующей странице). 

КОРР:... Сейчас я работаю над программой "ОУМ-ОБАВАСН". В связи с этим я был бы 
вам очень признателен за освещение этой и других программ фирмы "САВСО\УЁЕ САМЕЗ". 

ИФК: Шесть лет назад, в мае 87-го работая с журналом "Зтсаи Чзег" в библиотеке 
ГПНТБ, что на Кузнецком Мосту, мы видели огромную статью, посвященную этой 
программе, с картой в разворот журнала. Ах, если бы тогда знать, что она может 
пригодиться... Карта представляла из себя план средневекового ирландского города, 
весьма большого и запутанного. Текст статьи был насыщен терминологией из области 
древних ирландских, кельтских и шотландских легенд и, надо сказать, был довольно труден 
для чтения на понимание при нашем тогда еще не очень свободном знании английского 
языка. Ориентировочно этот журнал относился к 84 году и уже тогда был зачитан почти до 
дыр. К сожалению, сейчас мало шансов разыскать его там. 

КОРР:... Теперь к вопросу об “ЕМТЕ". Этой зимой на рынке появилась программа 
"ЕНТЕ-2" (распространитель "$-5ТУБЮ" хорошо известен "тушинским" синклеристам). В 
чем разница между ЕМТЕ и ЕНТЕ-2 установить не удалось. Отличие лишь в том, что 
невозможен гиперпрыжок сквозь станцию. "ЕШТЕ-2" очень напоминает "версию 3" (см. 2Х- 
РЕВЮ МЗ,4 1992). 

ИФК: В чем разница? Пожалуй, на этот вопрос лучше всего ответят наши читатели. 

КОРР:... И еще одно. Есть идея: хотелось бы переделать ЕМТЕ под сеть для игры 
вдвоем. Возможность летать с другом, который может тебя прикрыть или вести бой с живым 
противником, сделает игру неподражаемой. 

К сожалению, у меня нет достаточных знаний. Поэтому я дарю свою идею тому, кто 
сможет ее воплотить в жизнь. 

ИФК: К сожалению, здесь вряд ли что получится. Скажутся и недостаточное 
быстродействие компьютера и малый объем памяти и отсутствие аппаратного и 
программного обеспечения сетевого варианта. Проще, по-видимому, написать новую 


программу, которая и будет заниматься исключительно космическими боями, а вопросы 
торговли и т.п. обойдет стороной. 

Кстати, это как раз тот случай когда целесообразно использовать 1ВМ-совместимую 
машину. Последние два года боевые имитаторы для этих машин выпускаются с 
возможностью работы через модем с живым партнером (противником), а в зарубежных 
журналах появились объявления типа "Ищу партнера для игры в .... и прилагается список 
игр". 


Нам пишет Неведомский Александр Александрович, г. Томск: 

Здравствуйте! Давно хотел Вам написать, да все не получалось... Прошлым летом я 
прошел программу АНЕМ$ по фильму ("Чужие"), но до сих пор ни у кого не видел и нигде не 
слышал о том, чтобы кто-нибудь составил для нее карту. Без карты эту игру можно пройти 
только либо будучи бессмертным, либо если помнить весь лабиринт. Посылаю вам 
составленную мной карту. А это долгий и кропотливый труд.... 

ИФК: Большое спасибо, Александр Александрович, это действительно труд, 
заслуживающий большого уважения и надеемся, что наши читатели его оценят. Конечно же, 
Ваш план и план Тимофея Михайловича совпадают, ведь так и должно быть, поэтому мы 
здесь приводим один план, принадлежащий двум авторам. От себя же добавим, что 
присланный Вами оригинал выглядит гораздо лучше, чем то, что мы из него сделали (с 
учетом высказанного выше соображения о сложности наборе плана в текстовом редакторе). 

КОРР:... Здесь же привожу полезные советы для игроков, составленные по 
собственному опыту, хотя некоторые из них встречаются в других описаниях игры. 

1. Для того, чтобы пройти игру, необходимо привести в комнату "матки" (а их в 
отличие от фильма - несколько) не менее трех человек, иначе не хватит оружия 
(боеприпасов). Да и то только в том случае, если Вы будете метко стрелять. 

2. Выбирайте для этой цели тех героев, управление которыми наиболее удобно (чтобы 
можно было следить за его уровнем энергии, номером комнаты и, конечно, экраном). 
Одного героя обязательно оставьте в комнате М 1. Там его никто не убьет, а Вы вспомните 
мой совет добрым словом в конце игры. 

3. Не рекомендую стрелять в "чужих" до комнаты 78, в которую надо довести 
максимальное число героев. 

4. Коконы имеет смысл "гасить" только в комнате 248. 

5. Всегда целься в голову. У всех "чужих" голова находится на уровне дверного замка. 

6. Нет смысла "запечатывать" двери. Вы не пройдете, а "чужие" все равно пройдут. 

7. Не убейте по неосторожности ребенка. Это девочка. Ее зовут Нют и ее надо спасти. 
За ее обнаружение получите дополнительные 1000 очков. 

8. Не пытайтесь открыть двери с пробитым замком. Не хватит здоровья. 

9: Не устраивайте боев в помещении генераторной. 

10. Не убивайте "чужого" перед дверью. Вы только опалите его шкуру, а он будет 
ожидать Вас за дверью до тех пор, пока кто-то не убьет его с другой стороны (лужа перед 
дверью). 

11. Давайте отдохнуть своим героям, иначе они потеряют подвижность. 

12. Если кого-то из героев захватили и посадили в кокон, его еще можно попытаться 
спасти. Некоторое время он остается живым. Спасти его можно уничтожив в комнате всех 
инсекторептилий и разбив все коконы. 

13. Боезапас пополняется только в оружейной. 

14. Не распыляйте свой отряд по разным помещениям. Так труднее сохранить людей 
живыми. 

ИФК: От имени наших читателей благодарим за полезные советы. От себя хочется 
добавить, что наилучшим советом было бы если и не посмотреть кинофильм (ведь не у всех 
есть видеомагнитофоны), то хотя бы прочитать книгу А. Д. Фостер "Чужой. Чужие. Чужой-3." 
В одном томе собраны все три научно-фантастических романа. 


КОРР: Я обращаюсь к Вам с просьбой. Есть хорошая программа ТОТАЕ ЕСМРЗФЕ 2 
(1991, псепём\е). Я ее почти прошел, но не знаю, как пройти два места: 

- место, где дверь быстро исчезает и появляется (причем над ней черный квадрат); 

- место, в котором требуется слишком много ключей (порядка 4), а их нет (в наличии 
только 2). 

Это очень интересная игра, в ней много сюрпризов и ни один не повторяется. 
Перечислю их: прозрачные стены, порог, забирающий воду, двойные стены, потайной ход в 
камне, тайная плита. Может быть есть что-то еще. Кстати, кто знает, для чего нужен орел, 
который поворачивает голову при выстреле в него. 

ИФК: Спасибо за мнение. Наверное те, кто думают над пополнением своей игротеки к 
нему прислушаются. А может быть кто-нибудь и поможет с решением описанных проблем? 

КОРР: А недавно я прошел программу РЕРЕМОЕН ОЕ СВО\ММ. Это как бы разминочная 
программа для тех, кто любит стратегические игры. У нее великолепная музыка, да и 
исполнена она великолепно. 

МФК: И опять же спасибо за мнение. Любые отзывы о программах важны нашим 
читателям. 


Нам пишет Петухов Владимир из г. Златоуст Челябинской обл: 


Здравствуй, уважаемый "Инфорком"! 

Очень рад, что Вы возобновили подписку по почте. Журнал очень нужный. Трое моих 
коллег после ознакомления с ним будут его выписывать. Мою подписку за 1991 год зачитали 
до дыр. Придется новую выписывать. 

Дай вам Бог здоровья и благополучия каждому и процветания журналу и фирме на 
долгие годы! 

В качестве темы в журнале хотелось бы видеть почаще материалы, посвященные 
дисководам, дисковой операционной системе ТВ-0О$, управлению дисководом из 
машинных кодов. Хорошо бы увидеть материал в конкретных примерах, например как это 
сделано в книге “Методы программирования на Бейсике" И. Кергаль. Перевод А.И. 
Брядинского под редакцией Ю. И. Банковского. Издательство "Мир" Москва 1991 год глава 
Т. 

У Вас, я уверен, это получится хорошо. В целом, занимаясь компьютером с 1990 года, 
я могу с уверенностью сказать, что хотя и медленно, но уверенно общество переходит на 
компьютеры с дисководами, и если "деды" начинали с магнитофоном, то "новички" уже 
рвутся к компьютеру сразу с дисководом, невзирая на материальные затраты и отсутствие 
опыта и знаний. Вот этот момент, на мой взгляд, важно не пропустить "Инфоркому". 

В заключение своего письма еще раз желаю вам всего доброго. 

ИФК: Спасибо, Владимир, за теплые слова. Будем стараться по-возможности и при 
наличии материала развивать высказанные Вами пожелания, включаем все каналы в режим 
"Оп Ипе". Теперь все зависит от наших читателей. 


КАРТА ПРОГРАММЫ АНЕМЗ 
(С) Камразе Тимофей Михайлович, 1993 
(С) Неведомский Александр Александрович, 1993 
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Нам пишет Кохан Валерий Витович, Южно-Сахалинск. 


Уважаемая редакция "7Х-РЕВЮ"! У меня огромное желание иметь Ваш журнал в 
личной библиотеке. Я имею "7Х-ЗРЕСТВУМ" дома и моя работа напрямую связана с этой 
замечательной машиной. Сам я работаю заведующим лабораторией ЭВМ Сахалинского 
областного Дома техники и уже 3 года веду курсы (кружки) "Работа на ХХ ЗРЕСТВУМ и 
программирование на языке Бейсик". Желающих заниматься много, ведь у многих дома 
есть эти компьютеры. "ЗРЕСТВУМ" уверенно завоевывает симпатии сахалинцев. 

Я написал много программ по курсу информатики для компьютерных классов “7Х- 
Зресит" (я работаю на классе Протвинского варианта - Калужская область, Жуковский р- 
н). Это программы-демонстраторы, тренажеры, экзаменаторы с выставлением оценки и 
подсчетом затраченного времени на опрос по следующим темам: 

- опрос по любому предмету (укажи номер правильного ответа) 

- программа-диктант (найди и исправь ошибки в тексте); 

- переводы чисел в системах счисления (2,10,16); 

- логические элементы И, НЕ, ИЛИ; 

- составление арифметических выражений в Бейсике; 

- работа простейшего процессора (решение арифметических выражений); 

- текстовый режим экрана (рисование картинки оператором РАМТ) 
графический режим экрана (рисование картинки по координатам); 
наложение символов и создание символов ЦОС; 
системные переменные; 

программы - демонстраторы применения тех или иных операторов Бейсика 
(программа-будильник, секундомер, жеребьевка, бюджет семьи, база данных "фамилии, 
адреса, телефоны", тренажер и экзаменатор знаний арифметики ит. д. 

Программы исключительно делового применения при ведении занятий по 
информатике или курсов программирования на стандартном Бейсике для классов 2Х 
ЗРЕСТНВУМ. Написаны только на стандартном Бейсике, без модулей музыкальных и 
графических заставок, поэтому проблем с работой этих программ при пользовании 
дисководом и магнитофоном нет. При ведении занятий я только объясняю теоретическую 
часть материала, а всю демонстрационную, тренажерную и опросную работу выполняет 
сама ЭВМ. Я на это время становлюсь консультантом. 

Сейчас я готовлю программы к предложению на рынок. Можно ли иметь 
сотрудничество в этом плане с вашим журналом? Буду Вам благодарен, если дадите любой 
ответ, я человек влюбленный в Спектрум и считаю, что информатику в школах, ПТУ лучше 
всего давать на этом компьютере. Мне хотелось бы, чтобы мои программы помогали 
преподавателям, работающим с компьютерными классами 2Х ЗРЕСТВИМ. 

МК: Уважаемый Валерий Витович! С радостью поможем Вам. Для нас, поверьте, это 
большая честь, ведь основная наша цель - именно образование. 

КОРР:... литературу по 2Х достать сложно, особенно вам, живущим на краю России. 

ИФК: Да, мы об этом знаем и всегда это учитываем. Если у нас случаются проколы с 
нехваткой каких-либо материалов, мы стараемся в первую очередь обслужить жителей 
именно отдаленных регионов. Кстати, основная масса наших постоянных клиентов 
проживает именно там. Все-таки жителям центральных областей проще добывать ваши 
материалы, которые нещадно копируются и перепечатываются пиратским способом 
многими недобросовестными "фирмами". 


ВСЕ, КТО ЗАИНТЕРЕСОВАН В ПРИМЕНЕНИИ “7Х-ЗРЕСТВУМ" в учебном процессе, 
пишите по адресу: 

693008, Россия, Сахалинская область, г. Южно-Сахалинск, пр-т Победы. 75, кв. 19. 

Кохан Валерию Витовичу. 


Нам пишет Епифанов Андрей Валерьевич из Самары: 


Привет, Инфорком! 

Читаю я "7Х-РЕВЮ" и нравится мне там рубрика "Слово экспертам": в ней я много 
узнал о программах, которые у меня были, но я не знал, как и что в них делать. 

И вот решил я поделиться с вами, а заодно и со всеми читателями "7Х-РЕВЮ" о 
похождениях маленького дракончика в программе “МТТЕЕ РУЕЕ", выпущенной фирмой 
СОБЕ МАЗТЕН в 1989 г. 

Это программа типичного аркадно-адвентюрного жанра. В этой игре Вы управляете 
маленьким заблудившимся дракончиком, которому надо вернуться домой. Для этого ему 
надо собрать четыре части паспорта (пропуска) и золотую монетку. Если Вы захотите 
составить карту, то лучше сразу бросьте, т.к. уровни (а их три - один под другим) смещены 
относительно друг друга довольно-таки жутко. В игре приятная музыка и графика, 
смещение плавное, а цвета не утомляют. В лабиринте есть ловушки, в которые лучше не 
попадать. 

Как играть в ИТТЕЕ РУЕЕ? В лабиринте разбросаны разные вещи, которые можно 
поделить на два типа, которые можно использовать и которые не нужны (так я, например, 
так и не нашел применения пистолету), а также всякие фрукты, за которые Вы получаете 
очки. Запас вещей, которые Вы можете нести одновременно, - ограничен, поэтому иногда 
Вам придется проходить в два приема. 

Несколько советов: 

1. Чтобы сжечь дерево, нужна бутыль бензина. 

2. Чтобы проплыть (?) по воде, нужна помпа и спасательный круг. 

3. Чтобы включить лифт (?) надо молотком рубить коробку и открыть дверь выпавшим 
КЛЮЧОМ. 

4. Если открыть бутылку штопором, то у Вас будетеще одна часть пропуска. 

5. Чтобы уберечься от кокоса, надо взять третью часть пропуска в (?). 

6. Если положить кокос на кнопку, то где-то можно отключить защиту и взять 
четвертую (последнюю) часть пропуска. 

7. Для того, чтобы получить золотую (а не дырявую) монетку, надо распилить кокос. 

8. Подойдя к мосту, встаньте на него и подождите, а потом проходите его прыжками. 

ИФК: Мы благодарим Вас, уважаемый корреспондент за заботу о наших читателях. 
Наверное, многих заинтересует эта программа и они скажут Вам спасибо. К сожалению, в 
некоторых местах почерк Вашего письма был не вполне разборчив и там мы поставили в 
скобках вопросительный знак. Впрочем, вряд ли это кому-то помешает сыграть в хорошую 
игру. 

КОРР... Как видите, это не самая трудная и сложная программа, но Вам постоянно 
будут мешать разные обитатели, а жизней у Вас всего одна. 

Еще я хотел задать Вам один вопрос и высказать одну просьбу: 

Вопрос: не знаете ли Вы или кто-нибудь из читателей, что и как делать в программе 
ЗМ/ОАО АМО 5ОВСЕВУ? И какой пароль в игре СРТ.ТВУЕМО 1? 

Просьба: в №1 за 1991 год я прочитал ваше объявление о рассылке вами описания 
дизайнера программ НИВС. Не могли бы Вы прислать его мне? Конверт прилагаю. 

ИФК: Что касается геймдизайнера НУВ@, мы уже очень давно закончили его 
распространение, но для Вас экземпляр найдется, высылаем! 

По доводу ТВУЕМО 2 давайте вместе скажем спасибо Алексею Березину. 

А вот что касается $5&$, то мы с этой программой не знакомы и лучше предоставим 
слово читателям, давайте наберемся терпения и наверное кто-то, кто прошел эту 
программу, поделится своим опытом. 


Нам пишет Алексеев Николай Алексеевич из г. Инта, республика Коми: 


Здравствуйте, уважаемая редакция! 

Я читал 3 и 4 номера РЕВЮ-92 и решил написать Вам об одной из версий "ЕЧТЕ", 
вскрытой Родионовым. 

Я не согласен с тем, что версия, где появляется надпись "М1 ГОАБИМС" похожа на 
"М128". Внешне "М1" и версия Родионова похожи как две капли воды, различие только в 
том, что изменен звук лазера. В обоих версиях при попытке атаковать станцию никаких 
надписей нет, просто не обращают внимания, только невозможно потом на станцию 
залететь. Полицейские из станции не вылетают. Ракетой станцию не уничтожить, даже если 
иметь Е.С.М. ЗАММЕВ, исключение составляет только база таргонов 1ЗВЕМА. При 
попадании в Ваш корабль защита выбивается наполовину, так что если за Вами привязались 
штуки 3 ракеты, то можно и погибнуть. Конечно, с противоракетной системой проблем нет. 
Ваши ракеты действуют здесь неплохо, ими лучше уничтожить корабли АБОЕВ, СОВРВА, 
РУТНОМ - это самые уязвимые корабли. 

Пиратов в этой игре много, полиция не очень серьезная. Если пираты могут нападать 
скопом, то полиция всегда атакует по-одиночке. Все типы кораблей могут быть пиратами, за 
исключением полицейских. В игре нет корабля типа КВАПГ. Пираты обычно появляются вне 
видимости. Встречаются также станции (РЕВЮ-92, М1,2). Их легко искать, надо только 
полететь на феодальную или анархическую планету с низким уровнем. Маневрируя, они 
выпускают корабли типа ЗОЕМИМОЕР и АОПЕРВ от 1 до 3 шт. Очень сложно выполнить вторую 
миссию, когда пираты появляются до 10 сразу. С таргонами лучше всего сражаться с 
технологическим лазером, 15-ть попаданий выбивают их из строя. 

В обоих версиях можно попасть в 47 галактику, у Вас будет много денег, отличное 
вооружение. Но после вылета попадете в 1 галактику, где нет планеты ТА\УЕ. Так что 
фактически это не 1 галактика, а 41. Где-то в 44 и 45 (4 и 5) точно не помню, есть планета 
ГАУЕ! Только уровень у нее 10 - демократический. Так что многие планеты могут 
повторяться. Цены на товар здесь стабильны. Чем выше уровень, тем меньше цены, чем 
ниже уровень, тем выше цены. Разница изменений цен, к примеру, на низких уровнях, 
незначительна. Если Вы случайно убьете мирного торговца, у Вас изменится только статус. 
Вас пустят на станцию даже если Вы убийца. Единственное условие, не стрелять по тем, кто 
по Вам не стреляет, когда загорается знак станции $. На статус можно не обращать 
внимания, но тем, кто не хочет портить статус и быстро передвигается к планете, дам совет. 
На полной скорости врезайтесь в корабль, статус останется прежним, а энергию быстро 
восстановите. 

Предлагаю небольшой жучок для тех, кому трудно выполнить вторую миссию. Когда 
корабль попадет в зону видимости (можно узнать по локатору), надо быстро переключиться 
на задний, а потом на передний экран, и секунд на 10 он будет виден. 

И еще для тех, кто пользуется спасательной капсулой. Когда капсула отлетит от 
корабля, стреляйте в нее, дайте газу, подберите контейнер, и окажетесь на станции. Только 
делать нужно быстро. 

В обоих версиях можно быстро погибнуть, если не предпринимать мер, особенно 
новичкам. Так что версии достаточно сложны. 

Еще я делал эксперимент. В отгрузочном блоке поставил в байтах 61-66 нули, и ни 
одной планеты не было. Потом поставил во всех байтах 255. Все галактики были похожи как 
две капли воды. Сам я считаю, что галактик может быть до миллиона, хотя планеты могут 
повторяться. Я, как и все, ищу планету ВАХХЕА, но пока не нашел. Хотя у меня есть версия, 
что ее нет! Доказательство: Д. П. Шилин открыл текстовый блок. Вот коды 148 ВА. 149 -1А ‚а 
кода где были бы ХХ нет! Если же его найдут, то тогда действительно можно найти планету с 
таким названием. 

ИФК: Спасибо, Николай Алексеевич за исследование. Оно существенно пополняет 
нашу картину знаний об этой уникальной программе. Что же касается поисков планеты 


ВАХХЬА, то с Вашей логикой нельзя не согласиться. Все верно, кода ХХ в программе нет. 
Жаль расставаться с прекрасной мечтой, но ведь можно предположить, что для такой 
избранной планеты авторы могли заложить иной способ кодировки названия. 


Нам пишет Трофимчук Владимир Викторович из Владивостока: 


Здравствуйте! 

Пишу Вам впервые, поэтому хочу поблагодарить за самое интересное, полезное и 
уникальное издание - "7Х-РЕВЮ". Я хоть и не подписчик, но имею все номера "РЕВЮ" и мне 
все в них нравятся. Особое предпочтение я отдаю статьям об адвентюрных играх, но жаль, 
что в этом году Вы отошли от этой темы. 

ИФК: Вы правы, Владимир Викторович, нам и самим очень жаль, что мы отошли от 
темы адвентюрных игр, ведь это наш любимый жанр. Дело в том, что сейчас уже не остается 
времени на то, чтобы от души погонять игровые программы, мы очень загружены работой 
над "РЕВЮ", новыми книгами, обучающими программами, деловыми системами и пр. К 
сожалению, мы никак не можем выйти из ритма работы по 12-14 часов в день без выходных 
в течение уже трех лет. 

Тем не менее, мы с радостью вернемся к этому жанру, если будут интересные письма 
от читателей, к тому же Вы уже знаете из этого номера, что сейчас ведется работа над 
сериалом ЗРЕН-ВОЧМО - КМСНТ ТУМЕ - ЗТОАМВЕАМОЕВН. 

Если же Вы имеете какой-то доступ к 1ВМ-овской технике, то можем порекомендовать 
Вам нашу работу “Адвентюрные игры: эволюция жанра", которую мы опубликовали в 
журнале "МОНИТОР" (ММ 8,9 за 1992 год). 

Впрочем, и этим наши усилия не кончаются. Вот уже более полугода мы 
координируем и финансируем работу крупного авторского коллектива над огромной книгой, 
посвященной игровым программам. Это будет красочный том в подарочной исполнении 
весом килограмма в полтора. Раздел, посвященный адвентюрам занимает там не 
последнее место. Проект пока секретен и название книги мы не сообщаем, но в конце 1993 - 
начале 1994 г. мы очень широко оповестим об этом всю страну. Так что мы еще не совсем 
потеряны для любителей адвентюр (и не только адвентюр). 

КОРР: ... немного о себе: 23 года, имею "Ленинградец" около года, занимаюсь в 
основном с адвентюрами. 

Почему решил написать. Как-то в №6 (1991) в Вашем издании был помещен список 
адвентюр на двух кассетах и просьба, если кто-то пройдет эти игры от начала до конца - 
черкнуть Вам. 

Недавно у меня появились эти сборники, но все по-порядку. 

Приобретя Ваш трехтомник по программированию в машинных кодах, я стал немного 
разбираться в машинном коде фирменных программ, и попробовал для начала 
русифицировать МАЗТЕВЕШЕ 09; конечно, я это делал не так, как описано в одном из 
номеров 1992 года, а с помощью МОМ$4, что гораздо удобнее. У меня получилось, и я 
пошел дальше - перекинулся на адвентюрные игры. Так, мной были русифицированы 
КЕМТША; МЕЗЗАСЕ ЕРОМ АМОНВОМЕПА; РЕАМЕТ ОЕ ОЕАТН; НУМСНВАСК 1,2,3. 

ИФК: Уважаемый Владимир Викторович! Ваши успехи - лучшая реклама нашему 
трехтомнику! Кстати, теперь это уже не трехтомник, а однотомник, ведь мы выпустили новое 
дополненное издание в одном томе. Оно недавно вышло из печати и доступно всем 
желающим; 

КОРР: ...Эти игры я прошел полностью, но про КЕМТШЕА могу сказать, что ее 
"фирменный" вариант содержит грубые ошибки (программа на Вас), из-за чего возможно 
пройти только 50% игры. В своем варианте я эти ошибки исправил. 

"НУМСНВАСК" искалечен фирмой "М1 Гоадтод", из-за чего стал доступен любой этап, 
но с теми предметами, которые вставила фирма, а не нашел играющий. Это я тоже 
исправил, да ктому же сделал удобный ввод для пользователя. 


Так вот, ближе к делу, я перевел такую программу, как САЕМИМФ .... но не могу пройти 
ее до конца, чтобы проверить правильность перевода текста. Эту игру очень трудно пройти, 
хотя команды, которые она понимает, я отыскал, а вот в какие моменты их нужно давать и с 
какими предметами - не знаю. Программа на все отвечает: "Вы еще не можете, сделать 
это". Помогите, пожалуйста, может Вам написал кто-нибудь, кто прошел СВЕМИМ$ или 
другие игры (не АМОВОМЕРПА, КЕМТШЛА, АБ\УЕМТОВЕ А, НУМСНВАСК) от начала до конца, 

ИФК: Нет, пока никто не сообщал о победе над программами этих сборников. 

КОРР: А мой опыт можете использовать для помощи другим. Мой адрес: 


690087 Владивосток, Ул. Котельникова д. 7 кв. 188 
Трофимчук Владимиру Викторовичу. 


ИФК: Спасибо за дружескую руку. Раз Вы не возражаете в том, чтобы оказать помощь 
нашим читателям, мы даем Ваш адрес. Если будет трудно ответить всем по почте, 
воспользуйтесь нашими возможностями. Наиболее часто встречающиеся проблемы в 
адвентюрах можете освещать в "7Х-РЕВЮ". Мы будем рады опубликовать какую-либо 
статью под Вашим именем. 


Нам пишет Чертков Вадим Юрьевич из Кургана: 


Здравствуй, Инфорком! 

У нас в Кургане "Спектрумы" изготавливает кооператив "Дисплей" в течении 
нескольких лет. В основе их положена доработанная схема Балтики. Так что они почти 
полностью совместимы с оригиналом, за исключением порта #ЕР, он всегда выдает 255. 
Поэтому не идут программы: ЗНОАТ СДАВСИПТ 1,2; РЕМЕСАОЕ. С остальными никаких 
проблем нет. Идут и ЗАМАМТНА РОХ и ТУАВО СОМР и АВСАМОШ и т.д. т.е. все, что не 
работало у ваших читателей у меня работает. 

ИФК: Спасибо, Вадим Юрьевич за информацию, которая может пригодиться нашим 
читателям. Мы хотели бы попросить Вас показать последнюю страницу этого выпуска кому- 
нибудь из сотрудников "Дисплея", им это может быть полезным. 

КОРР:... На моем "Спектруме" стоит прошивка ЭМСЁЕА!А 1990. Вы о ней вскользь 
упоминали. У нас в Кургане очень у многих есть эта прошивка, однако на этой прошивке 
наблюдается некоторая несовместимость программ. У меня имеется около 1 тыс. игр, из 
них не так как надо работают несколько штук: 

ЕХОГОМ - нет звука 

СУВЕВМОГО - нет звука 

ВАСЕВН - нет звука 

ЗТОАМ ЁГОРП - нет звука 

Но это все ерунда по сравнению с тем, что можно сделать с этой прошивкой. Можно 
пожертвовать несколькими играми ради этого. 

Одна из прелестей: при нажатии кнопки на линии ММ! компьютер переходит в 
"монитор". Единственное ограничение для этого: надо, чтобы $аск не был в экранной 
области. Иначе компьютер зависнет. 

ИФК: Еще раз спасибо за объективную информацию. 

КОРР: В 1991 году была объявлена атака на игру ТВАМТОВН. Вот что я могу сказать по 
этому поводу: 

Игру пройти очень сложно, поэтому я привожу РОКЕ: 

РОКЕ 49505,0 - ИМЕ$ (ЕМЕВСУ) 

РОКЕ 49620,0 - ИМЕ ОЕЕ 

Необходимо пройти по всем этажам, на каждом этаже по 1 компьютеру. Если подойти 
к компьютеру, он выдает букву и т.д. Надо посетить все 8 компьютеров. На пути могут 
встретиться также два больших компьютера, но о них чуть позже. Так вот, собрав все восемь 


букв, из них составляем слово близкое по смыслу к вычислительной технике: ЗРЕСТВИМ, 
САЗЗЕТТЕ, УЭМСЁЬАА, МЕСАСАМЕ, ФЗОРТ\МАВЕ, ЧОУЗТСК, КЕУВОААО, КЕМРЗТОМ, 
СОМРЧОТЕВ, СРАРН!С$, НААО\МАВЕ, ТЕВМИМАЕ, РАМТЕР$, \М/ААСАМЕ$, \/МАВРОН5. 

Затем идете к МК-ЗЕСУВПУ-ТЕРМИМАЕ. И вводите составленное вами слово. Если Вы 
собрали не все буквы, то компьютер выдаст сообщение: РАЗЗМ/МОНО МОТ СОМРЕЕТЕО. Для 
входа же в компьютер с собой надо иметь магнитную карточку и отвертку. 

Если Вы собрали все буквы, то он напечатает РАЗЗМОНРО АМАГУ$!$. Если слово 
составлено верно и на терминале все замигает и т.д., он выдаст код для компьютера, 
управляющего транспортером, состоящий из трех букв. Теперь надо бежать к 
ТАВАМЗРОАТЕН ТЕВМИМАЕ ОА\УЕ 29565 и ввести в него этот код (из трех букв). Если Вы ввели 
код правильно, то по окончании ввода услышите короткий звук. Если же код неверен, то 
звука не будет. 

Затем встаете на транспортер и нажимаете букву "В". Если Вы что-то сделаете не так, 
то при нажатии на "В" космонавт погибнет. 

У меня игра ТААМТОЛ версии ВШЁЕ СШЕЕАТ. Привожу пример загрузчика с 
бессмертием. 


10 ВОВБЕН 0: РАРЕН 0: ТМК 0: СЕЕАН 24999 

20 РОН \ = 18432 ТО 18499 

30 НЕАО А: РОКЕ У, А: МЕХТ У 

40 НАМООМТУЕ 0$В 18432 

50 ПАТА 243, 221, 33, 168, 97, 17, 248, 117, 62, 255, 55, 205,2, 8, 221, 33, 160, 215, 17, 63, 14, 62, 255, 
992052. 6,49 255.60. 0, Эр ааа оз. Од, М, 10810.02, 255.205: 8 005, 
168, 92, 175.50, 97.199,50,212:93,99,0; 68:20; 1, 168.6, 195,195; 31 


Это загрузчик всех блоков, кроме заставки (т.е. при загрузке надо пропустить 
загрузку заставки). Ставим магнитофон в том месте, где только что закончилась заставка и 
делаем ВУМ. 

В заключение привожу еще несколько РОКЕ, найденных самостоятельно. 


МОМТУ ОМ ТНЕ ВОМ — 34714,0 
ЛОМВТЕС — 29553,0 
29565,0 
АТВМОШЕ 2 0 
или 53474,0 
ВГООРУ ЕУЕЗ = 43393,0 
ТА МАСА — 40064,0 
СНВОМО5 - 56909,0 
155 РАСМАМ = 52867,0 
ВОЗСОМТАМ = 33356,0 
ПГЕСЕМО ОЕ САСЕ — 37054,0 
37055,0 
Е. РАТВОГ 2 — 40562, 0 
ВОМВ АСК - 48984,0 
АОПАВТОЗ — 31054,0 
САМЕОУЕВ =” 39337.0 
энергия =.39273.,201 
33482,124 
бомбы 33483,0 
17оООм - 24741,0 
24742,0 
УОУАСЕ - 54492,0 
РАМАМА ЧОЕ — 38629,0 
38630,0 
СООСКТЕ — 28697,0 
УТСТОВУ ВОАР — 39385,255 
39402,255 
ЕГУ СНАВК — 42464,255 
ВОСКМАМ = 56357,27 
56358,220 
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32627,0 
КОРЕ & ВЕАПРУ = .33567,0 
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ТУРЕ-ВОРЕ — 28955,0 
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КВАКООЙОТ — 36060,0 
ХЕСОТОВ 540170 
РУМАТВОМ - 41629,0 
45189,0 
Е-16 — 31564,0 
ТРЕ ЕЦУ - 45453,183 
УТХЕМ = 51789,0 
СОГОМОМ' $ КЕУ ЕЕТМЕ КЕУС: 
.ВОКР 
или 49344,00 
САУАСЕ 3 - 34398,255 
АГТЕМ 8 =^:511736.20 
ЕМООВО ВАСЕВ - 43650,0 
43651,0 
"ВЕООУ НАВБО 3 — 58978,0 
ТВЕАСЗОВЕ ТУГАМО — 61281,00 
59672 ,0 
60126,0 
61142,0 


ИФК: Вадим Юрьевич, Вы проделали огромную работу, "расколов" такое множество 
программ. Огромное спасибо от имени тех читателей, которые любят вносить изменения в 
программы для удобства личного пользования. От себя только напомним всем читателям, 
что нельзя ни в коем случае распространять программы с жестко внесенными в них 
изменениями. 

Это бестактно по отношению к другим пользователям. Никто не скажет за это 
спасибо. Кому же хочется докуривать чужие окурки. 


* * * 


Нам пишет Сайфутдинов Евгений Владимирович из поселка Приполярный республики 
Коми: 


Эй! Кого интересовал код 71 ЕВАМЕ в игре "1МРАСТ"? Он очень прост: " 4.0." В догонку 
еще 31 пароль к игре “ЕААТН ЗНАКЕА", 1990 М!СНАЕЕ ВАТТУ. Игра схожа с сериалом 
ВОЧЕГЕН БАЗН, но сложнее и интереснее - 32 уровня: 

1 - не требуется пароль. 

2 - ТНЕ ВОВВЕЕ ВАТН. 

3 - ТНЕ СВАУПУ СНАМВЕВ 

4 - НЕАО М ТНЕ СЕОЧО$ 

5 - НУЗН ТОЕО 1СЕЕАМО 


6 - ПАМОМО$ ОЕ ММЕ 

7 - ТНЕТМО ОЕ НЕААТ$ 

8 - СЕМТРАЕ 1МСМЕВАТОН 

9 - МТЕАМАЕ ВЕАСТОВ МС 
10 - МОСЕЕАНВ ОВЕ САУЕАМ$ 
11 - СВАМППОМ ЗНЕГЕ$ 

12 - ТНЕ ОМЕН $ 

13 - МЕТ НЕЁ $01 

14 - ТНЕ САВАУГОСК СЕТЕ 

15 - НОМЕУСОМВ$ 

16 - НАНВ ВАА!ЗЕО ЗУАСЕЛАУ 
17 - ВУВУ ОВАМАСЕ Н!АЕА$ 
18 - ЗРАСЕВЗФЕ МАЗТЕНР!РЕ$ 
19 - ТНЕ ЗНАКЕ 

20 - ВУЗЕ МО РОЧВТ 

21 - ОЧТЕА ВОЧМО$ 

22 - ЗРАМС ГОБЕБ 

23 - АЕААМ СЕОСК МОВК$ 
24 - РОС ЕТ$Е \МАТЕВЕАН- 
25 - САВЕАТ МАН $ ОЕ НАЕ 
26 - СНМА САМАЕ 

27 - ТНЕ СОМВИМАТОМ ГОСК 
28 - УОЧВН $АЕЕ \МТН МЕ 

29 -УЕНТ \ММААВМ НОЧУЗ$Е 

30 - ТНЕ КЕЕР 

31 - РОЯ СООБМЕ$$ ЗАКЕ 
32 - МО РЕМЕ НУЕО ОМ 


С - АВОЯТ ЦЕМЕЕ 
Н - ОЦТ $СВЕЕМ 
Е - МАР 


Коды добыты с помощью программы БОСТОН у. 4.3 (Родионов) 


* * * 


Нам пишет Левашов Назар Михайлович из г. Киева: 


Добрый день! 

Недавно я исследовал программу "ЗРООКЕО" и обратил внимание на мастерски 
сделанный загрузчик. Первое, что бросается в глаза - загрузка "задом наперед" - отличный 
метод защиты. Второе (мало кто пользовался встроенным копировщиком этой программы, 
поэтому это почти никому неизвестно), если после загрузки программы нажать одну из 
цифр от 1 до 5, то программа скопируется на ленту. 1 - выгрузка в обычном режиме, 5 - 
выгрузка в турбо-режиме, причем пилоттон и бейсик-загрузчик выгружаются на 
стандартной скорости. Но самое интересное состоит в следующем: если нажать клавишу 2, 
3 или 4, то программа выгружается на скорости на 1/4, 1/2, 3/4 больше стандартной 
соответственно (кроме пилоттонов и бейсик-загрузчика). Такой потрясающий метод защиты 
я нигде не видел. Нет такого копировщика, который скопировал бы что-нибудь на такой 
скорости. 

Я не разбираюсь в ассемблере, и знаю только три команды: ВЕТ, САШ и 1, 
дисассемблера у меня нет, но я точно установил, что программа в ассемблере начинается с 
адреса 23291, а запускается с 23319. По-моему, программа переносит себя в конец памяти, 
т. к. я, просматривая машинный код, установил, что все САЦ: адресованы либо в ПЗУ, либо в 


конец памяти. 

Думаю, что все читатели были бы рады разбору того, как эта программа работает, а 
если об этом напечатать в “7Х-РЕВЮ", то это было бы прекрасным дополнением к книге 
Михайленко "Защита программ". 

Р. $. Такой же загрузчик я видел в программе "1$5". Обе эти игры составила фирма 
"ТНЕЕ ТЕАМ". 


ИФК: Уважаемый Назар Михайлович! Мы уверены, что многих заинтересует Ваша 
информация, но мы верим и в Ваши силы. Ведь группа команд САЦЕ, 1. и ВЕТ включает в 
себя чуть ли не 50% того, что пишут на АССЕМБЛЕР, а если добавить сюда еще команды 
АЗТ, которые ничем от САЁЁ не отличаются, да еще и команду МОР, то почти весь 
АССЕМБЛЕР Вам известен. Наверное Вам осталось только разобраться с флагами регистра 
Е, да узнать о наиболее часто вызываемых программах ПЗУ, а об этом мы очень часто 
пишем в "7Х-РЕВЮ". 

С глубоким уважением, "ИНФОРКОМ". 


Нам пишет семейный экипаж Троеглазовых П. и Г. из с. Гайтер Хабаровского края. 
(См. также раздел "ФОРУМ" в РЕВЮ-92 на с. 24). 


Здравствуйте! 

Приветствуем атаку на программу "АСАШЕМУ". У нас есть чем поделиться, но так как 
мы еще мало с ней работали, мы хотели бы увидеть пути поисков более опытных пилотов. 

И все-таки, мы вновь и вновь возвращаемся к "ЕМТЕ". Эта программа неисчерпаема. 
Мы уже и не считаем, в скольких галактиках побывали, Вы правы - им нет счета! Гера до сих 
пор не верит, что это так: "Па, это невозможно, - шесть в шестой степени, да еще каждая 
цифра может меняться от нуля до 255(!) - должен же быть какой-то предел!" 

Вряд ли... Как бы мы ни меняли цифры в байтах 61-66, мы каждый раз попадали в 
новую восьмерку галактик, и, конечно же, в этом сонме галактик найдется планета ВАХХЕА. А 
может быть и не одна. Да... Получается, что всей жизни не хватит, чтобы просмотреть все 
галактики. Невероятно ! 

Браво, ЕМТЕ!! 

В дальнейшем, говоря о галактиках, вряд ли нужно присваивать им какие-то номера, - 
где тут первая, где тысячная, кто скажет? Те галактики, что мы видим после загрузки, 
вероятно, стоило бы назвать просто "первоначальный вариант". 

Проще, говоря о каких-либо особенностях в любой из галактик, достаточно дать ее 
галактические байты (с 61 по 66). То, что собственные номера присваивать бесполезно, 
легко доказать. Берем группу цифр 1,2,3,4,5,6 и засылаем их в 61-66 байты. Можно ли в этой 
восьмерке галактик определить, где первая, а где восьмая? Ведь существует цикл. В данном 
случае это: 

8 16 32 64 128 
16 32 64 128 1 
24 48 96 192 129 
32 64 128 1 2 


10 20 40 80 160 65 130 
12 24 48 96 192 129 3 


Значит, мы можем набрать любую группу цифр и начать отсчет галактик (1-8) от 
первой появившейся на экране монитора. А возьмем первоначальный вариант, - 74,90, 
72,8,83,183 - почему это именно ПЕРВАЯ галактика? Ни логики, ни смысла. 

Счет можно дать восьмеркам галактик. Берем, скажем, 1,0,0,0,0,0, делаем цикл и 
исключаем их из общего числа галактик и так до конца. Сколько же получится таких 
восьмерок, кто решит эту задачу? Задача не из легких, здесь нужно просчитывать каждый 
цикл, исключать его из общего числа вариантов, помня о невозможности превышения (при 
удвоении) цифры 255. Если кто-либо из программистов сможет решить ее, то пусть пришлет 
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вариант программы. Интересно посмотреть распечатку этих восьмерок и узнать точно, 
сколько их в программе. 

Открыв путь к самому интересному, мы вдруг начинаем искать "достойную замену". С 
этим нельзя согласиться, "АСАБЕМ\" - сама по себе, "ЕЦТЕ" - сама по себе. Эта программа 
будетеще не один год удивлять и восхищать всех нас! 

Мы с Герой исследовали уже сотни галактик и сейчас расскажем о некоторых из них. 

В галактике с “галактическими шифрами" - 7,77,8,88,9,99 мы натолкнулись на 
неизвестный нам корабль, назовем его РЗЕЧОО-РУТНОМ. Шел он мирно и мы имели 
возможность спокойно осмотреть его со всех сторон, срисовать при помощи кнопки ПАУЗА 
и расстрелять его, тем самым проверив его боевые качества, - вел он себя в бою, как 
РУТНОМ, защита та же. 

Мотаясь по галактикам, мы имели возможность побывать на двойных, тройных, 
четверных и даже пятерных, семерных звездах. Далее я буду давать в строчку через запятую 
значения байтов с 61 по 66 тех галактик, в которых есть что-либо необычное, красивое, 
загадочное, интересное. В восьмерке галактик 1,2,3,4,5,6 - 128,1,129,2,130,3 мы увидели 
множество двойных, тройных и четверных звезд и даже целые их группы. 

В цикле из восьми галактик 7,77,8,88,9,99 там, где мы повстречали РЗЕЧВО-РУТНОМ, 
в одной из галактик (193,83,2,22,66,216) можно увидеть семерную звезду. 

Очень красивые галактики в цикле 128,48,16,32,64,254 - 64, 24,8,16,32,127. 

Общее расположение звезд в галактике 128,48,16,32,64,254 такое - диагональное, 
интересны расположения звезд и в других галактиках этого же цикла. 

Тройные, четверные и другие звездные системы встречаются сплошь и рядом и, 
думаю, о них уже достаточно сказано. 

Но вот новая неожиданность: ФЕОДАЛЬНАЯ ГАЛАКТИКА(!) (72,72,72,72,72,72). 
Уровень развития не превышает в ней десяти, космос забит пиратами. 

Запускаем "галактические" байты - 5,10,15,20,25,30 и обнаруживаем, что в первой из 
восьми галактик этого цикла только четыре типа правительств - Корпорация, Диктатура, 
Конфедерация и Феодалы. Во второй (10,20,30,40,50,60) власть делят Демократы и 
Диктатура и вся галактика довольно высокоразвита (средний уровень развития 9-10). В 
третьей (20,40,60,80,100,120) уже властвуют только Корпоративные и Конфедеративные 
интересы, эта галактика тоже очень высокоразвитая. В четвертой снова всего лишь 2 типа 
власти - Корпорация и Диктатура, да и сама эта галактика очень красива, звезды собраны в 
скопления, похожие на звездные дороги (40,80,120,160,200,240). В шестой галактике 
(160,65,225,130,35,195) нет ни Демократии, ни Анархии, ни мультиправительств. В 7-й (65, 
130,195,5,70,135) есть все виды правительств, на всю галактику лишь 2-3 планеты 
Анархистов и общий уровень развития довольно низок - очень редко попадается 10-й, еще 
реже 12-Й. 

Но вот новая тайна "ЕЧТЕ"! Запускаем в "галактические" байты цифры - 1,8,1,8,1,8 и 
путешествуем по этой восьмерке: 1-я, 2-я... казалось бы ничего слишком необычного, но 
чудеса начинаются с третьей галактики. В этой галактике (4,32,4,32,4,32) правят лишь 
Анархисты и Коммунисты и здесь мы вдруг натыкаемся на планету без имени. Все есть, все 
причиндалы, а вот названия нет. Общий уровень развития низкий (4-5). 

Летим дальше. Снова сплошь Феодальная галактика и, чтобы перелететь в 
следующую, нужно долго мотаться по галактике, отыскивая Феодалов с 10м уровнем 
развития. Приобретаем у них галактический привод и летим дальше. В пятой галактике - 
только Мультиправительства и та же беда с приобретением галактического привода. 
Следующая галактика - рай для ГКЧП! - (32,1,32,1,32,1). 

Берем галактический привод и рвем когти из этого "рая" - попадаем... к Анархистам 
(64,2,64,2, 64,2). В следующую галактику путь закрыт, т.к. уровень развития здесь не 
превышает 8. Что же это за таинственная галактика, в которую таким вот путем 
(невозможность приобрести галактический привод) закрыли дорогу? 

Приходится отгрузиться, вскрыть 102-байтный блок и выбрать одну из трех дорог - 
получить миссию "Сверхновая" (46-й байт = 1), приобрести галактический привод (58-й байт 
= 255) или удвоить шесть "галактических" байтов (128,4,128,4,128,4). В любом случае мы 


попадаем в ... "ЧЕРНУЮ ГАЛАКТИКУ". На общей карте мы не видим ни одной звезды, но 
нажав клавишу "О" видим странную картину - в - галактике полно невидимых звезд и на 
крупной карте они обозначены только названиями, звезд не видно! Тип правительства - 
только Анархия, уровень развития - только 2 и 6. Да и названия довольно странные - они 
двойные: 

ГА!ЗВЕ ВАМАТЕ ММА 

ГА!ЗВЕ, ВАМАТЕ, ММА 

и в очень редких случаях мы видим название планеты, состоящее из одного слова - 
ХАЗАР. Много одинаковых названий, например, мы обнаружили 


две планеты ГА! ВЕ, 
ГА!ЗВЕ 

три планеты 1ММА ит. д. 
ММА 

В описаниях к планетам говорится везде, что цивилизации на этих планетах 
безобидные (НАВМЕЕЗ5), и находятся в самом начале своего развития. 

Мы могли бы рассказывать и рассказывать о новых и новых открытиях и тайнах 
"ЕЧТЕ", но довольно. После публикации в номере 5-6 (1992), вероятно, не один десяток 
пилотов бросились в атаку на галактики и Вы получили, наверное, не одно письмо на эту 
тему. С интересом ждем публикации этих писем. 

Несколько слов о байтах в отгружаемом блоке - фраза "Браво, Командор!" появляется 
при увеличении байта 15 на единицу. 

41-й байт (грузоподъемность) по ходу игры изменяется сама вот таким образом - 
20,35,69,138 и снова 20... и т.д. Засылая сюда другие цифры, мы обнаруживаем, что во 
время игры снова возвращаемся к этим же цифрам (к ближайшей из них), а поставив цифру 
69 и подкрепив ее 69 т. груза, мы с удивлением обнаруживаем, что можем загрузить во 
время игры 138 т. груза. Поставив же в этот байт цифру 138, мы можем здорово "пролететь": 
после одного-двух перелетов мы не сможем взять больше 20-ти тонн груза и все попытки 
купить дополнительный грузовой отсек будут пресекаться сообщением "АЦ РВЕЗЕМТФ..." 

В последней распечатке байт 73 стоит у Вас под вопросом, но мы уже писали, что он 
означает технический уровень и вновь подтверждаем это. Здесь, как и в байте 18 нужно 
прибавлять единицу, т. е. 0=1,4=5,11=12 ит. д. 

Байт 74 - тип правительства: 

0 - Анархия 

1 - Феодалы 

2 - Мультиправительства 

3 - Диктатура 

4 - Коммунисты 

5 - Конфедерация 

6 - Демократия 

7 - Корпорация 

В зависимости от этих цифр, видимо, и количество противников у очередной планеты. 
Мы пробовали заслать корпоративной планете с уровнем 15 цифру 1 и еле-еле отбились от 
пиратов. 

И еще небольшая справка-эксперимент, чтобы "отработать" рейтинг ВАМСЕНВОЦ$ от и 
до и получить ОЕАВКУ, нужно включить функцию "Е" и провести 100 боев с Таргоидами. 

И еще несколько слов о "Черных галактиках" (их много в программе). Имена планет 
могут быть и тройными 7АВС! 

(ГААС!) 
ГАВС! 

но это не значит, что планета тройная или двойная. Есть еще одна странность. На 
крупной карте ("О") мы читаем название планеты, затем нажимаем "А", набираем имя этой 
планеты и курсор прыгает в другой конец галактики(?). На планеты с двойным названием 
курсор указывает только через "О". Есть и другие чудачества... 


ИФК: Большое спасибо Вам Павел и Герасим за огромный труд. Вы правы, по Вашим 
стопам пошли многие исследователи. Если Вы позволите, то Ваш труд можно было бы 
назвать "Исследование циклических свойств генератора случайных данных в программе 
ЕЧТЕ". Начатое Вами исследование подхвачено и привело к новым открытиям, правда они 
уже относятся не совсем к игре, а к математике и к программированию. На эту тему мы 
недавно получили весьма серьезную работу от нашего корреспондента из г. Новосибирска 
Збитнева В. А. Ее Вы увидите в следующем выпуске “7Х-РЕВЮ" под рубрикой 
"Профессиональный подход". 


ВОЗВРАЩАЯСЬ К НАПЕЧАТАННОМУ 


(С) Ефремов Александр Александрович, г. Челябинск, 1993г. 


Опыт работы с ВЕТА-ВАЗС 1.8 


Предлагаю вниманию читателей небольшие выводы из своего опыта работы на ВЕТА 
ВА$З!С 1.8 и более ранних версиях. Полагаю, что публикация этого материала может 
значительно облегчить программирование на ВЕТА ВАЗ!С как начинающим, так и уже 
имеющим опыт работы с ним. 

Известные трудности при программировании на ВЕТА ВАЗС 1.0 и 1.8 вызывает 
процесс передачи параметров при обращении к процедурам. В отличие от ВЕТА ВАЗС 3.0, 
где применяется формат обращения к процедуре типа: 

РВОС Мате(а1, а2,...,а№), 

гдеа1,а2.... аМ - параметры, 

более ранние версии этого языка принуждают использовать громоздкие конструкции 
с большим количеством операторов 1ЕТ, что ухудшает читаемость программы и требует 
значительных затрат оперативной памяти. 

Предлагаемый мной метод заключается в использовании для передачи фактических 
значении формальных параметров процедуры пары операторов НЕАВ и ПАТА. В программе 
это выглядит таким образом: 


10 РЕР РНОС Мате 
20 НЕАО а1,а2,...,ам 


50 ЕМО РВОС 
100 ОАТА х1, х2,... ХМ: ВЕЗТОВЕ 100: РВОС Маме 


гдех1, х2,... ХМ - значения переменных а1,ад....,аМ. 


Кроме экономии памяти и наглядности, метод позволяет использовать одну строку 
ОАТА для нескольких вызовов процедуры с одинаковыми параметрами, переводя перед 
каждым таким обращением указатель оператора РЕАОШ на строку с необходимыми 
значениями. Одновременно с этим появляется возможность гибко задавать число 
параметров: 


10 РЕР РНОС Таб1е 
20 ВЕАБ № 
30 О1МА (№) 
40 РОН Т=1 ТО №: ВЕАО А(Т): РВТМТ А(Т) : МЕХГТ 
50 ЕМО РВОС 
100 ВАТА 4, 1.1, 2.67, 3.15, 4.16 
| 
| 


элементы передаваемого 

массива 
количество элементов 
массива, передаваемо- 
го в процедуру. 

110 ВЕЗТОВЕ 100: РВОС Табе 


Применение такого подхода в моих программах позволило сократить использованные 
под текст программы ресурсы памяти на 15-20% и значительно повысить наглядность и 
читаемость. Надеюсь, и другие пользователи ВЕТА ВАЗ!С найдут применение методу, 
описанному выше и по достоинству оценят его преимущества. 


(С) Пыльцов Вадим, г.Надым, 1993г. 


Сортировка русифицированных символьных строк 


В статье "Полная русификация Мастерфайл-09" автор предлагает читателям обсудить 
проблему сортировки русских слов по алфавиту. (См. 2Х-РЕВЮ-92, с. 29, 71). 

В своих программах я эту "проблему" решаю очень просто. Например, с адреса 60000 
я размещаю таблицу длиной 33 байта (ровно столько букв в русском алфавите) и в ней 
последовательно располагаю коды букв русского алфавита от А до Я. Предположим, что 
буква А у нас в нашем дополнительном наборе не изменялась, т.е. ей соответствует код 65, 
как и в стандартном наборе "Спектрума", а буква "Б" у нас закодирована по адресам буквы Ь 
(латинская строчная) т.е. ей соответствует код 98. Тогда по адресу 60000 мы запишем число 
65, по адресу 60001 число 98 и так далее до ячейки 600032. В ней будет храниться код 
символа, вместо которого "зашита" буква Я. 

Больше там ничего не нужно. В программах сортировка у меня происходят на 
ассемблере, что многократно повышает скорость работы, но это можно сделать и из 
Бейсика, правда при этом скорость работы немного снизится. 

А делается это так. Допустим, у нас есть символьная переменная А$ = "БАБА ЯГА" (это 
какая-то фамилия или имя). Программа определяет код первой буквы - у нас это 98. Далее 
делается цикл: 

100 РОН М = 60000 ТО 60032: ТЕ РЕЕК М = С00Е А$(Т) ТНЕМ ГЕТ М = М - 59999: 60 ТО АМОТНЕН 
110 МЕХТ М 


Т.е. если код первой буквы равен содержимому одной из ячеек нашей таблицы, то 
переменная М становится указателем, какая эта буква по порядку в русском алфавите. 

У нас М становится равным двум. Дальше уже идет сам процесс перестановки (или 
сортировки) имен. Если же сортировка производится по нескольким начальным буквам, то 
мы просто организуем еще один цикл, например, с именем М и будем сравнивать РЕЕК М с 
СОБЕ АУ(М). 

Я не пишу все это более подробно, потому что идея эта сама по себе тривиальна и 
годится для самостоятельного разбора. 

Так что, как видите, тут никакой проблемы и нет, все очень просто. Но еще лучше, как 
я уже сказал выше сделать всю эту сортировку на языке Ассемблера, особенно если 
сортируется большой массив данных. 


ОПЕЧАТКА В ПРОГРАММЕ "КРИББЕДЖ" (7Х-РЕВЮ-92, с. 187) 


Дианов Р.Ю. из г.Братска Иркутской обл. просит уточнить строку 4515 из программы 
"Криббедж", опубликованной в М7, 8 "7Х-РЕВЮ-92". Там пропущена переменная: 


4515 ТЕТ ? = 5: ЕЕТ Меп = 2 


Нам очень стыдно и неудобно, но почему-то с листингами такое бывает. После 
подготовки оригинал-макета в печать сколько не выверяй программу и не лови "блох", все 
равно какая-нибудь гадость просочится. 

Правильно должно быть так: 


4515 ЕЕТ с = 5: ЕЕТ еп = 2 


ЧИТАТЕЛЬ - ЧИТАТЕЛЮ 


ПРОСМОТР ЗАЩИЩЕННЫХ ПРОГРАММ 


Письмо на тему взлома защищенных Бейсик-программ прислал нам наш юный 
читатель из г. Чехова Бессонов Александр. Ему всего 14 лет, но несмотря на это, он 
предложил вполне профессиональную и достаточно квалифицированную программу. Вот, 
что он пишет. 

"Еще полгода назад я написал программу "ГООК ВАЗ!С РАОСВАМЗ$" (далее 1ВР). Я 
использую ее уже долгое время и она позволяет взламывать все программы (я работаю с 
дисководом и не уважаю клавишу "МАС!С", предпочитаю переписывать игры с ленты на диск 
по файлам). Также я использую программу “РАКЕТ", состоящую из 1ВР, МОМ$4, 
[ОАБ/МЕВСЕ (последнюю можно взять, например, в БАЙТЕКе М 1 за 1992 г.). 

Я писал эту программу, основываясь на том, что главными способами защиты 
являются управляющие символы и 5-байтное представление чисел. Введя программу из 
листинга 1, Вы получите ЕВР с адреса 55000. Теперь можете выполнить МЕ\М/ и загружать 
защищенную программу (через МЕВСЕ или "ГОАО/МЕВСЕ"). Вызов 1ВР - РАМРОМИ! Е УЗВ 
65000. 

Формат, в котором ЕВР выводит Бейсик-программу: 

10 [23775] (20) ВЕМ <<<<<<<<< ТРЕ ВАУ 1992 ТР 

Здесь 10 - номер строки; 

[23755] - адрес начала строки (в инверсном виде); 

(20) - длина строки (может быть ложной). 

Далее идет обозначение управляющих символов (все в инверсном виде): 

| - МК (СНВА$ 16, М) 

Р - РАРЕВ (СНВ$ 17,М) 

Е - РАЗН (СНВ$ 18,М) 

В - ВЫСНТ (СНН$ 19,М) 

\ - ИМУЕВЗЕ (СНЕ$ 20,М) 

А-АТ (СНЕ$Ф$ 22, Х, У) 

Т - ТАВ (СНВ$ 23, М, 0) 

< - ВАСК (СНВ$ 8). 

После каждого числа 1ВР выводит в квадратных скобках и в инверсном виде 
настоящее число, представленное в пятибайтной форме. Например: 

10 [23755] (20) ВЕМ <<<<<<<<< ТР ВАУ 1992 ТР 
20 [23779] (30) ТМК 6Е4 [0]: РАРЕВ 12,5 [3]: ГОАО ""СОБЕ 12345 [30000] 
30 [23803] (10) ВАМРОМТАЕ 05В 0 [30000.12] 

В строке 30 напечатано число 0, а по-настоящему здесь число 30000.12. Это сделано 
для того, чтобы "вручную" разгадать это число было трудно, а функция УЗВ просто откинет 
дробную часть. 

Примечания: 

1. Если после того, как Вы напечатали ВАМО. УЗВ 65000 Вам выдался не весь листинг, 
то выполните: С1$: РАМРОМИЕ ЦЗН 65000. 

2. (ВР не проверяет наличие программы в ОЗУ. Если ее нет, то просто экран 
заполнится разными символами и в ответ на запрос да в Бейсик." 


Комментарий ИНФОРКОМА: это касается второго пункта примечаний. Наличие 
программы не проверяется не потому, что это недостаток программы 1ВР, а потому, что 
заранее невозможно предвидеть, какими способами защиты воспользовался автор 
защищенной программы. Вам предоставляется "листинг" в том виде, как он может быть 
интерпретирован Бейсиком, а Вы уже сами должны решать, программа это или случайный 
набор символов. 


* * * 


Текст программы ВР представлен в Листинге 1. 
Листинг 1. 


10 СТЕАВ 64999: ГЕТ С=0: РОВ 1=65000 ТО 65343: ВЕАБ а: ТЕТ с=с+а: РОКЕ ‚а: МЕХТ 1 
20 ТЕ с<>46381 ТНЕМ РВТМТ “ЕНВОВ !”: $ТОР 


200 


201 


202 


203 


204 


205 


206 


О ВАТА 62,2;205,1,22,205,3,2595,:42,83,92,237,91, 75,92,231,89,253,254,62,13,205,:255,254,62, 


13,205, 255, 254, 229, 205, 40, 26, 225, 229, 229, 193, 205, 43, 45, 62, 123, 205, 255, 254, 253, 203, 87, 
214, 205 


О ВАТА: 227,45,253,203,87,150, 62, 125, 205;255,254,225,95,35,78;35,70,95:62, 40, 205,255,254, 


229, 205,43, 45, 205, 227, 45, 225, 62, 41, 205, 255, 254, 126, 254, 32, 48, 124, 253, 203, 87, 214, 254, 1 
6, 204, 148, 254 


О ПАТА 254, 17, 204, 156, 254, 254, 18, 204, 160, 254, 254, 19, 204, 164, 254, 254, 20, 204, 168, 254, 254, 


21, 204, 172, 254, 254, 22, 204, 176, 254, 254,23, 204, 181, 254, 254,8, 204, 186, 254, 253, 203, 87, 150 
‚ 254, 14, 204, 198, 254, 254 


О БАТА 13, 32, 16, 35, 229, 237, 91, 253, 254, 167, 237, 82, 124, 181, 225, 194, 251, 253, 201, 35, 24, 170, 


62, 73, 205, 255, 254, 175, 35, 201, 62, 80, 24, 246, 62, 70, 24, 242, 62, 66, 24, 238, 62, 86, 24, 234, 62,7 
9, 24, 230 


О ПАТА 62, 65, 35, 24, 225, 62, 84, 35, 24, 220, 62, 60, 43, 24, 215, 205, 255, 254, 35, 195, 62, 254, 35, 62, 


91,205,255:254,221,229,229. 221, 225,221,126,0,221::94.1,221:66,:2,:221,18. 3,221, 10:4,221, 
225 


О ВАТА 229, 205, 182, 42, 253, 203, 87, 214, 205, 227,45, 253, 203, 87, 150, 225, 62, 93, 205, 255, 254, 17, 


Ио 5е ООО 229 ве РОД Та, 175205, Ле 201281: 120: 029, ГО, 75 
‚ 32, 66 


О БАТА 65, 83, 73, 67, 32, 80, 82, 79, 71, 82, 65, 77, 83, 126, 13, 65, 89, 32, 66, 69, 83, 83, 79, 78, 79, 86, 32, 


65, 46, 13, 18, 1, 66, 65, 86, 32, 127, 49, 57, 57, 49, 18,0, 141 


Дисассемблер машинно-кодового блока программы ВР представлен в Листинге 2. 
В заключение мы хотим от всей души поздравить начинающего автора с удачным 


дебютом в "7Х-РЕВЮ". 


Листинг 2. 
3ЗЕ02 [В А, #02 ‚ Открыть канал 
С00116 СА #1601 ‚ экрана. 
СВОЗЕЕ САЕЕ  НЕРОЗ ‚ Вывод сообщения об авторе. 
2А535С ЕО НЕ, (#5053) ‚Значение сист. перем. РАО. 
ЕБЬВАВЬС ЕО ОЕ, (#5С1В) ‚ Значение сист. перем. \АВ$. 
ЕБЬЗЕБЕЕ ЕО (НРЕЕРО), ОЕ Сохранение его в ячейке. 
ЗЕ ОБ ОТВОК 10 А, #00 ‚ВА - код “ЕМТЕВ” 
СБЕЕЕЕ САЕЕ  НЕЕРЕ ‚ Печать этого символа. 
ЗЕ ОО ЕО А, #00 ‚ВА - код “ЕМТЕН”. 
СОЕЕЕЕ САЕЕ  НЕЕРЕ ‚Печать этого символа. 
ЕБ РОЗН НЕ ‚ Печать 
СО281А СА Н1А28 ‚ номера 
ЕЛ РОР НЕ ‚ строк 
ЕБ РОЗН НЕ ‚ Сохр. адреса на стеке. 
[2] РОЗН НЕ ‚ Перезапись 
С1 РОР ВС ‚из НЕ в ВС 
(02820 САГЕ #2028 ‚ Передача ВС на стек калькул. 
ЗЕ7В ЕО А, #7В ВА - код "[". 
СОЕЕЕЕ САЕЕ  НЕЕРЕ ‚ Печать этого символа. 
Е0СВ5706 ЗЕТ 2, (1\+87) ‚ Включение инверси 
С0ЕЗ20 САЕЕ #20ЕЗ ‚ Печать значения числа, пред- 
‘ставленного в 5-байт. виде. 
Е0СВ5796 ВЕЗ 2, (1\+87) ‚ Выключение инверс 
ЗЕ7О ЕБ А, #7В ‚ВА - код "]”. 
СВРЕЕЕЕ САЕЕ  НЕЕРЕ ‚ Печать этого символа. 
Е] РОР НЕ ‚В НЁ - адрес начала строки. 
23 ТАС НЕ ‚ Теперь в НЁ - адрес пары 
23 ТС НЕ ‚ячеек с длиной строки. 
ДЕ [В С, (НЕ) ‚ Перезапись 
23 ТС НЕ ‚длины строки 
46 [В В, (НЕ) ‚ в регистровую 
23 ТС НЕ ‚ пару ВС. 
3Е28 ЕО А, #28 ‚ВА - код "(”. 
СОЕЕЕЕ САЕЕ  НЕЕРЕ ‚ Печать этого символа. 


РОЗН НЕ ‚ Печать 
САЕЕ #2028 ' значения 
СА #20ЕЗ ; ДЛИНЫ 
РОР НЕ ‚ строки. 
ЕО А, #29 ВА - код ")". 
СА НЕЕРЕ ‚Печать этого символа. 
ЕО А, (НЕ) ‚ВА - код из памяти. 
СР #20 ‚ Проверка, что за код? 
УА МС, НЕЕВЕ ‚Если печатный символ, 
‚то переход на РНТИТ. 
СЕТ 2, (ТУ+87) ‚Если упр. код, то вкл. 
‚инверсии и проверка, 
‚что за код. 
СР #10 ‚ Проверка ТМК. 
САЕЕ 7, #НЕЕ94 ‚Если да, то выполн. ТМК 
СР #11 ‚ Проверка РАРЕВ. 
САЕЕ 7, НЕЕЭС ‚Если да, то выполн. РАРЕВ. 
СР #12 ‚ Проверка ЕГАЗН. 
САЕЕ 7, НЕЕАО ‚Если да, то выполн. ЕЁАЗН. 
СР #13 ‚ Проверка ВВАТСНТ. 
САЕЕ 7, НЕЕА4 ‚Если да, то выполн. ВВТОНТ. 
СР #14 ‚ Проверка ТМ\УЕВОЕ. 
САЕЕ 7, НЕЕА8 ‚Если да, то выполн. Т№\. 
СР #15 ‚ Проверка О\ЕВ. 
САЕЕ 7, НЕЕАС ‚Если да, то выполн. О\ЕВ. 
СР #16 ‚ Проверка АТ. 
САЕЕ 7, НЕЕВО ‚Если да, то выполн. АТ. 
СР #17 ‚ Проверка ТАВ. 
САЕЕ 7, НЕЕВЬ ‚Если да, то выполн. ТАВ. 
СР #08 ‚ Проверка ВАСК. 
САЕЕ 7, НЕЕВА ‚Если да, то выполн. ВАСК. 
ВЕЗ 2, (1\+87) ‚ Отключение инверсии. 
СР НОЕ ‚ Проверка “ЧИСЛО”. 
СА 7, НЕЕСб ‚Если да, то выполн. 
СР вор ‚ Проверка “КОНЕЦ СТРОКИ”. 
УИ №7, НЕЕЭ1 ‚Если это код от 18 до З1, 
‚то переход на РВОВ. 
ТАС НЕ ‚ Переход к следующему адресу. 
РУЗН НЕ ‚ Сохранение его на стеке. 
ЕО ОЕ, (НЕЕРО)) ‚В 0Е - значение \УАА$. 
АМ А ‚ Сброс флага переноса. 
ВС НЕ, ОЕ ‚Проверка на достижение 
ЕО А, Н ‚ области УАА$, а следова- 
[0 Е ‚тельно, конца листинга. 
РОР НЕ 
УР №, #ЕБЕВ ‚Если не конец, то на ЭУТВОК. 
ВЕ ‚Если конец, то выход. 
РАОВ  ТМС НЕ ‚ Переход к следующему адресу 
УА ВЕЕЗЕ ‚и повторение ТМЕ. 
ТАК ЕО А, #49 ВА - код "". 
КОЕ САЕЕ  НЕЕРЕ ‚Печать этого символа. 
ХОВ А ‚ Обнуление аккумулятора. 
ТАС НЕ ‚ Переход к следующему адресу 
ВЕ ‚ и возврат. 
РАРЕВ 10 А, #50 ‚ВА - код "Р" 
УИ ВЕЕ9б ‚ Переход на КО. 
ЕЕАЗН [0 А, #46 ВА - код "РЁ". 
УИ ВЕЕ9б ‚Переход на КОГ. 
ВАТСНТ 1 А, #42 ‚ВА - код "В" 
УИ ВЕЕ9б ‚ Переход на КОГ. 
ТАУ ЕО А, #56 ‚ВА - код "У". 
УИ ВЕЕ9б ‚ переход на КОГ. 
ОУЕВ 10 А, НАЕ ‚ВА - код "0" 
УИ ВЕЕ9б ‚ Переход на КОГ. 
АТ ЕО А, #41 ‚ВА - код "А" 


РЕСВЪ706 
С0ЕЗ20 
РОСВ5796 


00 
001201 


120080 


|=) 


И а И ии 


ооо г 


с © п! 
9 


А, (1Х+0) 
Е, (ТХ+1) 
О, (1Х+2) 
С, (1Х+3) 
В, (1Х+4) 
ТХ 

НЕ 

#2АВб 

2, (1\+87) 
#20ЕЗ 

2, (1\+87) 
НЕ 

А, #50 
ВРЕЕРЕ 

ОЕ, #0004 
НЕ, ОЕ 


ОЕ, #РЕОВ 
А 

#ОСОА 
128; 19 
13 


13, 18, 1 


"ВУ ВЕЗЗОМОУ А." 


"ВАУ “С 1991 
18,0, 13+128; 


Пропуск аргумента АТ. 
Переход на КО|. 
ВА - код "Т". 
Пропуск аргумента ТАВ. 
Переход на КОГ. 
ВА - код "<". 
Переход к предыдущему адр. 
Переход на КО|. 
Печать символа и 

переход к следущему адр. 
Возврат на ТМЕ. 

Переход к следующему адр. 
ВА - код “[”. 

Печать этого символа. 


‚ Перезапись значения НИ. 
‚в регистр. пару ТХ. 

‚ Подготовка 

‚ данных 

‚для рассчета 

‚значения числа 

‚В 5-байтном виде. 


‚ Передача регистров на стек. 
‚ Включение инверсии. 

‚Печать значения числа. 

‚ Выключение инверсии. 


ВА - код "]". 

Печать этого символа. 
Переход на оставшиеся 
4 байта вперед. 
Обнуление аккумулятора. 


‚Эдесь хранится \АВЗ. 
Процедура 

‚ печати 

‚ символа. 


‚ Вывод 
‚ сообщения 
:0б авторе. 


, 


""ЕООК ВАЗТС РНОСВАМ$ '" 


1992(С) Свиридов Константин Викторович 
Моск. обл. г. Мытищи. 


КАКИЕ КОМПЬЮТЕРЫ МЫ ВЫБИРАЕМ 


Уважаемая редакция! 

В своем письме я затронул одну из важных проблем компьютеризации - выбор 
начинающим —радиолюбителем модели персонального компьютера (ПК) для 
самостоятельной сборки. По самым скромным подсчетам за 1991 год у нас в стране было 
собрано более 90 тыс. Зресгит-совместимых ПК, что существенно превысило общее 
количество всех других, в том числе и промышленно выпущенных, и ввезенных из других 
стран компьютеров различных моделей. Учитывая достаточно широкий выбор наиболее 
распространенных версий. По отзывам всех знакомых мне радиолюбителей, подобные 
публикации всегда вызывают повышенный интерес, что важно в условиях конкуренции 
различных изданий для радиолюбителей. 

Начиная с 1987 года у магазина "Пионер", затем на Соколе, в Покровско-Стрешнево и 
еще бог знает где в Москве, а впоследствии у станции метро "Тушинская" появилось около 
10 основных моделей "Зрегит"-совместимых ПК. Эти модели и их различные версии 
стали теперь основным парком бытовых ПК в бывшем СССР благодаря их простоте, 
дешевизне и огромному количеству отличных программ. 

Радиолюбителю, а порой и профессионалу сложно разобраться в преимуществах 
одних моделей перед другими, так как практически отсутствует информация о тонкостях и 
сложностях в настройке и эксплуатации, а также совместимости с программным 
обеспечением. Проблема также состоит в том, что в настоящее время сбыт некоторых 
моделей ПК оказался в кругу интересов их разработчиков. Как правило, вся информация о 
таких ПК - это реклама, и теневые стороны не освещаются. 

Первой массовой моделью стал ПК "Москва". При сложности в изготовлении и 
настройке, а также при большом количестве доработок, которые необходимо вносить, этот 
ПК до сих пор остается наиболее полноценным повторением модели "7Х-ЗРЕСТВУМ" с 
точки зрения машинных циклов и организации памяти. Следует также отметить, что в 
телевизионном кадре у "Москвы" 312 строк, что соответствует стандарту, а не 320, как у 
большинства других моделей. Только в этой модели предусмотрено торможение 
процессора при видео-выводе и обращении в адреса с 4000Н по 8000Н (16384-32767 БЕС). 
Однако, сложности в настройке делают ПК "Москва" малопривлекательным для начинающих 
радиолюбителей. 

Следующим этапом ПК был "Балтик" (название произошло от того, что плату и схему 
разработали в Вильнюсе). Основным достоинством этой модели является простота и 
высокая надежность в работе. На плате мало исправлений и компьютер прост в наладке. Но 
наличие микросхем К556РТ4 и К155РЕЗ, необходимых для организации машинных циклов и 
работы видеопроцессора, которые необходимо предварительно программировать, 
накладывает некоторые ограничения на доступность комплектующих. Жесткая организация 
машинных циклов и существенные отличия в организации работы памяти, а также 
повышенная вследствие этого до 4 Мгц тактовая частота процессора, делает эту модель 
менее совместимой программно. По этим причинам в настоящее время версия "Балтик" 
мало распространена. 

Существенным шагом явилось появление модели “Москва 128" (разработанной 
скорее всего не в Москве). Это первая модель, где используется "прозрачное" ОЗУ, т.е. 
режим, в котором процессор при обращении к памяти не тормозится. Прототипом этой 
модели послужил ПК “ЭМСЬАВ-128". Но использование работы памяти в критичных 
режимах, а также отсутствие музыкального сопроцессора сделало эту модель весьма 
убогим повторением. 

В "Москве 128" был впервые предусмотрен интерфейс принтера 1Х-РЕМТ и 
оригинальный программируемый джойстик, также предусмотрено подключение двух 
КЕМРЗТОМ-джойстиков и полноценный Т\-ВСВ выход. К несчастью, эта модель не получила 
распространения из-за малого количества программ, рассчитанных только под "ЭИМСЁЬА!В- 


128" и сложностей в настройке, проявляющихся как "сбойность" в ОЗУ. 

Самой массовой моделью "“Зресгит“-совместимых машин без контроллера 
дисковода стал "Ленинград 1". Его основные достоинства: простота, дешевизна, небольшое 
количество исправлений на плате, повторяемость. Из-за отсутствия достойных конкурентов 
эта модель приобрела большую популярность. К сожалению, за простоту пришлось 
заплатить плохой совместимостью. Неправильная адресация портов, а как следствие - 
побочные эффекты и сложность подключения внешних устройств. На плате не 
предусмотрено системного разъема и подключить любую периферию очень сложно. Хотя 
торможение процессора в цикле М1 (при выборке кода инструкции из ОЗУ) и облегчает 
режим работы памяти, но сильно вредит совместимости с программным обеспечением. В 
настоящее время эта модель постепенно сходит с рынка, хотя и ее последователи не 
лишены многих допущенных в ней ошибок. 


"Москва" 200*125 
"Балтика" 210*120 
"Москва 128" 280*137 
"Ленинград-1 208*125 


"Пентагон" 278*142 

"Красногорск" 224*141 

"Ленинград-2" 210*115 

"ГХ-РАОН" 335*152 МСВРВООО$ 
"Пентагон128" 312*142 

"АТМ-тигфо" 312*132 СРМ 2.2 
"Апазтет" 275*115 

ПРИМЕЧАНИЯ: 

1. Размер платы указан в мм. 

2. Количество корпусов микросхем может отличаться в различных версиях модели ПК. 
3. Указывается наличие на плате ПК контроллера дисководов, для ТВ-0О$, интерфейса 
принтера 2Х-ЕРАМТ, интерфейса КЕМРЗТОМ-ДОУ$ТСК. 

4. Указывается наличие на плате места под разъем системной шины. Системные шины 
разных моделей ПК не стандартны. 

5. ПК "ИХ-РВОН! состоит из двух плат. Указан размер наибольшей платы. 

Одновременно с "Ленинградом 1" на рынке появился компьютер "Пентагон" или 
"Пентагон 48", прозванный так за пятиугольную разводку земляной шины по контуру 
печатной платы. Это была первая модель ЗРЕСТАУМ-совместимого ПК, в котором на одной 
плате расположен компьютер и контроллер дисковода. "Пентагон" много позаимствовал от 
"Москвы 128", в частности, "прозрачное" ОЗУ, адресацию портов и недостатки, 
свойственные "Москве 128". Динамическая память в этой модели работает на предельных 
частотах, да и плата разведена не лучшим образом, из-за чего приходится усиливать шины 
питания. На плате отсутствует схема формирования Т\ ВОВ сигнала и ее приходится делать 
навесной. Как положительную сторону этой модели можно отметить устройство ввода с 
магнитофона (на КМОП К561ЛН2), а как отрицательную - отсутствие системного разъема. 
"Пентагон 48" популярен еще и сейчас, хотя постепенно вытесняется аналогичными 
машинами со 128-килобайтами ОЗУ. 

Чуть позднее "Пентагона" на рынке появился ПК "Красногорск". Это оригинальная 
модель, в которой для формирования телевизионных сигналов используется ПЗУ 
К573РФ2(5), с зашитой в ней таблицей. В "Красногорске" использован хоть и прозрачный, 
но облегченный за счет жестких машинных циклов режим ОЗУ, на плате разведен 
формирователь Т\-АСВ-сигналов. Эта версия ПК стала попыткой исправить недостатки 
"Балтики" и "Ленинграда 1", но из-за трудности приобретения ПЗУ с таблицей, сложности 
расширения, из-за отсутствия системного разъема и неправильной адресации портов, эта 
модель не стала такой же массовой, как "Ленинград 1". В настоящее время "Красногорск" 
очень мало распространен на рынке. 


После появления в начале 1990 года "Красногорска", в силу ряда причин на рынке 
бытовых ПК болыше года не появлялось новых моделей "“Зрецгит"-совместимых 
компьютеров. Появление ПК "Орион 128" на базе процессора КР580ИК80, ни с чем не 
совместимого программно, не оказало существенного влияния на развитие бытовых ПК. 
Однако, весной и летом 1991 года на рынке появилось сразу несколько новых моделей. 
"Ленинград 2" представляет собой улучшенный вариант "Ленинграда 1", по сравнению с 
ним в новой модели исправлена адресация порта КЕМР$ЗТОМ-джойстика, хотя остались 
ошибки с адресацией "бордюрного" порта ЕЕ (254). Видеопроцессор формирует 312 строк в 
кадре, выведена внешняя шина. "Ленинград 2" существенно лучше своего 
предшественника, но по всей видимости таким же популярным он не стал. Одной из причин 
этого является сложность расширения, как и у всех предыдущих ПК, отсутствие 
контроллеров, разработанных под конкретную модель. 

Компьютер "7Х-РВОЕ!" первый из разработанных у нас ПК, в котором помимо режима 
48 и 128 предусмотрено и использование операционной системы СРМ. Компьютер состоит 
из двух плат и достаточно сложен в настройке, но имеет наиболее полный набор периферии 
в одном блоке. Авторы и распространители проводят правильную рыночную политику, 
направленную на широкое распространение этой модели. Но их ошибкой является то, что 
сложный и дорогой полупрофессиональный ПК не нужен основной массе потенциальных 
потребителей. Достоинством этой модели является режим "ТУВВО", а недостатком - 
неполная совместимость, как с "7Х-ЗРЕСТНВИМ", так и с СРМ ПК "АОВОТВОМ 1715". 

По сравнению с "7Х-РВОН" “Пентагон 128" оказался более простым и массовым ПК, 
хотя по сути это лишь скрещивание “Москва 128" и "Пентагон 48" без существенного 
улучшения. Машина сложна в настройке, критична к ОЗУ, на плате нет места под 
музыкальный сопроцессор А\-8912, но в настоящее время этот компьютер, к сожалению, 
единственный в своем роде. 

"АТМ-тигфо" - чисто коммерческий ПК. Политика его авторов или изготовителей, 
очевидно направленная на защиту “авторских прав", скорее направлена на получение 
максимальной прибыли в короткие сроки. Это несомненно оригинальный ПК, но он является 
и самым дорогим и сложным в настоящее время. В нем предусмотрено несколько режимов 
графики (только в СРМ), но, к сожалению, те "навороты" - наличие АЦП, ЦАП и элементов 
для модема и АОНа, на одной плате, в настоящее время никак не поддержаны программно. 
В компьютере нет достаточной гибкости и даже системного разъема. Похоже, проблемы 
совместимости с "7Х-Зрегит" разработчиков интересовали мало, и " АТМ" можно скорее 
рассматривать как СРМ-совместимый ПК. 

На время написания данной статьи последней моделью является "АМОЗТВЕМ", в нем 
впервые применена микросхема 1515 ХМ 1. Это набор счетчиков, мультиплексоров и 
мелкой логики. Простота в изготовлении и дешевизна, несомненно сделают в ближайшее 
время эту модель популярной. Но существенным шагом в ней явилось лишь 
технологическое упрощение с использованием 1515 ХМ 1 вместо набора отдельных 
микросхем. Среди достоинств этого ПК - простота в настройке, а среди недостатков - малая 
гибкость, в частности, невозможность расширения ОЗУ и дефицитность 1515 ХМ 1. 


А что же дальше? Недавно получена информация о скором появлении нового ПК с 
двумя процессорами 7-80. Со слов авторов в нем решены как почти все проблемы 
совместимости, так и возможность расширения. Плата в этой модели похожа по структуре 
на Мотпегроага 1ВМ РОС, т.е. с несколькими системными разъемами. Хотелось бы верить, что 
это тоже не реклама. А разработчикам новых ПК желательно учесть: доступность, 
небольшой набор элементов, надежность, открытость архитектуры (легкость расширения), а 
с точки зрения совместимости, правильную адресацию портов, наличие на плате так 
называемого “порта ЕЕ", правильное положение и длительности сигнала ИМТ (запроса 
прерывания). Ну, а тем, кто не хочет ждать (да и дождется ли) появления "идеального" ПК 
можно выбрать модель по вкусу и карману. 


Желаем Вам удачи! 


НОВЫЕ РОКЕЗ$ 


Наш корреспондент из г. Красноярска Татаренко А.А. предлагает вниманию читателей 
некоторые разысканные им РОКЕЗ: 
. ЭРЕН ВОЦМЮО - 27871,0: 36133,0 - энергия 
или 35101,195: 35102,53: 35103,206 


— 


2. ОИ .2У2 - 29289,201 - неуязвимость 
3. 9172УЗ - 42481 Х - кол-во жизней 
63001,0 - беск. жизни 
4. ОУ 4 - 29623,0: 29624,195 - беск. жизни 
5. 9925 - 51291,0 - беск. жизни 
6. ЗТАА ВО\ММ $ - 47806,.Х - кол-во жизней 


46278,0 - беск. жизни 
7. ЭСУМВАЦЕ - 49098 Х - кол-во жизней 
8. СОСОВАМА - —43855,0: 48658,0 - беск. жизни 
9 


. ТОМСАТ - 37174,0 - беск. жизни 
37171,201 - неуязвимость 
10. ТВАСЕВ - 50273,0 - время 


50613,0 - энергия 
50649. 0 - беск. жизни 


11. ТМ$ТЕР - 42412,0: 42490,0 - энергия 
12. АВК РУЗОМ - 50407,6: 50408,0 - беск. жизни 
13. ХЕМОМ - 25148,201 - беск. жизни 


14. СОМОЧЕЗТ (ЕВВЕ $ЗОЕТ) - 62370,0 - останавливает противников 


(С) Станов Николай Михайлович. 
г. Хабаровск, 1993г. 


РАСПАХНУТЫЕ ДВЕРИ ИЛИ ОТКРЫТЫЙ ЗАНАВЕС? 


Глубокоуважаемая редакция! 

Вот уже третий год я являюсь достоянным читателем Вашего журнала "7Х-РЕВЮ", 
неизменно следя за всеми публикациями, касающимися как "секретов" Х-Зресгит, так и 
приемов программирования на языке Ассемблера 7-80. Сам я занимаюсь созданием 
микропроцессорных систем с начала 1988 года и не могу не оценить той услуги, которую Вы 
мне оказываете. Надо полагать, что эту услугу Вы оказываете всем читателям Вашего 
журнала! 

За время работы со своим компьютером (я три года эксплуатировал "Новосибирский 
вариант", а сейчас уже год как построил "Москву-128" с Вща О15К |щейНасе) мной создана 
довольно обширная библиотека процедур в машинных кодах, которую я широко использую 
при написании собственных программ. 

Руководствуясь тем, что долги надо возвращать (а я, получая от Вас информацию, 
считаю себя Вашим должником), а также желая поделиться с другими читателями 
собственными разработками (негоже каждый раз изобретать заново велосипед), я отдаю на 
Ваш суд одну из своих разработок. Если сочтете необходимым, поступите с ней по Вашему 
усмотрению. 

К написанию этой процедуры меня натолкнул эффект раздвигающихся дверей в 
игровой программе "ВОВИМ ОЕ ТНЕ МООО" фирмы "ОГПМ". Отсюда и название ее "ОООВ5". 
Не зная, как этот эффект достигается в фирменной программе (я ее не вскрывал, как-то еще 
не доходили руки), но встретив в "7Х-РЕВЮ-92" статью "40 лучших процедур", сразу все 
понял и спустя чуть больше двух часов подпрограмма была готова. 

Предлагаемая процедура осуществляет очистку области пикселов и установку 
рабочих атрибутов экрана, но в отличие от стандартной процедуры ПЗУ СЕ$ (#0068) этот 
процесс сопровождается сравнительно плавным перемещением пикселов влево и вправо от 
центра экрана (каждый раз на одно знакоместо слева и справа от центра) и заполнением 
свободных от пикселов столбиков новыми атрибутами, то есть довольно точно имитируется 
эффект раздвигающихся дверей. Процедура занимает 101 байт и еще один байт необходим 
для хранения данных - текущих атрибутов экрана (или вновь устанавливаемых атрибутов). 
Столь небольшой ее объем получен за счет использования всех регистровых пар как 
основного, так и альтернативного блоков, причем основной блок участвует в перемещении 
пикселов, а альтернативный - в установке атрибутов. Для обеспечения корректного выхода 
из процедуры требуется сохранение исходного адреса в регистровой паре Н'1', что также 
осуществляется в ней, давая возможность ее использования и как машинно-кодовой 
вставки в ВАЗ!С-программы. 

Для полной очистки всех строк пикселов экрана (#С0 - устанавливается в регистре С) 
требуется #0Е пар перемещений знакомест (устанавливается в регистре В), тогда как число 
пар атрибутов, устанавливаемых в процессе работы, должно быть равно числу знакомест в 
полустроке, то есть #10. С этой целью в регистр А копируется константа #0Е из регистра В, 
процесс перемещения пикселов завершается при обнулении регистра В, а процесс 
установки атрибутов - до появления отрицательного числа в аккумуляторе (контролируется 
флаг знака). 

В регистровой паре НЕ устанавливается начальный адрес #4000 области пикселов, в 
регистровой паре Н'!" - начальный адрес $5800 области атрибутов экрана. В регистровых 
парах ОЕ и О"Е' - количество знакомест в строке (#0020), а в регистре С - константа #18(24) - 
число знакорядов в экранной области. 

В приведенном ниже листинге предлагаемой процедуры: 

1) В адресах С000 - С009 - установка новых атрибутов экрана. Если предполагается 
сохранять атрибуты неизменными, то эти команды можно исключить вместе с константой в 
адресе С065 (АТТВ) и устанавливать их непосредственно в командах по меткам А1 и А2. В 


этом случае размер процедуры сокращается на 10 байт; 

2) В адресах С015 - СО1Е перемещение пикселов на одну пару знакомест во всех 192 
(#СО) строках экранной области. При этом в адресах С016 - С020 - перемещение в левой 
половине экрана, начиная с левого края, а в адресах С023-СО2Е - перемещение в правой 
половине экрана, начиная с правого края; 

З)В адресах СОЗЕ - С045 - перемещение атрибутов на одну пару знакомест во всех 24 
(#18) знакорядах экрана. При этом освободившиеся знакоместа заполняются новыми 
атрибутами. В адресах С040-СО4В - операции в левой половине экрана, начиная с левого 
края, а в адресах СО4Е-СО54 - операции в правой половине экрана, начиная с правого края. 


ХАЖЖЖХКККЯЖЖЖХКККАЖЖЖХЖЖЖКХХ 0032 Е РОР АЕ 
(С) ЗрубогЕ  РАОСААМ "0008$" 033 3 ОЕ А 
ИгтЕТтеп бу М. №. 5Е1поу 034 05 РОЗН ОЕ 
КНАВАВО\У$К-1993 035 06 ЕХ АЕ, АЕ' 
ХАЖЖЖХКХКАЖЖЖККККАЖЖЖХЖЖЖХКХХ 036 19 ЕХХ 
000 оВ@ #000 0037 01 РОР ОЕ 
С000 3Аб5С0 [О А, (АТТА) С038 ЕБ РУЗН НЕ 
003 324900 [О (А!+1), А 0039 210058 ЕО НЕ, #5800 
006 325800 [О (А2+1), А С03С 01180Е [О ОС, #0Е18 
0009 112000 000А$ Е ОЕ, #0020 СОЗЕ 65 [6 РУЗН ВС 
С00С 060Е [О В, #ОР 040 ЕБ РУЗН о НЕ 
СО0Е 78 [О А, В 0041 23 [3 ТАС НЕ 
ССОО РБ [7 РУЗН АЕ 0042 7Е [О А, (НЕ) 
С010 ОЕСО ЕО С, #00 043 28 ОЕ НЕ 
(012 210040 [О НЕ, #4000 0044 77 [О (НЕ), А 
015 65 [5 РУЗН ВС 045 23 ТАС НЕ 
С016 ЕБ РУЗН НЕ 0046 1029 Ум [3 
(017 23 [1 ТАС НЕ 048 3500 А1 [О (НЫ), #00 
(0018 7Е [О А, (НЫ) С04А ЕЛ РОР НЕ 
С019 28 ОЕ НЕ С04В 19 АБО НЕ, ОЕ 
СОТА 77 [О (НЕ), А С04С С1 РОР ВС 
СОЛВ 23 ТАС НЕ 040 65 РУЗН ВС 
С071С 1079 и С04Е ЕБ РУЗН НЕ 
СОЛЕ 72 [О (НЕ), 0 С04Е 2В ОЕ НЕ 
СОЛЕ Е1 РОР НЕ 050 28 [4 ОЕ НЕ 
020 19 АБО НЕ, ОЕ 0051 7Е [О А, (НЫ) 
С021 С1 РОР ВС 0052 23 ТАС НЕ 
022 05 РУЗН ВС 0053 77 [О (НЕ), А 
С023 ЕБ РУЗН НЕ 054 28 ОЕ НЕ 
024 28 ОЕ НЕ 0055 1029 У [4 
025 28 [2 ОЕ НЕ 0057 3500 —А2 [О (НЕ), #00 
(0026 7Е [О А, (НЫ) 0059 Е1 РОР НЕ 
(027 23 ТАС НЕ С05А С1 РОР ВС 
(028 77 [О (НЕ), А С05В 00 ОЕ С 
029 28 ОЕ НЕ С05С 20Е1 УВ 0, 16 
С02А 1079 ВУ [2 С05Е Е1 РОР НЕ 
С02С 72 [О (НЕ), 0 С05Е 09 ЕХХ 
С020 Е1 РОР НЕ 060 08 ЕХ АЕ, АЕ` 
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ЗТВАТЕС!С САМЕ$ 


Сегодня мы предлагаем Вашему вниманию обзор двух программ стратегического 
жанра. Они не случайно объединены здесь в одной подборке, поскольку являют собой 
полные противоположности и могут служить поучительными примерами для тех, кто сами 
подумывают о написании подобных программ. 

Первая программа очень тщательно проработана с содержательной и исторической 
точки зрения. Она заслуживает высших оценок, но... с точки зрения играбельности с ней не 
все в порядке. Лишь очень преданные стратегии пользователи, располагающие к тому же 
солидными запасами свободного времени смогут преодолеть эту прямо скажем 
незахватывающую игру. Ее никак нельзя рекомендовать начинающим стратегам, ибо после 
нее они надолго потеряют вкус к этому жанру. 

Вторая программа демонстрирует редкий казус. Она плохо проработана с военно- 
исторической точки зрения, содержит немало "ляпов", задумана как скучное 
противостояние двух армий, но... именно благодаря этим “ляпам" неожиданно оказывается 
играбельной и даже интересной. 


АММАЕ$ ОРЕВОМЕ 
"Р$$" 


АММАТ ОЕ 
ВО 


© ысмехххыт Р55 


Обозреватель:"ИНФОРКОМ" 


В античные времена люди полагали, что у каждого города есть свои боги, которые 
свысока наблюдают за его судьбой. А римляне, кроме того, были уверены, что самые 
сильные боги приглядывают за Римом. 

В этой игре Вам предстоит попробовать свои силы в качестве такого бога. Вы 
начинаете игру в 273 г. до н.э., когда Рим имел неустойчивый контроль над территорией 
современной Италии и должны развиться в могущественную империю и довести ее до 
падения Константинополя в 1453 г., т.е. прожить немалый исторический период длиной в 
1726 лет. 

География игры охватывает мир, известный в те времена, с центром в 
Средиземноморье. Он разделен на 28 отдельных регионов, в каждом из которых есть свое 
население и своя система управления. 

Игра строится по тактовому принципу. Через неравные временные интервалы Вам 
предлагается выдать управляющее воздействие. Длина каждого такого интервала зависит 
от того, как много исторических событий произошло в этот период, но в среднем на одно 
столетие приходится примерно 8 ходов. Вы управляете политической карьерой сенаторов, 
производите назначения на должности, распределяете обязанности по защите империи и 
неуклонно расширяете область, подвластную Вашему управлению. 

Боевые сражения в этой игре не главное. Это скорее игра, рассчитанная не на 
военную, а на политическую стратегию. Крупные военачальники продвигаются все выше и 
выше после одержанных побед, потом стареют и сходят со сцены, а иногда погибают в боях, 
нередко их амбиции приводят к мятежам и переворотам. Неспокойно и на границах 
империи. 

По мотивам этой игры можно писать книги и романы. Самое интересное, что любые 
индивидуальные усилия героев игры такого масштаба выглядят мелкими и 


незначительными. Единственным подлинным героем игры оказывается город. И этот город 
- Рим, а Вы как бы его верховное божество. 


ТНЕ ВЕРЧУВЕТС 


Это отличная игра и ее можно рассматривать даже как обучающую по основам 
политической теории, но у нее есть огромный недостаток - она очень медленна. Порядка 
двух часов уходит на то, чтобы сделать три-четыре хода, пока компьютер перебирает раз за 
разом все подвластные Вам провинции и принимает от Вас управляющие воздействия. 
Впрочем, в какой-то степени это выглядит реалистичным в том смысле, что и реальные 
политические лидеры проводят ежедневно многие часы, изучая политические карты и 
размышляя. Хотя в игре это может быстро наскучить. 

Игра не имеет логического финала. Пользователь сам решает, где ему остановиться; 
когда его империя начинает разваливаться и он не имеет уже реальных шансов на будущее. 
Кроме того, будущему пользователю, начинающему игру, предстоит потратить немало 
времени для того, чтобы разобраться, что делает какая клавиша и что обозначают те или 
иные значки на экране. 


САНЧРОН 
"СС$" 


Обозреватель: "ИНФОРКОМ." 


Сражение на полуострове Гелиболу относится к тем военным кампаниям, которые 
блестяще прорабатываются в теории, но совсем по-другому происходят на практике. Это же 
можно отнести и к этой игре, которой в значительной степени не хватает реализма, хотя 
играбельность ее оказалась высокой. 

К началу 1915 г. на западном фронте сложилась напряженная ситуация 
сдерживаемого равновесия и английское командование предприняло попытку нарушить 
стратегический баланс сил путем высадки своих войск на полуострове, с которого 
открывался бы доступ к столице Турции, находившейся в союзе с Германией. 

Идея состояла в том, чтобы вывести Турцию из войны и тогда открылась бы 
возможность значительного расширения коммуникаций между западными союзными 
державами и Россией. На выполнение этой задачи был брошен десант в составе 
английских, новозеландских и австралийских частей общей численностью более 60 тыс. 
человек. 

К несчастью, турки оказались намного более серьезными соперниками, чем кто-либо 


на западе до этого мог предположить, а условия местности на полуострове не шли ни в 
какое сравнение с условиями на европейском ТВД. Так что 22 тысячи турецких войск стойко 
держали оборону против превосходящих сил противника. Их главной целью стало 
продержаться до подхода подкреплений, после чего чисто логически английскому десанту 
остается только утопиться в море. 

Бывают стратегические игры, в которых основу составляет умелое маневрирование 
войсками, бывают игры, в которых основой является управление снабжением, здесь же в 
основу игры создатели заложили инженерную подготовку операций. Если говорить просто, 
основной упор здесь сделан на ... рытье окопов в каменистой местности. Что может быть 
противнее?!! 


Вы можете создавать целые линии окопов, соединять их ходами сообщения, 
подводить минные ходы под укрепления противника, ставить мины и контрмины. В общем, 
если все было бы так, как задумали игру ее создатели, это была бы одна из скучнейших игр. 

К счастью, с военно-исторической точки зрения в игре был допущен серьезный 
промах. Полагая, что в сражении мало использовалась артиллерия, программисты создали 
для союзников слишком простые условий для победы. На самом деле артиллерия 
использовалась широко, а открытая скалистая местность очень этому благоприятствовала. 

Упущение этого важного фактора из виду привело к тому, что искушенный игрок не 
будет в поте лица копать километры окопов, а сделает все тривиально просто. Собрав все 
силы в один кулак и, невзирая ни на какие чудовищные потери (войска-то ведь не живые), он 
прорвет фланг турок а затем, выйдя на равнины, прокатится тяжелым каткой по их тылам. 
Захват же баз снабжения в Тылу турецких войск оказывается достаточным условием 
победы. 

Фирма СС$ редко делает подобные ошибки и эта игра, к счастью, является 
исключением. Тем не менее, если забыть об исторических реалиях, то при таком 
антиисторичном развитии игры, она оказывается очень играбельной. 


СОВЕТЫ ЭКСПЕРТОВ 


Ептуп Нчдрпе$ |щегпайопа! Зоссег 
АЧОЮСЕМ!С ЗОЕТМАВЕ ТО 


Эксперт: Матвеев Ю. А. г. Москва 


До конца игры оставалось две минуты. Сборная России проигрывала со счетом 1:2 в 
Финальном матче кубка Лиги. Английские болельщики, предвкушая победу своей команды, 
дружно и весело распевали национальные песни и бросали с трибун длинные бумажные 
ленты. Полотнища английских флагов гордо развевались над ликующими англичанами. 

Не желая мириться с поражением, сборная России отчаянно атаковала, пытаясь 
спасти игру. Судья посматривал на секундомер и, казалось, вот-вот прозвучит финальный 
свисток. 

Иванов получил пас из глубины поля и на мгновение притормозил: второй номер 
англичан Смит тараном шел на него, рискуя заработать штрафной удар. Из-под ноги Смита 
Иванов мягко переправил мяч Сидорову и тот, четко его обработав, мощно пробил в правый 
верхний от вратаря угол. Мяч, словно снаряд, влетел в ворота. Огромный стадион замер, в 
то время как немногочисленная группа российских болельщиков взорвалась криками и 
аплодисментами. 2:2! Судья указал на центр поля и, спустя несколько секунд, дал 
финальный свисток. Теперь зависело от того, как команды сыграют в дополнительное 
время. 

После игры Президент ФИФА должен был торжественно вручить золотой Кубок Лиги 
команде победителей. Один мяч - вся жизнь, проигрывать никто не хотел... 
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В этой игре вам предоставляется возможность участвовать в международном турнире 
по футболу среди лучших команд Европы. В отличие от многих игр подобного типа 
"Международный футбол” привлекает к себе внимание неплохой мультипликационной 
графикой и прекрасной динамикой. Зрелищность - тоже одно из качеств этой игры. 
Ситуации, возникающие на игровом поле, напоминают сцены реальных футбольных матчей. 
Игроки передвигаются осмысленно и точно. Это особенно заметно на усложненных уровнях 
игры. Как оппонент, компьютер играет достаточно сильно, и Вам не раз придется начинать с 
центра поля. 

В игру заложены практически все правила футбола: штрафные удары, выбросы из-за 
боковой, угловые, удары от ворот и, что особенно интересно, пенальти. Вы можете во время 
матча произвести замены, а также переставить игроков, усиливая тем самым атаку или 
защиту. 

В "Международном футболе" есть возможность отдать управление игроками 
компьютеру, а самому заняться исключительно менеджментом, составляя команду из 
игроков, наиболее подготовленных к матчу. Кто и на каком месте будет играть, Вы решаете 
сами. В этом случае игра превращается в деловую, а Вы ощущаете себя в роли тренера, 
который может лишь переживать за свою команду и вовремя производить замены и 
перестановки. 

После загрузки программы компьютер спросит Вас о выборе управления для первого 
игрока: "КЛАВИАТУРА ИЛИ ДЖОЙСТИК (К//)?" 

Если Вы выбираете джойстик, то: 

"КЕМПСТОН ИЛИ СИНКЛЕР (К/5)?" 

Если Вы решили использовать джойстики для обоих игроков, то рекомендуется 
назначить Синклер-джойстик для первого игрока, а Кемпстон - для второго, поскольку 
замечено, что на некоторых моделях "Спектрум"-совместимых компьютеров при другом 
выборе Синклер-джойстик не работает. После того, как первый игрок выбрал управление, 
компьютер попросит подтвердить выбор: 

"ВСЕ ПРАВИЛЬНО (\/М)?" 

После нажатия "\" компьютер предлагает выбрать управление второму игроку. Если 
выбирается клавиатура, Вам нужно будет задать клавиши управления. Затем Вы вновь 
подтверждаете свой выбор и переходите к главному меню. С помощью курсора Вы можете 
выбрать один из четырех разделов: 

ОРТОМ$ 

СОГОЧА$ 

САМЕ 

ОЗРЕАУ$ 


ОРТОМ$ 
В этом разделе Вы можете задать основные параметры игры: 
ОЧВАТ!ОМ - (продолжительность матча) - от2 до 90 минут. 
1 ОА2\5С - (один или два игрока против компьютера) 
ЕХТВА ТИМЕ - (дополнительное время) - во время кубковых матчей в случае ничьей по 


окончании основного времени будет назначено дополнительное. 

\МЛЕМ/ С \5$ С - (просмотр, как компьютер играет сам с собой). 

НОМЕ & А\МАУ - (домашние и выездные игры) - при включении этой опции компьютер 
будет играть сильнее в домашних матчах. 

РВАСТ!СЕ - (тренировка) 

ЗК ГЕМЕЕ - (выбор уровня игры) - 1...10 

ЕОЧАЁЕ ЭКШЕ - (равный уровень) - при такой установке все команды, управляемые 
компьютером, играют на одном уровне. 

ВАСКНЕЕЕ$ - (пас пяткой) 

КСК ОВЕСТЮМФ - (направление полета мяча) -1,3,5, 

АДТО СОАНЕ - (автоматическое управление вратарем) - при включении этой опции 
Ваш вратарь управляется компьютером. 

АЧТО ВРВЕЗЕЦЕСТ - (автоматический выбор игроков) - в этом режиме компьютер 
переключает управление на того игрока, который находится ближе всех к мячу. Выключив 
это режим, Вы можете подключить к управлению любого футболиста, находящегося в поле 
зрения экрана. Переключение осуществляется клавишей "АВЕ". 

Р{$ РОН \ММ - (очки за победу) - 2 или 3. 

ЗОВЗТПОТЕЗ - (замены) - 2 или 1. 

ЕХТ МЕМО - (выход) - после настройки игры Вы возвращаетесь в основное меню. 


СОГОЧВА$ 
Выбрав этот раздел, Вы получите возможность изменить цвет поля опцией РТСН 
СОЕОЧВ или изменить цвет формы игроков: РЕАУЕВ СОГОЦАВ. Далее вновь ЕХТ МЕМИ. 


САМЕ 
В этом разделе задаются команды и игроки, а также сохраняется и загружается 
отложенная игра. 


РЕАУ МАТСН - этой опцией открывается очередной матч. Сначала Вы знакомитесь с 
составом играющих команд, а затем, после нажатия "НВЕ", переходите непосредственно к 
игре. В случае, если Ваша команда не участвует в очередном матче, Вы можете посмотреть, 
как играют команды, управляемые компьютером. Если Вы не желаете наблюдать за этим 
матчем, то в разделе “ОРТОМ$" нужно выключить режим "\МЕМ/ С \$ С". Перед игрой с 
участием Вашей команды Вы можете переключить управление с Кемпстон-джойстика на 
Синклер-джойстик и наоборот клавишей "ЗРАСЕ". 

АВРАМСЕ ЕЕТЕМОГУ - (товарищеская встреча) - Вы можете назначить товарищескую 
встречу с любой командой из предлагаемого списка. 

РСК ТЕАМ - (перестановки в команде) - при выборе этой опции Вы можете 
производить тактические перестановки в команде, которая выбрана в опции "ТЕАМ" (см. 
ниже) 

РОЗТРОМЕ МАТСН - (отложить встречу) - при желании Вы можете перенести 
очередную встречу на более позднее время. 

ЗТААТ СУР - (открытие кубковых встреч) - выбирая эту опцию Вы сможете участвовать 
только в кубковых матчах. 

ЗТААТ ЕАСЧУЕ - (открытие чемпионата) - здесь Вы участвуете только в играх на 
первенство лиги (встречи турнирные, а не кубковые). 

ЗТААТ ЗЕАЗОМ - (открытие сезона) - в этом случае Вы играете по расписанию 
чемпионата и Кубка лиги. 
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Бета --ИвЫ 
ЕО ТЕАМ - (редактирование команды) - войдя в редактор, Вы можете 
отредактировать команду, выбранную в опции “"ТЕАМ". После нажатия “НВЕ", в левом 
верхнем углу Вы увидите название команды, а в правом - имя тренера. В начальном 
состоянии все команды управляются компьютером, и поэтому в правом верхнем углу будет 
написано "РЕАУЕО Бу: СОМРОТЕЙВ". Ниже дается список игроков с краткой характеристикой 
каждого. Например: 
АВОВИМ$ОМ - фамилия игрока 


7 - номер игрока 

РО - скорость 

ОЕР - уровень игры в защите 

АТТ - уровень игры в атаке 

РТ - степень готовности к мячу - высшая степень 99 
МАТ - количество сыгранных игр 

СЕ$ - количество забитых мячей. 


Характеристики $5РО, ОЕР, АТТ заданы графически: один синий, два белых кружка - 
низкий уровень; два синих, один белый - средний уровень; три синих кружка - высокий 
уровень. Например: ЭРО - два синих кружка; ОЕЁ - три синих кружка; АТТ - один синий 
кружок. 

Это означает, что данный игрок обладает средней скоростью, высоким уровнем игры 
в защите и низким уровнем в нападении, следовательно, это защитник, и его вряд ли стоит 
ставить в нападение. 

В игре местоположение футболиста на поле задается его номером: 

со 2 по 5 - защитники, с 6 по 8 - средняя линия, с 9 по 11 - атака, 12 и 14 - запасные 
игроки, 1 - вратарь (не редактируется и не переставляется) 

Управляя курсором, Вы можете отредактировать любую из восьми команд по Вашему 
желанию. Редактируются название команды, фамилии игроков и их характеристики. 

ВНИМАНИЕ! Компьютером управляются только те команды, у которых в редакторе в 
строке "РЬАУЕО ВУ:" впечатаны восемь букв - СОМРОТЕВН. В противном случае за команду 
играете Вы. Названия команд могут быть любыми. 

Подтвердив свою редакцию команды, Вы возвращаетесь в подменю "САМЕ" 

ТЕАМ - (команда) - Вы можете выбрать любую из восьми команд, предназначенных к 
редакции или к тактической перестановке игроков. 

ЗА\МЕ ТЕАМ - сохранить на ленте результаты редактирования команды. 

ГОАВ ТЕАМ - загрузка с ленты ранее сохраненной команды. 

ЗА\Е АЦ. - сохранить всю игру. 

ГОАВ АЦ. - загрузить всю игру. 

ЕХТ МЕМО - выход в основное меню. 


ОЗРЕАУ$ 
В этом разделе находится вся справочная информация и статистика игр. 
ЗНОМ/ ТЕАМФ$ - (показать все команды) - компьютер дает список команд и фамилии 
тренеров. 
ЗНОМ/ РЕАУЕВФ - (показать игроков) - компьютер выводит на экран фамилии игроков 
команды, заданной в опции "ТЕАМ". 


ТЕАМ - (выбор команды). 

ЗНОМ/ НХТУВЕ$ - (показать предстоящие матчи) 

ЗНОМ/ ВЕЗУЁТФ - (показать результаты матчей) 

ЗНОМ/ТАВЕИЕ - (показать таблицу чемпионата) 

ВУ ТЕАМ - (на команду) - включив эту опцию, Вы после запроса о предстоящих матчах 
увидите список игр одной команды на весь сезон. 

ВУМ/ЕЕК - (на неделю) - аналогично предыдущей опции, но для просмотра всех игр на 
предстоящей неделе. 

\МЕЕК - (номер недели) 

ЕХТ МЕМО - (выход) 


Если у Вас еще нет опыта в этой игре, то Вам не обойтись без тренировки. После 
загрузки игры и ее настройки, включите в разделе "ОРТОМ$" опцию "РААСТ!СЕ". Опцию 
"\ЛЕМ/ С \5 С" выключите, затем войдите в редактор и, выбрав любую команду, впишите в 
строчку "РЕАУЕО ВУ:" свое имя. После этого в опции "ААВВАМСЕ ЕЕЕМОЁУ" назначьте 
товарищескую встречу. Затем "РЕАУ МАТСН" - и Вы уже на тренировке. Компьютер не будет 
Вам сопротивляться, и Вы сможете отработать удары по воротам и технику ведения мяча. 
После тренировки Вы можете перейти к чемпионату ("ЗТААТ ЗЕАЗОМ"). 

Во время игр на первенство Лиги Вы не сможете отредактировать свою команду или 
загрузить ее с ленты. Опции "ЕЙ ТЕАМ" И "ГОАО ТЕАМ" в разделе "САМЕ" Вам уже будут 
недоступны. 


ЗАМЕНА ИГРОКА: 

Во время игры Вы можете заменить одного или двух игроков. Замена производится 
следующим образом: когда мяч уйдет за боковую линию (ОЧТ), нужно нажать "САР$З ЭНИЕТ" - 
игра остановится (режим пауза). Затем клавиша "В" - и Вы переходите в основное меню. 
Здесь Вы выбираете раздел "САМЕ". 

В опции "ТЕАМ" установите название своей команды. Перейдите к опции "РИСК ТЕАМ". 
С помощью курсора выберите игрока, которого следует заменить и переставьте его на 
место игрока из запаса. Затем курсор отводится на позицию "САМЕ", подтверждается 
произведенная замена и Вы вновь возвращаетесь к опции "РЕАУ МАТСН". После появления 
картинки матча нажмите "САР$ ЭН!ЕТ", и Вы можете продолжать игру. 

Прервать игру Вы можете клавишей "Т". 

Есть в программе и такой "жучок": в режиме паузы (САР$З ЭНЕТ) нажать "\", а затем 
"ЗРАСЕ" и вновь "САР$З ЭНИЕТ" для выхода из паузы, и Вы сразу переходите ко второму 
тайму. Если же такое переключение было произведено во втором тайме, то игра 
заканчивается. Таким образом, Вы можете обеспечить себе беспроигрышный вариант игры 
на любых уровнях. Однако настоящим бойцам этот "жучок" не потребуется. 


УПРАВЛЕНИЕ ФУТБОЛИСТАМИ: 

Управление каждым игроком является двухступенчатым. Во время ведения мяча Вы 
управляете футболистом как обычно, но нажав "ЕВЕ", Вы автоматически переходите к 
выбору направления удара и траектории полета мяча. Удар наносится после того, как Вы 
отпустите клавишу "НАЕ". Сила удара зависит от продолжительности нажатия на клавишу 
"НАЕ". 

УДАР НИЗОМ: 
Положение джойстика вперед по ходу футболиста, затем нажать и отпустить "ЕВЕ". 


УДАР ВЕРХОМ: 

Положение джойстика вперед по ходу футболиста, затем “НВАЕ", не отпуская “АВЕ” 
перевод джойстика в противоположное положение и только после этого Вы отпускаете 
"НАЕ". 

ПАС ПЯТКОЙ: 
Положение джойстика вперед по ходу футболиста, затем "НВЕ", не отпуская "ЕНАЕ" 


перевод джойстика в противоположное положение, затем вновь вперед по ходу и только 
после этого отпустить "НАЕ". 

При установке в опции "КСК ГИАВЕСТЮМ5" раздела "ОРТЮМ$" цифры "5" Вы добавите 
к прямым ударам диагональные передачи. 

Научившись виртуозно управлять своими футболистами, Вы начнете получать 
истинное удовольствие от этой игры. Занять первое место в чемпионате и выиграть Кубок 
Лиги, при условии, что компьютер играет в полную силу (10 уровень), будет очень трудно. 
Этого смогут добиться лишь те, кто играет в красивый комбинационный футбол и обладает 
качествами настоящего бойца. Удачи! 


СДЕЛАЙТЕ САМИ 


ВЕОСК ВУЗТЕН 


Вниманию читателей, любящих осваивать свой компьютер в практической работе по 
набору и отладке игровых программ, сегодня мы предлагаем программу английского 
программиста Адама Булла "ВЕОСК ВИУЗТЕВ". Программа нами переведена на русский язык 
и оттестирована. 

Игра представляет собой одну из версий распространенных в свое время игр типа 
"ПМЕ ВОМВ"”. Ваше игровое поле состоит из прямоугольных блоков и некоторых 
специальных полей (премиальные поля выглядят как флажки, а незадействованные бомбы 
изображаются черепом со скрещенными костями). 

Время от времени одна из бомб включается и начинает мигать. Ваша задача 
поставить своего сапера на это поле до того, как истечет время горения запала. 

Сапер перемещается с помощью курсорных клавиш. Блок, по которому он прошел 
один раз исчезает. Второй раз наступить на эту же клетку смертельно опасно. Не менее 
опасно наступить на заминированную незадействованной бомбой клетку. 

По мере того как все меньше и меньше блоков будет оставаться на экране, Вам все 
труднее будет подобраться к очередной бомбе. Здесь вам на помощь может прийти одна 
дополнительная возможность. С помощью клавиш "1" и "2" Вы можете сдвинуть влево или 
вправо ряд блоков, в котором находится Ваш герой. 

Начиная со 2-го уровня в игре начнут попадаться ряды цветных блоков, которые не 
сдвигаются, да и количество бомб на каждом уровне будет все больше и больше. 

Еще одна полезная возможность связана с циклической организацией игрового поля. 
Покинув экран вправо, Ваш герой появится слева, покинув экран сверху, он появится снизу 
и, соответственно, наоборот. 

Теперь несколько слов о русификации. Она подробно описана нами в прошлом 
выпуске 7Х-РЕВЮ при разборе программы “АРЕИСАМ ЗЕЕОЗ$". Здесь следует применить ту 
же самую технику. Более того, в наших последующих работах мы всегда будем ссылаться на 
нее, как на стандартную. Это позволит Вам не тратить время на русификацию и всегда 
использовать одни и тот же программный блок. 

А теперь, когда есть определенность с вопросом русификации, можно переходить 
непосредственно к тексту программы "ВОСК ВУЗТЕВ". Буквы с "А" по "Р" в кавычках в 
строках 60, 110, 160, 200, 1010, 1040, 4030, 4040, 4530, 6055 - это символы УбС@-графики. 

Основные переменные, использованные в программе, имеют следующее назначение: 


Н - лучший результат. 

5$С = -текущий счет игры. 

[В - текущий уровень. 

[$ - строковая переменная, в которой хранится количество оставшихся попыток. 


А,В —-текущие координаты сапера. 

АА,ВВ - последние координаты сапера 

Е1,Е2 - координаты премиального флага. 
В1,В2 - координаты активизированной бомбы. 


М$ - массив, в котором хранится конфигурация игрового поля. 
[510] - количество бомб на каждом уровне. 

Т - время, оставшееся до взрыва бомбы. 

О - номер ряда для неперемещаемых блоков. 

Х$ - переменная, используемая в функции 1МКЕУ$ ит. п. 


Х, \, 2 - переменные общего назначения. 


СЧЕТ : 271 МЯКС . 1441 2% УРОВЕНЬ 1 


| 


1 60 ТО 10 

2 СТЕАВ 64599: НАМООМТ7Е 0$В 15619: НЕМ : ГОАО “спг” С00Е 64600 

3 60 508 8: 60 $08 5000: 60 ТО 0 

5 КАМООМТУЕ Ц$В 15619: НЕМ : ЕВАЗЕ “ВУЗТЕН”" 

6 НАМООМТУЕ 0$В 15619: НЕМ : ЗАУЕ "ВУЗТЕВ” ЕТМЕ 2 

7 ЭТОР 

8 РОКЕ 23606, 88: РОКЕ 23607, 251: ВЕТУВМ: ВЕМ ВЦ$ 

9 РОКЕ 23606,0: РОКЕ 23607,60 : ВЕТОВМ : ВЕМ ЁАТ 

10 (ЕТ НТ = 0: 60 518 8 

20 РАРЕН 7: ВОВОЕН 7: ТМК 0: ВВТСНТ 0: (15$ : РВАТМТ АТ 11,0; “НАЖМИТЕ КЛАВИШУ <Т>, ЕСЛИ НУЖНА 
НСТРУКЦИЯ" 

30 ТЕ ТМКЕУ$<>"" ТНЕМ 60 ТО 30 

40 ТЕ Т№МКЕУ$=”" ТНЕМ 60 ТО 40 

50 ТЕ Т№КЕУ$="1” ОВ ТМКЕУ$=”Т" ТНЕМ 60 50В 6000 


60 ВАМООМТУЕ : ЕЕТ $С=0: ЕТ 1=1: ЕЕТ Е$="РРР" 

70 ТЕТ А=19: ЕЕТ В=15: ЕЕТ АА=А: ЕЕТ ВВ=В 

80 ТЕТ 0=-1+(ТМТ (А№»10)*2+2 АМО [>2): 60 $08 4000 

90 (ЕТ Е1=У: ЕЕТ Е2=7: ЕЕТ Т=-1: ЕТ В0=1: ТЕТ В1=Т: ЕЕТ В2=Т 


100 ВЕМ *МАТМ САМ 


$(=$0+[*15: 


170 ТЕ В0>1*3+3. Т 
180 РВТМТ АТ 0,5; 
190 ТЕ Т>0 ТНЕМ 1 


200 ТЕТ У=М(ВО): 


540 ТЕ Х$<>"1" АМ 
600 ТЕ Х$="2”" ТНЕ 
610 РОН Х=0 ТО 1: 
620 ТЕ А=ЕЛ ТН 


Е * 


110 РВТМТ АТ Е1,Р2; ТМК 6; “ОЕ”; АТ Р1+1, Е2; "ЕС"; АТ А, В; ТМК 7; "ЁМ"; АТ А+Т, В; "№0" 

120 ТЕ АА<>А ОН ВВ<>В ТНЕМ ТЕТ $6=$С+2: РАТМТ АТ АА, ВВ; ” “;АТ АА+1, ВВ; ” “: ТЕТ М$(АА, ВВ ТО 
ВВ+1)="” "“: [ЕТ М$(АА+1, ВВ ТО ВВ+1)=” “: ТЕ М$(А,В)=" ” АМО (Р1<>А ОН Е2<>В) ТНЕМ 60 
ТО 1000 

130 ТЕТ АА=А: ЕЕТ ВВ=В 


140 ТЕ А=Е1 АЮО В=Р2 ТНЕМ ВЕЕР .02,20: ВЕЕР .02,25: ВЕЕР .02,30: 60 508 4500: 1ЕТ Е1 = \: 


ГЕТ Р2=7: ЁЕТ $6=$0+20 
150 ТЕ А=ВЛ АМВ В=В2 ТНЕМ 1ЕТ В0=В0+1: ВЕЕР .03,30: ВЕЕР .03,25: ВЕЕР .03,20: 1ЕТ 
ГЕТ Т=-1: ЕТ В1=Т: 1ЕТ В2=Т 

160 ТЕ М$(А, В)=”Н” ОВ Т=0 ТНЕМ 60 ТО 1000 


НЕМ 60 ТО 300 
ТМК 7; $С 
ЕТ Т=Т-1: РВТ 


В1+ (ТМТСТ/2)=Т/2),В2;Т: 


ГЕТ 2=ТМТ (АМ 


В2=7: ТЕТ М$(\У, 2 ТО 7+1) 


г ЕТ 
0 А<1)-(20 А 


В Х$<>"2" ОН 
60 ТО 700 
ГЕТ М$(А+Х)= 

ВЕТ Р2=Е2-2 


630 ТЕ А=ВЛ ТНЕ 


ГЕТ В2=В2-2 


640 60 ТО 800 
700 РОВ Х=0 ТО 
710 ТЕ А=ЕЛ ТН 


в 


: ЕТ М$(А+Х)= 


ТЕТ Е2=Р2+2 


720 ТЕ А=Вл ТН 


ГЕТ В2=В2+2 


0 


Т АГ 81, В2; ЕЕАЗН 1; ТМК 6; РАРЕВ 2; "**";АТ В1+1,В2; "жж"; АТ 
ВЕЕР .01,Т+10: 60 ТО 500 

О +15) *2+1: ТЕ М$(\,7)="Н” ТНЕМ ТЕТ Т=50-1*4: ВЕТ В1=У: ВЕТ 

="МА”: ТЕТ М$(+1,7 ТО 7+1)="ВС" 

НЕМ 60 ТО 540 


О Х$="6")-(2 АМО Х$="7"): ВЕТ В=8+(2 АМО Х$="8")-(2 АМО Х$="5”) 


О А> 19): ГЕТ В=В+(30 АМО В<1)-(30 АМО В>29) 


0=А ТНЕМ РОВ Х=1 ТО 15: МЕХТ Х: 60 ТО 100 


$(А+Х, 3 ТО )+М$(А+Х): МЕХТ Х 


М$(А+Х, 29 ТО )+М$(А+Х): МЕХТ Х 


800 РОН Х=0 ТО 1: РВТМТ АТ А+Х, 1; М$(А+Х): МЕХТ Х 
810 ГЕТ Е2=Е2+(30 АЮО Р2=-1)-(30 АМО Е2=31) 
820 ГЕТ В2=В2+(30 АЮО В2=-1)-(30 АМ В2=31) 


900 60 ТО 100 
1000 НЕМ * [05Е 
1010 РОВ Х=7 ТО 


А 
0 


Р -.2: РА 


ТМТ АГА, В; ТАК Х; "ЁМ"; АТ А+1, В; "№0": МЕХТ Х 


лаяпмларьььь 
ооооояаяхала м 
«Шов фм -ь 

ооо оооо 


6010 


6020 


6030 


РОН Х=50 ТО 10 5ТЕР -1: ВЕЕР .01,Х: ВЕЕР .01,Х+3: МЕХТ Х 


ТЕ М$(А, В)="” ” ТНЕМ 60 ТО 1040 


СЕТ 1Е$=[.$(2 ТО): ТЕ 1$="” ТНЕМ РАТ 
ТЕ М$(А,В)="Н” ОВ М$(А, В)=” " ТНЕМ 60 


ТЕ Т=О ТНЕМ ЕГЕТ В0=В0+1: ЕЕТ Т=-1: 


60 ЗВ 4060: @0 ТО 170 

ВЕМ * САМЕ О\ЕН * 

РАТМТ АТ 9,0: РАРЕВ 1: ЕЕАЗН 1:" 
<<<<<<<< ИГРА ОКОНЧЕНА >>>>>>>> 


<<< <<< ЕЩЕ РАЗ (\/М) 2 25>52>>>" 


Г 


АТ ое: 39762000 


ЗИВ 4500: ЕЕТ А=\: 1ЕТ В=7: ЕЕТ АА=А: ЕТ ВВ=В: 


ЕТ В1=Т: ЕТ В2=Т 


ТЕ $С>НТ ТНЕМ ГЕТ НТ=$С: @0 $508 4070 
РОН Х=1ТО 50: ВЕЕР .004, Х 
ТЕ Т№КЕ\У$="у” ОН ТМКЕУ$=”У” ТНЕМ 60 ТО 60 
ТЕ Т№МКЕ\У$="п” ОВ ТМКЕУ$=”"М” ТНЕМ $ТОР 
ЕХТ Х: 60 ТО 2030 
ВЕМ * МЕХТ ГЕ\ЕЕ * 
ГЕТ =[+(1<9): ТЕТ Х$="СУПЕР ПРИЗ! =-= СУПЕР ПРИЗ! =-= " 
РОВ Х=1 ТО 50: РАТМТ АТ 21,0; ТМК 6; ЕЕАЗН 1;Х$: ВЕЕР .01,Х: ЕЕТ Х$=Х$(2 ТО )+Х$ 


Х$( ТО 32): МЕХТХ 
$0+55*[: 60 ТО 70 
ЕМ * 5ЕТ УР ЗСВЕЕМ * 


ЕТ Х$= 
ЕТ 5С= 


В 
Р 
ОТМ М$(20,30): ОТМ М(1=3+3) 
Е 


“ВСВСВСВСВСВСВСВСВСВСВСвСвсвсвС” 


ГЕТ М(Х)=\У: МЕХТ Х 


УРОВЕНЬ" 
ВЕМ * ВАМООМ РОЗТТТОМ * 
ГЕТ У=ТМТ (В№»10)»2+1 
ЕТ 7=ТМТ (В№0*15)*2+1 


ЕТОНМ 
ЕМ * 0.0.0. ОБАТА * 


Е ЕНЕ ТТ 


АРЕВ 0: ТМК 5: ВОВОЕВ 0: ВВТЕНТ 1: 


1$ 


ОВ Х=1 ТО 20 $ТЕР 2: 1ЕТ М$(Х) = ии ЕТ М$(Х+1)= 


МЕХТ 


РОН Х=1 ТО [*3+3: 60 $508 4500: ТЕТ МФ (У, _ ТО 7+1) = "НТ": ЕЕТ М$(У+1,1 ТО 2+1) = 


РОВ Х=1 ТО 20: РВАТМТ АТ Х, 1; ТМК 5-(2 АМО (Х=0 ОВ Х=0+1));М$(Х): МЕХТ Х 
РАТМТ АТ 0,0; ВАТСНТ 0; ТМК 7; “СЧЕТ:” 


:5С; ТАВ 10; "МАКС. “;НТ;ТАВ 20; 1$; ТАВ 24; 


Е М$(\,2)="Н” ОВ \У=19 АМО 7=15 ТНЕМ 60 ТО 4510 


ОКЕ 23675,88: РОКЕ 23676, 255: РОН Х=0 ТО 127: ВЕАБ У: РОКЕ Ц$Н “А”+Х,\: МЕХТ Х: НЕТОВМ 


ОАТА 248, 244, 242, 242, 242, 242, 242, 242,255, 255,255, 255, 64, 32 


ОАТА З1, 0, 242, 242, 242, 242, 10,6, 254,0,0,0, 15, 63, 127, 127, 127 


ОАТА 127, 60, 60, 24, 248, 216, 216, 216, 216, 127, 112, 64,0,0,0,0,0 
ОАТА 216, 248, 24, 24, 24, 24, 24,0, 96,231, 
ОАТА 12, 206, 254, 248, 56, 56, 248, 240, 30, 15,28, 60, 247, 227, 96,0 
ОАТА 240, 224, 112, 120, 222, 142, 12,0,7,7, 63, 15, 31, 61, 57, 63, 192 
БАТА 192, 248, 224, 240, 120, 56, 248, 123, 92, 79, 39, 12, 88, 112,0 

ОАТА 188, 116, 228, 200, 96, 52, 28,0, 60, 255, 90, 126, 165, 24, 36, 66 


1.5. -:.РАТМТ“” 
ВЕОСК ВИЗТЕВ”" “ 


9) 


ИСПОЛЬЗУЙТЕ КУРСОРНЫЕ КЛАВИШИ 

ДЛЯ ПЕРЕМЕЩЕНИЯ — ““САПЕРА”" 
ЭКРАНУ. ПРИ ПЕРЕХОДЕ ЧЕРЕЗ КРАЙ 
ЭКРАНА, ОН ПОЯВИТСЯ С ДРУГОЙ 
СТОРОНЫ. ” 
РАТМТ " 
ВЫ ДОЛЖНЫ УСПЕВАТЬ ОБЕЗВРЕЖИ- 
ВАТЬ БОМБУ, ДО ТОГО, КАК ОНА 
ВЗОРВЕТСЯ. НО ЭТО МОЖНО СДЕЛАТЬ 


по 


ТОЛЬКО КОГДА ОНА АКТИВИЗИРУЕТСЯ. " 


РНТМТ " 

ВЫ НЕ МОЖЕТЕ ИДТИ ПО ПУСТЫМ 
ПОЛЯМ И НАСТУПАТЬ НА НЕАКТИВИЗИ- 
РОВАННЫЕ БОМБЫ. ” 

РНТМТ " 

ГОРИЗОНТАЛЬНЫЙ РЯД БЛОКОВ МО- 

ЖНО СДВИГАТЬ ВЛЕВО ИЛИ ВПРАВО 


255, 63,57, 57, 63, 30 


КЛАВИШАМИ <1> ИЛИ <2>. ЭТО ПОМО- 
ЖЕТ ВАМ ПОДОЙТИ К БОМБЕ И Т.Д.” 
6040 РАТМТ ” 
ЕСЛИ ВЫ БЕРЕТЕ ФЛАГ, ТО ВАМ 
ВЫДАЕТСЯ ПРЕМИЯ. ^ 


6050 @0 ЗВ 9: РАТМТ ''': 60 $08 8 
6055 РАТМТ 
@^ ‚: БЕЗОПАСНЫЙ БЛОК”” "ВС"'” "БЕ : ФЛАГ"” “Еб”'`"НТ : НЕАКТИВИЗИРОВАННАЯ 
БОМБА” '"УК"'’ "ЁЕМ : ВАШ САПЕР"° “№” ''`"УДАЧИ ВАМ...”'''”’ "НАЖМИТЕ ЛЮБУЮ КЛАВИШУ” 
6060 ТЕ ТМКЕ\$="" ТНЕМ 60 ТО 6060 
6070 ВЕТИАМ 
|_| : БЕЗОПАСНЫЙ БЛОК 
ж : флаг 
р: : НЕЯКТИВИЗИРОВЯННЯЯ БОМБЯ 
& : ВАШ СЯПЕР 


эдячи вам... 


НАЖМИТЕ ЛЮБУЮ КЛЯАВИШУ 


Набирая программу, можете периодически пользоваться ВУМ 5 для сохранения на 
ленте того, что уже набрано. 

После автостарта программы со строки 2, происходит загрузка символьного набора 
спг" СОБЕ, далее происходит формирование символов УОС-графики при помощи 
подпрограммы 5000. После этого выполняется переход на начало программы. После 
остановки во время отладки, программу можно опять запускать командой НИМ. 

В строке 20 следует запрос на вывод инструкции. Если есть подтверждение для этого 
- нажата клавиша "" - то происходит вывод инструкции при помощи подпрограммы 6000. 

В строках 60-90 происходит задание исходных параметров игры. При помощи 
подпрограммы со строки 4000 выполняется прорисовка основного игрового поля. Задание 
случайных позиций для расстановки "мин" при этом происходит в строках с 4500. 

Со строки 100 начинаются действия, связанные непосредственно с игрой. В строке 
120 проверяется одно из условий, при которых происходит потеря "жизни". Это попадание 
"сапера" на пустое поле. Если оно выполняется, то программа переходит на строку 1000 для 
выполнения действий, связанных с этим. 

Другое условие потери жизни - это попадание "сапера" на поле, где установлена 
неактивизированная мина. Оно проверяется в строке 160. 

Строка 170 выполняет проверку того, все ли мины обезврежены. Если да, то 
программа переводит на строку 3000 - это переход на следующий уровень. 

Опрос клавишей управления происходит начиная со строки 500. Здесь выполняется 
рассчет новых координат "сапера", если нажата одна из курсорных клавишей. Если же 
нажата клавиша "1" или "2", то выполняются действия по сдвиганию горизонтального ряда 
блоков влево или вправо. При нажатии клавиши "1" это выполняется в строках с 610, а при 
нажатии "2" - в строках с 700. 

В подпрограмме потери жизни со строки 1000 происходит уменьшение на 1 
количества оставшихся жизней. Если их больше не осталось, что проверяется в строке 1030, 
то происходит переход на подпрограмму "конец игры", которая находится в строках с 2000. 
здесь вам будет предложено сыграть еще раз. Если да, то игра повторится сначала (при 
этом сохранится максимальный счет, набранный в предыдущей игре), если нет - то 
остановка и выход в Бейсик. 


Компьютерная новелла 


Матвеев Ю. А. 


ПОСЛЕДНЯЯ СХВАТКА 
(по игре Колина Свинбурна "Джо Блэйд-3") 


Здание военно-промышленной компании было оцеплено. Десятки полицейских 
автомашин наглухо перекрывали все подъезды к небоскребу. На дальних подступах ожидали 
своего часа бронетранспортеры и танки, готовые по первому приказу выступить на штурм 
главной резиденции Кракса Бладфингера. 

Мощные прожекторы, оперативно установленные на соседних домах, освещали 
осажденный небоскреб с первого по последний этаж. У главного входа в здание, перед 
запертыми изнутри бронированными дверями, стояло несколько человек в штатском. Они 
что-то оживленно обсуждали. Чуть в стороне от них плотный человек небольшого роста с 
мегафоном на плече отдавал какие-то распоряжения полицейским. 

На противоположном конце площади, прилегавшей к небоскребу, в окружении 
автоматчиков, стоял лимузин мэра города. За темными стеклами автомобиля шли трудные 
переговоры по радиотелефону с самим Краксом. Мэр сидел на переднем сидении. Во 
влажных руках он держал телефонную трубку и молчал. Говорил, в основном, Кракс. Он 
держался настолько уверенно, что главе города казалось бесполезным перебивать его. 

- ... Ваши идеи не стоят и ломаного гроша, - назидательно гремел в трубку 
Бладфингер. Подумайте лучше о том, что будет, когда за Вас возьмутся разъяренные 
мамаши этих детей. Материнский инстинкт посильнее любой бомбы. - Кракс на секунду 
затих, как бы предлагая собеседнику оценить всю силу приведенных аргументов. Затем он 
продолжил: - Всем будет лучше, если мои условия будут выполнены. Раскинь мозгами и ты 
поймешь, что я предлагай оптимальный вариант: мне нужен всего лишь самолет. Зато какое 
я оставляю наследство - целый небоскреб, набитый техникой... 

-...И толпами головорезов, - с иронией в голосе добавил мэр. 

- Ну, это уже ваши проблемы, - ухмыльнулся Кракс. - Только дайте мне уйти без шума. 
Буду весьма благодарен, если вы пришлете на крышу вертолет, который доставит меня до 
аэропорта, а уж там Ваш самолет долго не задержится. Главное, чтобы хватило горючего 
для перелета через океан. Даю слово, что больше ничего у вас не попрошу и мы 
распрощаемся. О’кей? И давайте без самодеятельности. Только при этих условиях 
счастливые мамаши увидят своих ненаглядных чад. В противном случае, сам знаешь, 
здание заминировано и будет уничтожено вместе с заложниками. Держу пари, моя техника 
не подведет. Вы согласны? 

Мэр представил язвительную улыбку на лице Бладфингера и брезгливо поморщился: 

- Нет, Кракс, я все равно найду способ выкурить тебя из твоей крепости. Советую 
сдаться, так ты, по крайней мере, сохранишь себе жизнь. 

- Неужели? - захохотал Кракс. - Ая не думал, что вы настолько кровожадны, чтобы 
смотреть на жареное человеческое мясо. 


- Подонок, - прошептал мэр и выключил связь. 

В воздухе пахло грозой. Ситуация осложнилась еще утром, когда мэр приказал 
арестовать Кракса Бладфингера. но тот что-то пронюхал и успел захватить шестерых детей 
в качестве заложников. Они были похищены прямо из школы, когда там только закончились 
занятия. Операция оказалась на грани краха. Вечером того же дня Кракс с доброй сотней 
своих головорезов, забаррикадировался в здании военно-промышленной компании и 
теперь диктовал свои условия. Мэр всячески пытался оттянуть время, чтобы просчитать все 
возможные варианты. Военные, как всегда, предлагали штурм и обещали за десять минут 
захватить здание, но это было чревато человеческими жертвами. В такой ситуации можно 
было не сомневаться, что Кракс выполнит свои угрозы. К тому же мэр еще не вполне 
доверял военным, полагая, что в их рядах наверняка остались верные Краксу люди, 
несмотря на проведенную в последнее время чистку. 

Президент военно-промышленной компании Кракс Бладфингер стал терять вес в 
обществе сразу после того, как вскрылись факты о применении им гипнотизаторов для 
давления на членов городского магистрата. С большим трудом, на свой страх и риск, мэр 
собрал вокруг себя людей, готовых опрокинуть трон, на котором восседал Кракс. Однако, в 
последний момент Бладфингер перехитрил всех. Но мэр знал, что безвыходных положений 
не бывает. Принимать условия Кракса он и не думал. Просто предстояло найти путь, 
ведущий к победе при новых правилах игры. Его мысли крутились вокруг одной и той же 
идеи, воплотить в жизнь которую мог только один человек. Его звали Джо Блэйд. 

Мэр вызвал по рации командира группы охраны: 

- Вы знаете Джо Блэйда? 

- Да, сэр, - ответил офицер. 

- Он, скорее всего, сейчас дома. Езжайте туда, объясните ему ситуацию и доставьте 
его ко мне. 

- Есть! - ответил охранник, и мэр выключил радию. 

Не прошло и получаса, как дверь бронированного лимузина распахнулась и на заднее 
сидение бесшумно приземлился Джо. Он оставался верен своему стилю: военные 
камуфляжные штаны, майка-безрукавка и излюбленная кепка. Если бы не личное 
знакомство, мэр принял бы его за головореза из банды Кракса. 

- Здравствуй, - мэр развернулся лицом к Джо и протянул через сиденье руку. 

- Здравствуйте, - вяло поздоровался Блэйд. 

Заметив недовольство собеседника, мэр сразу поинтересовался в чем дело. 

- Ваша охрана забрала у меня распылитель, - ответил Джо, поглядывая в окошко 
автомобиля на офицера охраны, завладевшего его оружием. 

- Это меры предосторожности, - сказал мэр, - но все поправимо. Секунду... - он 
распахнул дверь, вышел из машины и что-то сказал охраннику. Тот передал ружье Блейда 
мэру и куда-то удалился. Мэр вернулся в машину, но оружие сразу не отдал, а положил его 
на свободное сиденье водителя. 

- Потерпи немного, - сказал он. 

Джо кивнул и полез в карман брюк за сигаретами. 

- Я надеюсь, что ты уже в курсе, - начал мэр. 

- Ещебы, - кивнул Джо, затягиваясь сигаретой. - Весь город стоит на ушах. 

- План такой. По моим данным, в этот небоскреб, - мэр ткнул пальцем в лобовое 
стекло, - ведет подземный ход из вентиляционной шахты, расположенной под зданием 
городского магистрата. Об этом подземном ходе знаю только я, несколько доверенных мне 
лиц и Кракс. Так как небоскреб полностью блокирован. Уйти оттуда можно лишь через 
подземный ход. Судя по всему, Кракс это и собирается сделать в случае невыполнения его 
условий. В то время, когда из-под обломков будут вытаскивать трупы, Кракс уже успеет 
пересечь границу. 

- А почему бы ему не сделать это сейчас? - резонно заметил Джо. 

- Понимаешь, - мэр наклонился ближе, - Он рискует и попытается ухватиться за все 
возможные варианты. Он, наверняка, подозревает, что я знаю об этом подземном ходе, хотя 
строился он еще в начале века и был строго засекречен от посторонних. Я сам наткнулся на 


него случайно, когда прорабатывал варианты захвата Кракса. Мы тогда планировали взять 
его в здании магистрата и осматривали подвалы. Я думаю, что Кракс использует этот 
вариант только в самом крайнем случае, когда отступать будет некуда. Он же не может дать 
полной гарантии, что в конце хода его не поджидают мои люди. 

- Логично, - Джо покосился на запищавший радиотелефон. Мэр снял трубку: 

- Ну, что Вы решили? - ледяным голосом спросил Кракс. 

- Ответ будет через час, - сухо сказал мэр. - Мне нужно время, чтобы отвести людей и 
технику и обсудить кое-какие детали, связанные с вертолетом. 

- А самолет уже готов? - деланно удивился Кракс. 

- Все будет, как только очистим площадь, - отрубил мэр. 

- Хорошо, я жду еще час, - и Кракс отключился. 

- Нас перебили... Ну так вот, - мэр города посмотрел на Джо Блэйда, сохранявшего 
железное спокойствие, - Я, как всегда, надеюсь только на тебя. Людей с твоим уровнем 
подготовки нет даже среди моей охраны и лучше тебя это никто не сделает. - Мэр 
улыбнулся. - В общем, я решил так: ты через подземный ход проникаешь в резиденцию 
Кракса и освобождаешь детей. Кстати, их как и тогда, шесть человек. Объясни им, что они 
могут смело прыгать из окон вниз. Мы натянем брезентовое пожарное полотнище. Опытные 
люди будут ловить их. 

Джо Блэйд прикинул высоту небоскреба: 

- Аесли они все на двадцатых этажах? Не высоковато ли прыгать? 

- Жить захочешь - прыгнешь, - ответил мэр. - Если будет возможность, пусть 
спустятся на лифте пониже. Одним словом, смотри по обстановке. Мы с тобой можем 
рассчитывать только на внезапность. А потом меня интересует Кракс. Я, конечно, не 
настаиваю, но если будет возможность схватить его, не упусти свой шанс. Я даю тебе право 
действовать от моего имени, а если удастся уничтожить здание компании, то буду очень 
признателен. Мне не хотелось бы чтобы от Кракса оставалось какое-либо наследство. 

В стекло боковой двери автомобиля постучал офицер охраны. Мэр приоткрыл дверцу 
и тот протянул ему какой-то предмет в брезентовом чехле. Захлопнув дверь, глава города 
повернулся к Джо и передал сверток ему. Джо сдернул чехол. Он держал в руках новенький 
блестящий автомат пульсирующего действия с полным магазином. Он удивленно поднял 
глаза. 

- Получше твоего ружья, - сказал мэр, довольный произведенным впечатлением. - 
Действует как распылитель, да к тому же не оставляет вредных продуктов распыления. 
Отменная вещь! 

- Откуда это? 

- Мы тоже кое-что умеем, - и мэр, включив рацию, стал отдавать распоряжения. 


* * * 


Спустя полчаса Джо Блэйд, вооруженный автоматом, выслушав последние 
наставления мэра, нырнул в люк подземного хода. Путь к небоскребу оказался недлинным. 
Джо освещал себе дорогу карманным фонариком. Он шел по тесному и сырому кирпичному 
коридору лишь с одной мыслью: поскорее добраться до цели. Повернув за угол, неожиданно 
для себя он увидел выход. 

Джо Блэйд осторожно толкнул широкую дверь и та, со скрипом, подалась. 
Проскользнув в щель, он осмотрелся. Подвал небоскреба показался огромным. Высокие 
кирпичные стены и бесконечный коридор. Впереди на бетонном полу аршинными буквами 
было написано: "НЕ ЗАГРОМОЖДАЙТЕ ПРОХОД". Внезапно он услышал чьи-то шаги и 
увидел двоих. Впереди шел охранник в военной форме с автоматом наперевес, а чуть сзади 
кто-то в штатском. Блэйд только успел разглядеть его бандитскую физиономию, как палец 
непроизвольно нажал на курок. Распылитель сработал безотказно. В воздухе повисли два 
белых облачка. Джо надавил плечом на дверь, через которую только что вошел. Она была 
заперта с той стороны. И этого следовало ожидать: путь к отступлению был уже 
предусмотрительно закрыт людьми мэра. 

Джо прошел коридор, нашел какую-то невзрачную дверь и снова наткнулся на охрану. 


Бой был короткий. Расчистив себе путь, он быстро осмотрел подсобное помещение. В 
одной из комнат он нашел ключ. Нигде не задерживаясь, Джо обошел весь подвал, но кроме 
кем-то подложенной мины и ручной гранаты больше ничего не обнаружил. Через мину Джо 
благополучно перепрыгнул, а вот гранату оставил себе. Потом в конце длинного коридора 
он увидел лифт. Джо Блэйд вошел в кабину и сердце его слегка екнуло: этот лифт мог 
подняться только до третьего этажа. (Названия этажей приводятся по правилам, принятым в 
английском языке. - прим. автора) Для того, чтобы попасть выше, требовался специальный 
пропуск. Но где его искать? Джо поднялся этажом выше. Людей здесь оказалось гораздо 
меньше, чем он ожидал. Праздно шатающиеся охранники встретились ему пару раз, когда 
он осматривал комнаты в поисках заложников. Джо предпочитал беречь патроны: если по 
коридору кто-то шел, он на время прятался за дверью. 

Обойдя весь этаж, Джо пополнил карманы ключами. В одной из комнат он нашел 
взрывное устройство. Вероятно, Кракс приготовил его для уничтожения здания. 
Внимательно осмотрев устройство, Джо понял, что до полной комплектации не хватает 
магнитного детонатора, приводящего эту штуковину в действие. "Потом разберемся", - 
подумал Джо и на всякий случай запомнил расположение комнаты на этаже. 

На выходе он столкнулся с каким-то бандитом, который заглянул в дверь. Джо 
отскочил в сторону и выстрелил. Проход освободился. 

По пути к лифту Джо Блэйд снял со стены еще один ключ. Он понимал, что чем больше 
найдет ключей, тем больше сможет открыть дверей в этих лабиринтах. У лифта Джо 
отправил на небеса еще одного охранника и вошел в кабину. Здесь некоторое время можно 
было отдохнуть и обдумать дальнейшие действия. 

Естественно, Кракс развел заложников по разным этажам и, чтобы добраться до них, 
было необходимо обзавестись пропусками на все этажи. Джо уже представил себе, сколько 
он потратит времени и сил, прежде чем сможет беспрепятственно перемещаться по 
небоскребу. 

Наземный этаж Джо осмотрел быстро, благо здесь охраны было немного. Лишь один 
раз он на долю секунды замешкался, проходя через дверь из одного коридора в другой и за 
это поплатился: рябой мордоворот, вышедший навстречу, нанес чувствительный удар всем 
корпусом, да такой, что у Джо Блэйда поплыли круги перед глазами. Потеряв ориентацию, 
Джо успел пару раз нажать на курок, но промахнулся. Охранник опять двинулся на него. Не 
успев прийти в себя, Джо посмотрел вперед по коридору и увидел, как к нему движутся еще 
четыре охранника, двое из которых были вооружены. "Граната!" - мелькнуло у Джо, и он, 
подпрыгнув, метнул в толпу легкую ручную гранату, которую нашел в подвале. Когда 
рассеялся дым, он не увидел окровавленных и изуродованных тел - граната Кракса имела 
свойства распылителя. Охранники бесследно исчезли. Джо как вихрь промчался по 
коридору, поочередно заглядывая во все двери. В одной из комнат он заметил заложника. 

Ребенок сидел на полу, связанный по рукам и ногам, с кляпом во рту. Глаза, полные 
слез, испуганно смотрели на Джо Блэйда. 

- Свои, - тихо сказал Джо Блэйд и принялся освобождать ребенка от веревок. 

Они обменялись несколькими фразами. Оказалось, что в рядах охраны царит паника и 
многие уже думают о побеге. Краем уха мальчишка слышал, что у большинства охранников 
автоматы не заряжены и носят они их только для показухи. Военная машина Бладфингера 
где-то дала сбой и ему, видимо, не удалось вооружить всех своих людей. Самые верные 
Краксу охранники находятся на верхних этажах, а внизу всю основную работу делают 
патрульные роботы. 

Джо изложил вкратце план побега и мальчишка утвердительно кивнул. 

- Будь осторожен. Это наземный этаж - высота небольшая. Так что не бойся прыгать в 
окно. Я тебя прикрою. - Хлопнув парня по плечу, Джо вышел в коридор. Здесь никого не 
было. Быстро проскочив несколько комнат, он заглянул в приоткрытую дверь в самом конце 
коридора. На полу у дальней стены лежал какой-то предмет. "Детонатор." - подумал Джо 
сразу, как только взял вещицу в руки. Теперь он мог зарядить одно взрывное устройство, 
найденное на нижнем наземном этаже. Однако он понимал, что таких взрывных устройств 
гораздо больше и для полного уничтожения здания необходимо было зарядить их все. 


Следовательно, нужно постараться найти как можно больше детонаторов. С этой мыслью 
Джо Блэйд вышел из комнаты. Хлопнула дверь, и из соседней комнаты появился охранник. 
Увидев Джо Блэйда, охранник собирался что-то спросить, но тот без промедления нажал на 
курок. Облако еще не растворилось в воздухе, а Джо уже был во второй половине этажа. 
Здесь он собрал какие то компьютерные дискеты и на всякий случай прихватил их с собой. 

Возвращаясь к лифту Джо заглянул в последнюю комнату, оставшуюся 
неосмотренной на этом этаже. Он чуть было не споткнулся о мину, которая лежала прямо у 
входа, ибо в этот момент его внимание привлекла табличка с надписью "БЕЗОПАСНОСТЬ" 
над дверью в соседнее помещение. Джо осторожно толкнул дверь, но вдруг погас свет, 
раздался какой-то звук и перед глазами засветился шифрозамок с восьмью цифрами. 
Отступать было некуда. Сейчас здесь будет вся охрана, и тогда ему - конец. Секретный 
замок отводил ровно одну минуту на подбор кода. Счетчик лихо стал отстукивать секунды. 
Джо в панике беспорядочно нажимал кнопки на панели замка, надеясь на случайное 
совпадение цифр. С такой системой кода он встретился впервые. Нужной комбинации не 
получалось. Когда до срабатывания сигнализации оставалось около двадцати секунд, Джо 
понял систему работы кода. Взяв себя в руки, он начал методично подбирать нижний ряд 
цифр. В течение следующих десяти секунд ему удалось выставить правильный шифр. 
Раздался булькающий звук, включился свет и дверь распахнулась. Комната была пустынна. 
На письменном столе у окна стояла бутылка молока, а на тарелке лежал гамбургер. Видно, 
хозяин кабинета собирался перекусить, но был срочно куда-то вызван. Джо не упустил 
возможности подкрепиться. Усталость как рукой сняло. Вероятно, продукты содержали 
специальные вещества, влияющие на жизнедеятельность человеческого организма и 
восстанавливали силы в кратчайшие сроки. Кракс заботился о своем персонале. 

Не прошло и десяти минут, а Джо уже заканчивал осмотр первого этажа. Здесь он 
отыскал еще два взрывных устройства, несколько ключей и магнитный детонатор. Зная, что 
с детонатором нельзя приближаться к динамиту ближе, чем на один метр, он перепрыгнул 
через взрывное устройство и направился к лифту. 

Он расстрелял охранника, поджидавшего кабину и только сейчас заметил, что запас 
патронов на исходе. Сумеет ли он найти их для своего автомата в логове Кракса? 

На втором этаже Джо долго не задержался. В одной из многочисленных комнат он 
нашел еще одного связанного заложника и, переговорив с ним, заставил его быстро 
покинуть здание через окно. В соседних комнатах Джо нашел взрывные устройства. 
Запомнив расположение комнат, Джо Блэйд перешел во вторую половину этажа. Несколько 
ключей и граната были весьма кстати, поскольку патронов для своего автомата он пока так и 
не нашел. 

Нажимая в лифте кнопку с цифрой "три", Джо с горечью думал о пропуске на 
следующие этажи, которого у него не было. Когда двери лифта распахнулись, в глаза ударил 
яркий голубой неоновый свет. Джо Блэйд оказался в другом мире. После полумрака 
подвальных помещений обстановка казалась ему почти домашней. 

Не успел Джо выйти из лифта, как к нему бросился охранник, требуя предъявить 
какие-то документы. Блэйд не стал вступать в спор, да и патронов оставалось совсем 
немного. Он рванулся в противоположную от охранника сторону и, пробежав несколько 
метров, толкнул первую попавшуюся дверь. И только тут Джо Блэйд заметил прикрепленные 
к стенам видеокамеры, которые следили за каждым его шагом. Похоже, его засекли. Только 
бы успеть зарядить автомат. Он выбежал в коридор. 

Отперев ключом застекленную дверь, Джо оказался в небольшом кабинете. Патронов 
здесь не было, однако какая-то коробка, с нарисованной на ней театральной маской, сразу 
привлекла его внимание. Джо обнаружил в коробке полный комплект обмундирования для 
службы охраны. За несколько секунд Джо Блэйд преобразился до неузнаваемости и стал как 
две капли воды похож на человека из охраны Бладфингера. Единственное, о чем жалел Джо, 
так это о недолговечности этой формы, ибо в ткань материи были вшиты волокна 
микродатчиков, которые были способны улавливать опознавательные сигналы от 
передающих устройств, вживленных в мочку уха каждого сотрудника компании. Джо не знал 
всех тонкостей работы этой системы, однако понимал, что чужака, одевшего форму, легко 


запеленговать. Поэтому носить униформу более двух-трех минут было опасно. Неспеша 
Джо Блэйд вышел в коридор и осмотрелся. Мимо прошли четыре сотрудника безопасности, 
не обратив на него никакого внимания. 

За то время, пока Джо чувствовал себя достаточно спокойно в форме охранника, ему 
удалось тщательно осмотреть весь этаж. Уже не веря в удачу, он обнаружил ящик с 
патронами нужной системы. Затем, где-то в глубине длинного кабинета, нашелся и пропуск 
на верхние этажи, а чуть позже, осматривая компьютерный зал, Джо решил 
поэкспериментировать с дискетами. 

Включив компьютер, он быстро отыскал нужный пароль и, войдя в меню, запросил 
машину об этажах, на которых находятся заложники. "б этаж", - выдал компьютер и 
отключился. Блэйд понял, что по одной информационной дискете он может получить только 
один ответ, однако в его запасе было несколько дискет, поэтому уходить он не торопился. 
Компьютер выдавал информацию по любому вопросу. Джо удалось узнать все, что ему было 
нужно. Записав ответы компьютера, он вернулся к лифту. Мимо, тяжело дыша, пробежал 
здоровенный охранник. Джо Блэйд на всякий случай отвернулся лицом к лифту. Вероятно, 
охрана уже заподозрила что-то неладное, хотя он старался не оставлять свидетелей. 

На четвертом этаже Джо пришлось столкнуться сразу с двумя патрульными роботами. 
Спасительная форма осталась в лифте: Джо не мог более рисковать. Роботы чем-то 
походили на пылесосы - невысокая пластиковая платформа на небольших гусеницах 
венчалась продолговатой металлической шеей с телекамерой, заменявшей голову. 
Несмотря на свою неуклюжесть, роботы передвигались довольно быстро и Блэйду 
пришлось разложить их на атомы, как только те стремительно покатились на него. 
"Интересно, - подумал Джо. - как там сейчас мэр? Удалось ли ему оттянуть время?" 


- Я уничтожу всех, - кричала трубка голосом Кракса. - Предупреждаю: еще полчаса - и 
вы будете жалеть, что не выполнили мои требования. 

Мэр посмотрел на часы: Джо Блэйд должен успеть. Двух заложников уже передали 
заплаканным матерям, но еще четыре семьи ждали своей очереди. 

- Я отдал приказ об отводе техники, - сурово произнес мэр. - Вертолет готовится к 
вылету, так что вы можете успокоиться. 

Кракс ничего не ответил и отключился. 

Площадь перед зданием военно-промышленной компании заметно опустела. Под 
стенами небоскреба с туго натянутыми полотнищами стояли в напряженной ожидании 
пожарные и несколько полицейских. Жителей прилегающих домов спешно эвакуировали. 
Вокруг осажденного здания образовали километровую запретную зону. Танки и 
бронетранспортеры отодвинулись вглубь города. 

Мэр, не покидая своего лимузина, наблюдал за этой картиной. "Только бы Джо успел 
найти всех заложников," - думал он. Подземный ход надежно перекрыт. О Блэйде он тоже 
позаботился: вертолет, который якобы предназначался для Кракса, на самом деле до 
последнего будет ожидать Джо на крыше небоскреба. Пилот уже получил необходимые 
инструкции. Что еще? 

Мэр уже в который раз просчитывал возможные варианты. Запищал радиотелефон: 

- Слушаю. 

- Еще в одном танке обнаружена бомба, - хрипло отозвался голос на другом конце. 

- Жертв нет? - нахмурился мэр. 

- Нет. 

- Номер танка? 

- Ноль восемь. 

- Держите в курсе, - отрезал глава города и положил трубку. 

Сохранять конспирацию было необходимо, поскольку Кракс мог прослушивать любые 
каналы связи. После этого короткого разговора у мэра полегчало на душе - Джо освободил 
третьего заложника, который находился на восьмом этаже. "Молодец парень" - мэр 


откинулся на спинку сидения и облегченно вздохнул. 


* * * 


Его загнали в угол. Сразу три охранника приближались к нему. "Будь проклят этот 
этаж!", - подумал Джо, доставая из кармана гранату. Патроны закончились еще на выходе из 
лифта, когда пришлось распылить почти целый взвод охраны и пару свирепых роботов. 

Вспышка на время ослепила, но медлить было нельзя. Джо бросился по коридору 
обратно к лифту, спустился двумя этажами ниже за патронами, которые он оставил про 
запас. Однако спокойствия не прибавилось, ибо боеприпасов хватило лишь на половину 
магазина. 

Чувствуя легкую слабость в ногах, Джо поднялся на одиннадцатый этаж. Здесь, по 
сообщению компьютера, можно было найти патроны и легко перекусить. 

Помещения службы безопасности Джо мог осматривать уже без лишней нервотрепки, 
связанной с подборкой кода. Ему помогали специальные пластиковые пропуска с 
магнитным покрытием, которые он нашел, осматривая какие-то служебные помещения. 
Места заточения оставшихся троих детей Джо уже знал. Ближайший заложник находился на 
пятнадцатом этаже. Пропуск у Блэйда был до девятнадцатого. Полностью вооружившись и 
приведя себя в порядок, Джо Блэйд вошел в лифт и решительно нажал кнопку пятнадцатого 
этажа. 

Через несколько секунд кабина лифта остановилась и распахнулись автоматические 
двери. В холле Джо осмотрелся. Вдоль стен стояли кожаные диваны и кресла, полы 
покрывали мягкие ковровые дорожки, а на стенах висели дорогие картины. Посмотрев 
налево, он увидел человека в военной форме, который быстро шел к нему. Джо развернулся 
и побежал в противоположную сторону. 

- Стой! Стрелять буду! - крикнул охранник, вскидывая автомат. 

Джо Блэйд видел впереди себя спасительную дверь. Оставалось сделать несколько 
шагов, но вслед прогремели выстрелы. Правое плечо обожгло, кровь тонкой струйкой 
побежала по руке. Джо выстрелил в ответ и не промахнулся, но вслед за охранником, жужжа 
гусеницами, двигался патрульный робот. Блэйд нырнул в кабинет и, придерживая ногой 
дверь, отдышался. 

- Черт возьми, здесь ребята стрелять умеют, - процедил он, зажав рукой рану. 

Вдруг в углу комнаты кто-то всхлипнул. Джо обернулся и увидел ребенка, сидевшего 
на полу за креслом. 

"Ну, что ж, - успокаивал себя Джо, развязывая веревки, - это хорошая компенсация за 
царапину от пули". 

Парень оказался на редкость смышленым и Джо Блэйду не пришлось долго 
объяснять, что к чему. Прикрывая мальчишку, он проводил его до лифта и объяснил, где 
лучше выпрыгнуть из окна. Сам же пересек коридор и открыл массивную дверь, ведущую в 
просторный кабинет. Здесь под кадкой с фикусом лежал брошенный кем-то бронежилет. 
"Во-время," - подумал Джо, застегивая замки пластиковой защиты. Чувствуя себя намного 
спокойнее, он прошел коридор до лифта и поднялся на девятнадцатый этаж. Тут он должен 
был найти пропуск на верхние этажи небоскреба и заложника. Компьютер не обманул. Пять 
минут понадобилось на то, чтобы отыскать в одной из комнат плачущего ребенка, а по пути 
прихватить с собой сразу два пропуска на лифт. Но Джо Блэйду пришлось расстаться с 
бронежилетом, который долго носить было так же опасно, как и форму. 

Спустившись на шесть этажей ниже, Джо основательно подкрепился 
предусмотрительно оставленным здесь гамбургером и зарядил магазин распылителя. 
Машинально проверив карманы, он еще раз убедился в сохранности шести детонаторов, 
которые он собрал. С их помощью Джо собирался уничтожить здание. Замысел был прост. 
Оставалось только найти последнего ребенка. 

И туг его словно ударило током: а Кракс? Взорвать здание и до конца своих дней 
думать, что этот паук погиб вместе со всеми? А если он успеет уйти? Ну уж нет! 

Он решительно направился к лифту и спустился на третий этаж. В компьютерном зале 
никого не было. У Джо оставалась последняя неиспользованная дискета. Блэйд включил 


компьютер. Короткий сигнал. Минута на подбор кода. По запросу о местонахождении 
Кракса компьютер выдал: двадцать пятый этаж. 

- Что ж, увидимся! - вслух сказал Джо и направился к выходу. 

Но сначала Джо Блэйд поднялся на двадцать первый этаж за заложником. Все 
прошло, как по маслу. Ему повезло - ребенок сидел в коридоре недалеко от лифта. 
Освобождая его от веревок, Джо думал о Краксе... 

х х х 

- Я не буду ждать ни минуты, - Кракс нервно теребил пуговицу на манжете пиджака. 

- Вертолет уже подают на крышу, - тихо урчала трубка голосом мэра. 

- В таком случае я могу идти туда? 

- Пожалуй... 

- Яне верю Вам! - сорвался в крик Кракс. - Вы лжете! 

Но он уже кричал в пустоту. Мэр выключил связь. Кракс Бладфингер швырнул трубку 
Радиотелефона на пол, поднялся с кресла и, быстро накинув плащ, распахнул дверь в 
коридор. Неожиданно тишину офиса нарушил треск автоматных очередей и грохот 
взорвавшейся гранаты. На секунду все стихло. Кракс в панике отшатнулся к стене, когда 
увидел широкоплечего мускулистого человека в прокопченной майке и камуфляжных 
штанах, который появился из облака дыма. 

- Поговорим, - спросил Джо Блэйд, приближаясь. Дуло распылителя смотрело прямо 
в лицо Краксу. 

Бладфингер рванул по коридору. Надо заметить, что бегал он неплохо, несмотря на 
свой возраст. Джо бросился за ним. 

Кракс знал все входы и выходы и прекрасно ориентировался в своих апартаментах. 
Джо еле успевал за ним. В одном из коридоров пришлось воспользоваться гранатой, чтобы 
убрать людей Кракса. "Уйдет, гад," - думал Джо Блэйд", глядя на то, как Бладфингер 
распахивает очередную дверь. И тут сдали нервы. Джо нажал на курок. Но что это? Фигура 
Кракса, чуть задержавшись, исчезла за дверью. "Промахнулся?" - с удивлением подумал 
Джо, врываясь следом. 

Это была ловушка. Кракс прятался за спинами сразу трех вооруженных охранников. 
Джо метнул гранату, но его успели задеть. Скрипя зубами от боли, он надвигался на Кракса, 
который, как ни странно, был цел и невредим. Отступать Бладфингеру было некуда. 
Прижавшись спиной к стене, с мертвенно бледным лицом, он с ужасом смотрел на 
супермена. 

- Знаем мы твои штучки, - тяжело дыша сказал Джо, хватая за грудки президента 
компании. Кракс не сопротивлялся. Вдруг что-то хрустнуло под железными пальцами 
Блэйда и тихо запищал миниатюрный приборчик, спрятанный во внутреннем кармане 
Бладфингера. Рванув плащ на груди Кракса, Джо вытащил на свет маленькую черную 
коробочку с цифровым индикатором. Ох уж этот любитель головоломок! Блэйду некогда 
было рассуждать о том, что произойдет, если он не успеет подобрать код. Посеревший 
Кракс медленно сполз по стенке, когда Джо удалось выставить нужную комбинацию цифр. 
Защитное поле вокруг Бладфингера было разрушено. 

- Ну, воти все, - выдохнул Джо. Взвалив Кракса на спину, он донес его до ближайшего 
окна. - Высоковато будет. Но тебя внизу примут в лучшем виде. 

Джо Блэйд распахнул окно. Внизу на площади по-прежнему стояли люди с натянутым 
брезентом, который большим серым квадратом выделялся на фоне темного асфальта. 

- Принимайте! - выкрикнул в ночь Джо и спихнул испуганного Кракса с подоконника. 
Несколько секунд тишины. Обмякшее тело потерявшего сознание Бладфингера удачно 
приземлилось по центру полотнища и, пару раз спружинив, осталось лежать без движения. 

Расстреляв в коридоре охрану захваченного президента, Джо Блэйд пошел к лифту. 

Зарядить взрывные устройства на нижних этажах было делом техники. Охрана почти 
не сопротивлялась. Самые умные наверняка уже сдались в руки правосудия и в здании 
остались лишь фанатики. Зарядив последнее шестое взрывное устройство, Джо вошел в 
кабину лифта и нажал кнопку двадцать восьмого этажа. "Мэр что-то говорил о вертолете, - 
думал Джо, - если, конечно, меня дождутся". Ему необходимо было отыскать путь на крышу 


небоскреба. Время поджимало. Пришлось пробежать по коридору, не обращая внимания на 
крики людей Кракса и автоматные выстрелы. Он открывал двери одну за другой. Где же 
лестница на крышу? Вскоре, в кабинете службы безопасности он увидел то, что искал. Через 
несколько секунд Джо уже был на крыше. Какие-то отчаянные автоматчики встретились у 
него на пути, но на этот раз он не пожалел патронов. На другом конце крыши его ожидал 
вертолет. Спотыкаясь и еле передвигая ноги, Джо Блэйд приближался к цели. Вслед 
трещали автоматы последних фанатиков, а впереди он видел блестящий бронированный 
борт вертолета, отражавший тусклый свет неполной луны. Еще один шаги он спасен. 

Джо пришел в себя, когда упал в мягкое кресло рядом с пилотом, и вертолет, резко 
поднявшись вверх, стал удаляться от небоскреба. Площадь внизу была пустынна. Джо 
посмотрел на пилота. Тот хитро подмигнул и подтолкнул плечом уставшего супермена. 
Блэйд вяло улыбнулся. Пилот включил рацию: 

- Все по плану, - доложил он. - Иду на базу. 

Джо посмотрел на часы: час ночи. Ему сильно хотелось спать. 

- Как же тебе удалось? - спросил пилот и посмотрел на Блэйда. 

- Сам не знаю, - вздохнул Джо и закрыл глаза. 

Вертолет шел на посадку. 


ГОСУДАРСТВЕННЫЙ ПОЛИТЕХНИЧЕСКИЙ МУЗЕЙ 
И ФИРМА "ИНФОРКОМ" 
учреждают 
АССОЦИАЦИЮ ПОЛЬЗОВАТЕЛЕЙ ДОМАШНИХ КОМПЬЮТЕРОВ 
а также 
"ФОНД ЛИТЕРАТУРЫ, ОПИСАНИЙ И ПРОГРАММ" ("ФЛОП") 


Задачи АССОЦИАЦИИ |Оказание содействия в приобретении компьютеров, 
и ФОНДА: периферии, программ и литературы всем желающим. 


ОСНОВНЫЕ НАПРАВЛЕНИЯ ДЕЯТЕЛЬНОСТИ: 


1. Открыта ВЫСТАВКА - КОНСУЛЬТАЦИЯ - ПРОДАЖА учебно-игровых домашних 
компьютеров. Выставка работает ежедневно, кроме понедельника с 11 до 17 часов. 

Адрес: Москва, Новая площадь, д. 3/4, подъезд 1, Государственный Политехнический 
музей. Проезд до станции метро "Лубянка", "Китай-город". 


Приглашаем всех производителей домашних 
компьютеров и периферии к участию в 
ВЫСТАВКЕ - ПРОДАЖЕ 


2. Авторам программ открывается возможность для реализации собственных 
разработок. 

В качестве первого шага создается система защиты авторских прав. Авторы, 
желающие заявить о своих правах должны выслать два описания программы (краткое для 
публикации и подробное для архива) со своими данными в адрес "ИНФОРКОМа". 

Описания программ, заслуживающих внимание будут опубликованы в "7Х-РЕВЮ", для 
чего открывается новый раздел "АВТОРСКАЯ ПРОГРАММА". Если в течение трех месяцев со 
дня публикации краткого описания в АССОЦИАЦИЮ не поступят претензии на авторское 
право со стороны иных лиц, авторство подтверждается сертификатом и АССОЦИАЦИЯ 
предложит автору заключить договор на реализацию его программы. 


АССОЦИАЦИЯ также планирует выдавать заказа на разработку обучающих программ. 


Кроме авторов программ приглашаются к работе авторы технических разработок, 
доработок, усовершенствований ит.п. 


3. АССОЦИАЦИЯ берет на себя функции по тестированию технических разработок в 
области компьютеров и других устройств, развивающих интеллект. 


4. АССОЦИАЦИЯ приглашает к сотрудничеству всех заинтересованных и 
инициативных лиц, способных заняться организацией региональных представительств 
АССОЦИАЦИИ и заняться коммерческой деятельностью по распространению компьютеров, 
периферии, литературы. 


5. Продажа литературы и подписка на “7Х-РЕВЮ" производится на корпункте 
"ИНФОРКОМа" по адресу: Москва, "Новый Арбат", д.2, 19-е отделение связи (1-ый этаж 
операционного зала). Ежедневно, кроме воскресенья с 10 до 17 часов, перерыв с 14 по 15 
часов. 

Для переписки с АССОЦИАЦИЕЙ просим пока временно использовать адрес 
"ИНФОРКОМа". 

121019, Москва, а/я 16. На конверте делать пометку "ФЛОП". Эти письма будут 
переданы в АССОЦИАЦИЮ. 


ИНФОРКОМ СООБЩАЕТ 


1. Подготовлен к печати 2-ой том четырехтомника по графике компьютера “7Х- 
брегит". Книга называется “Прикладная графика". Рассмотрена графика растровая, 
векторная и блочная. Показаны приемы организации трехмерной графики в растровом и 
векторном исполнении, особо рассмотрены актуальные вопросы борьбы с “клэшингом 
цветовых атрибутов" и работа с нестандартными шрифтами размером менее, чем 8*8 и 
более, чем 8*8. Книга является логическим продолжением тома 1 "Элементарная графика", 
но может быть использована и самостоятельно. Ее основные положения и выводы войдут в 
т. 3 "Динамическая графика" в качестве исходных. 


2. Начата продажа лицензии на издание "Прикладной графики" в регионах. Книга 
поставляется на дискете 1,2 Мб (формат М$ 005$). Принимаются заявки. Продолжается 
продажа лицензий на т. 1 "Элементарная графика" и на учебник по программированию в 
машинных кодах (бывший трехтомник, расширенный и дополненный). Напишите нам или 
дайте телеграмму. Мы сообщим контактный телефон для переговоров. 


3. Выход книги из типографии для розничной продажи ожидается в октябре 1993 г. 


4. С 1-го сентября 1993 г. начинается прием подписки на "7Х-РЕВЮ-94" и на 
четырехтомник “Графики СПЕКТРУМА“”. Желающие получить бланк-заказ подписных 
изданий могут прислать заполненный конверт с наклеенными почтовыми марками на сумму 
6 руб. для России (30 руб. для стран СНГ) по нашему адресу: 121019, Москва, а/я 16 


бсап, ОСН & зре!спеск Бу МИК, Кт, 155ие #19: Сопе М/аг 
Василий Кормилицын, Кепао Апоц $ 


РЕВЮ 
СХ - злая 


"ИНФОРКОМ" 121019, Москва, Г-19, а/я 16 


Вниманию читателей! 
Мы продолжаем публиковать адреса пунктов, в которых можно приобрести наши 
материалы. 


г. МОСКВА, ул. Новый Арбат, д.2. 19-е отделение связи, 1-ый этаж операционного зала. 

г. МОСКВА, радиорынок в Митино, проезд до ст. метро Тушинская или поездом до пл. Трикотажная 
(Рижское направл.). Суббота, воскр, 9 - 14. 

г. МОСКВА, радиорынок в Царицыно, проезд до ст. метро Царицыно. Суббота, воскр, 9 - 14. 

. БЕЛГОРОД, магазин "РАДИОТОВАРЫ", ул. Ленина, 32. 

. ВОРОНЕЖ, Студия компьютерных игр ЗАМ-ЗАМ. Магазин-салон "ЭЛЕКТРОНИКА", тел. 14-00-73. 
. ДНЕПРОПЕТРОВСК, ул. Шевченко, 34. Фирма "ЭКОС". 

. ЕКАТЕРИНБУРГ, магазин “СПЕКТРУМ", Главный проспект, 99. 

. КЕМЕРОВО, магазин "ТЕХНИЧЕСКАЯ КНИГА", ул. Весенняя, 24. 

. КЕМЕРОВО, магазин "ОРБИТА", пр. Ленина, 133. 

. КИРОВ, "Дом науки и техн.", Магазин-салон "МАРС", ул. Производственная, д. 27. 

. КРАСНОЯРСК, радиорынок, проезд до ост. "Затон", субб., вскр. 

. НИЖ. НОВГОРОД, ИМА "Фф-ПЛЮС", магазин "ФОТОЛЮБИТЕЛЬ", ул. Горького, 146. 

. ОРЕНБУРГ, магазин "ВОЕННАЯ КНИГА", ул. Советская. 

. РЫБИНСК, ул. Гоголя, 1. ТТЦ "ГНОМ". 

. ЧЕБОКСАРЫ, маг. "ЭКСПРЕСС", НПК Фирма "НОВА", ул. Привокзальная, д.6. 


О ООС О ООО ООО ООО ГОО ОО ГО ООО ПО 


Вниманию дистрибуторов! Адреса наших оптовых покупателей публикуются 
бесплатно. 


СПЕКТРУМ В ШКОЛЕ 


Дорогие друзья! 

В прошлом месяце мы “играючи” научились отыскивать решение сложных 
алгебраических уравнений численным методом простой итерации. 

Это, как Вы понимаете, не единственный возможный численный метод и сегодня мы 
попробуем с Вами сыграть в другую компьютерную игру, которая тоже позволяет находить 
корни алгебраических уравнений. Назовем эту игру "Вилка". Имеется в виду 
"артиллерийская вилка", хотя можно было бы назвать игру и "Перелет - Недолет". 

Если Вы не знаете, что такое артиллерийская вилка, то лучше бы Вам этого и не знать, 
потому что ситуация, когда Вы в нее попадаете, очень неприятна. Представьте себе теплое 
летнее утро в полевом блиндаже. Хорошо позавтракав, противник начинает лениво высевать 
дневную норму снарядов и мин по вашим позициям. Бах!!! Снаряд разорвался где-то далеко 
впереди. "Недолет", - ухмыляетесь Вы и продолжаете спокойно уплетать консервы. Бах!!! 
Одинокий снаряд разрывается где-то в сотне метров сзади. "Так, теперь перелет". 

Вот теперь Вы должны понимать, что попали в "вилку" и, если у противника есть хоть 
какие-то мозги в голове, то следующим выстрелом он накроет Ваш блиндаж, будьте 
покойны. Двумя выстрелами он "пристрелял" орудие и теперь у него есть математические 
таблицы, прицельные приспособления и большой опыт, чтобы в третий раз не промахнуться. 
Более того, пристреляв одно орудие и использовав эти данные и для других орудий, он 
может ударить теперь и всей батареей. Бросайте свою тушенку и двигайте в окоп, - хорошо, 


если Вы не пожалели сил и заранее откопали запасную линию, где и отсидитесь во время 
артналета. 


Вот так же можно попасть "выстрелом" и в корень алгебраического уравнения, если 
предварительно сделать несколько "выстрелов". 

Причем Вам совершенно все равно, если первые "выстрелы" будут очень неточными. 
Единственное, что должно быть сделано - в одном выстреле должен быть "перелет", а в 
другом "недолет", иначе "вилка" не получится 

Рассмотрим простое уравнение: 

3х^2 +5х-22=0 

Сделаем первый выстрел - пусть х=0. Подставим х в уравнение, оно естественно не 
сойдется и возникнет "невязка" 4 = -22. 

Раз невязка имеет знак "минус", будем считать, что это "недолет". 

Сделаем второй выстрел х=5. Теперь 4=78 - это большой перелет. То, что мы хотели, 
произошло. Образовалась артиллерийская вилка: 

х=0 - мало 

х=5 - много. 

Если бы она не образовалась, нам пришлось бы еще "пострелять". А теперь все 
просто - ударим посередине х=2.5. Подсчитаем невязку 4 = 9.25 - это опять перелет, но уже 
ближе к цели, мы получили новую вилку 

х=0 - мало 

х=2.5 - много. 

Вновь ударим посредине х=1.25. Невязка 4 равна примерно -12 -это недолет. 

х=1.25 - мало 

Х=2.5 - много. 

Следующий удар нанесем по пункту 1.875. И так далее. Точное решение х=2 и с 
каждым "выстрелом" мы все ближе к нему подбираемся. 

Вы, конечно поняли, что на каждом шаге мы берем "недолет" и "перелет" и стреляем 
посередине, потом опеределяем, что это было - "недолет" или "перелет" и от предыдущего 
шага берем противоположное значение, чтобы всегда оставалась "вилка". 

Теперь нам осталось только поручить все эти дела компьютеру. 


1 ВЕМ здесь Вы введете свое уравнение. 

10: ПЕЕЗЕМ- АС) сгодеььяаания 

20 [ЕТ 6=.01 : НЕМ допустимое значение “невязки” 

29 ВЕМ теперь вводим пару значений х так, чтобы получить “вилку” 

30 ТМРИТ “Хт1п?":х0 

40 ТМРУТ “Хтах?”; х1 

49 НЕМ рассчитаем невязку 

50 ТЕТ 90 = РМ А(хО) 

60 1ЕТ 91 = РМ А(Х1) 

70 ТЕТ рг1п{ = 500 80 @0 $18 реп 

90 ТЕ 5Т@М (90) = Тем (91) ТНЕМ 60 ТО 30: ВЕМ “вилка” не получилась" 

100 ТЕТ х= (х0 + х1)/2: ВЕМ “вилка получилась” 

110 ТЕТ а = Р\ А(х 

120 ТЕ АВЗ(а)<6 ТНЕМ @0 ТО 200 
5ам (а) = 5@м (90) ТНЕМ @0 ТО 170 

140 ТЕТ х1 = х: (ЕТ 91 = 94 


170 ЕЕТ х0 = х: (ЕТ 90 = 9 


500 РНТМТ "х0= ";х0, "90= "; 90 
510 РНТМТ "х1= ";х1, "91= "; 91 


Этот метод определения корней в сложных алгебраических уравнениях тоже известен 


не одну сотню лет и называется методом Ньютона. Нам с Вами просто очень повезло, что ко 
времени появления первых ЭВМ уже были известны десятки и сотни подобных численных 
методов, легко адаптируемых для компьютеров. Впрочем, может быть ЭВМ именно потому и 
появились, что потребовалось упростить работу сотен расчетчиков, сидевших месяцами с 
арифмометром над баллистическими таблицами для расчета траекторий полета первых 
ракет. 


УМСЁЕАВ ГОСО 


(Продолжение) Начало см. на с. 69-74, 90-96. 
ГЛАВА 5 ПОВТОРЯЮЩИЕСЯ ОПЕРАЦИИ 


Условия. 

Под "условием" в ЛОГО понимается операция, которая дает в результате логическое 
значение ТВУЕ ("истина") или РАЁЗЕ ("ложь"), в ответ на вопрос типа: "Это число равно 
другому?" 

В ЛОГИКЕ, а также в языках программирования, имеющих дело с обработкой списков 
(ЛИСП, ПРОЛОГ, ЛОГО), такие операции называют ПРЕДИКАТами. Может быть поэтому в 
ЛОГО все примитивы, относящиеся к этой категории, оканчиваются на "-Р" 

Попробуйте набрать: 

РВТМТ ЕСУАЕР 5 5 

- получите в результате: 

ТВОЕ 

Здесь условие ЕОЧАЁР проверяет, равны ли два параметра. Если да, то выдается 
результат ТВИЕ, иначе выдается результат РАЕЗЕ. Например: 


РВТМТ ЕЧУАЕР 5 7 
ЕАГОЕ 


Математические условия. 

Как и в других математических операциях здесь используют символы, которые 
размещают между двумя аргументами (так называемая индексная форма записи). Это 
следующие символы: 

> - больше 

< - меньше 

= - равно. 

Примеры: 

РАТМТ 1 > 2 
РАГСЕ 


РНТМТ 5 < 8 
ТВОЕ 


МАКЕ “РАСТ 5-5 
РАТМТ РАСТ 
ТВОЕ 


Знак используется для сравнения двух объектов любого типа. Это могут быть 
числа, слова, списки. Эта операция дает значение ТВУЕ тогда и только тогда, когда оба 
объекта одинаковы. Эта операция тождественна операции ЕОЧАЁР, которую мы 
рассмотрели ранее. Разница, как видите, только в форме записи, поскольку ЕОЧАЁЕР 
записывается не "между", а "перед" двумя параметрами (префиксная форма записи). 

МАКЕ “ЗНОРРТМС[ВНЕАВ ВУТТЕН МТЕК 5ТАМР$] 
РАТМТ :5НОРРТМ@ =[ВАЕАВ ВИТТЕВ МТЁЕК $ТАМР$] 
ТВОЕ 


АКЕ “СТВЕ “МАВУ 
РАТМТ :СТАЕ=МАНУ 
ТВОЕ 


МАКЕ “МАМЕ “МАВУ 
РАТМТ ‘СТАЕ = :МАМЕ 
ТВОЕ 


РВТМТ (7-5)-2 ТВУЕ 
РВТМТ ЕДУАЕР( 7-5) 2 
ТВОЕ 


Условия очень часто используют совместно с оператором ПЕ. 1Е после себя требует 
два, а иногда и три операнда. Первый - это условие, а второй - список инструкций, который 
должен быть выполнен, если условие справедливо. Например: 


МАКЕ “ТОБАУ “ЕВТБАУ 
ТЕ :ТОБАУ = "ЕАТБАУ [РАТМТ “ТОТЕ] 
ТСТЕ 


Если оператор |Е имеет три операнда, то в третьем операнде записывается список 
инструкций, которые должны выполняться, если условие "ложно". 


МАКЕ “ТОБАУ “МОМОАУ 

ТЕ :ТОБАУ= “ЕВТОАУ [РВТМТ “ТОТЕ] 
[РАТМТ [МОТ РАТОАУ УЕТ]] 
МОТ ЕВТРАУ УЕТ 


Как и конструкции ВЕРЕАТ, команда 1Е может иметь достаточно длинную запись и ее 
приходится переносить со строки на строку. 

А теперь мы рассмотрим некоторые примитивы, являющиеся условиями, и обсудим, в 
каких случаях они могут применяться. 


МЕМВЕЯР 
Проверяет, является ли первый операнд (а он может быть числом, словом или 
списком) частью второго (который должен быть списком). 


ТО СНЕСКЗНОР: ЭТОЕЕ 
МАКЕ “ЗНОРРТМС[ВВЕАВ ВОТТЕВ МТЕК ЭТАМР$ ] 
ТЕ МЕМВЕВР: 5ТАРЕ: ЗНОРРТМЕ 
[РАТМТ [60Т ТТ]] [РАТМТ [ОН ОЕАВ РОАСОТТЕМ ТТ] 


СНЕСКЗНОР “МТЕК 
СОТ ТТ 
СНЕСКЗНОР “ВАСОМ 
ОН РЕАВ РОВБСОТТЕМ ТТ 


МОИМВЕАР 

Эта программа выдает значение ТВУЕ, если ее аргумент является числом. В 
противном случае выдается РАЁЗЕ. 

Вам нередко приходится проверять, является ли то, что ввел пользователь, числом, 
прежде, чем приступить к обработке этого ввода. Согласитесь, нелепо задать вопрос о том, 
сколько Вам лет ("Но\м/ о! аге уоцу?") и пытаться как-то обсчитывать полученный результат, 
если в ответе было: 

МОТ \ЕВУ МОСН ("не очень много") 


ТО СНЕСКМИМ 
МАКЕ “АМЗМЕН ЕТВЗТ ВЕАБЕТЗТ 
ТМ МОМВЕНР: АМЗМЕВ 
[РАТМТ [[ТНАМК У\091] 
[РАТМТ [[Т МАМТЕБ А ММВЕН]] 
ЕМО 


> 


Обратите внимание на то, что мы используем НАЗТ НРЕАОНМ$ЗТ. Если бы мы 
использовали только ВЕАВИЗТ, то результат был бы списком. Даже если в нем было бы 


всего одно число, например 5, он все равно распознавался бы только как список, а не как 
число. 

И/ОЛРОР 

Эта операция дает в результате ТВУЕ, если ее операндом является слово. Вспомните, 
что числа тоже являются словами, поэтому они тоже дают в результате ТВУИЕ. 


РНТМТ МОНОР 3 
ТВОЕ 


РАТМТ МОНОР “МТЗЕ 
ТВОЕ 


РАТМТ МОНОР [МЕМ] 
ЕАГОЕ 


В последнем случае операнд является списком, в который входит только одно слово, 
но все же это список, а не слово и потому в результате выдано РАЁЗЕ. 


($ТР 
Дает в результате ТВУЕ, если операнд является списком. 


РАТМТ ЕТЗТР:ЗНОРРТМ@ 
ТВОЕ 


В практической работе Вам придется много раз писать процедуры для обработки 
списков. Очень хорошей практикой будет устраивать в начале каждой процедуры проверку: 
"А является ли входной параметр списком?" 


ЕМРТУР 

Проверяет, не пустой ли операнд. Ищет пустое слово " или пустой список [] и если то, 
либо другое найдено, выдает ТВОЕ. Этот оператор имеет очень широкое применение. 
Длинные списки анализируются путем разбиения их на элементы и последовательной 
обработки элементов одного за другим, пока список не станет пустым. Точно также слова 
анализируют, разбивая их на символы. Мы в дальнейшем будем очень часто использовать 


выражение вида: 
ТЕ ЕМРТУР : АЕТЗТ[$ТОР] 


для того, чтобы останавливать процесс. 


МАМЕР 
Дает в результате ТВИЕ, если операндом является имя чего-либо, т.е. этому имени 


соответствует некоторое содержание. 
МАКЕ “МОМТН “АРВТЕ 
РНТМТ МАМЕР “МОМТН 

ТВОЕ 

РНТМТ МАМЕР “РВЕБ 

ЕАГОЕ 


Рекурсия. 
Мы уже рассматривали такие процедуры, как 


ТО ТАТ 
РОНМАВО 50 
АТСНТ 120 
ТВТ 

ЕМО 


Запустите эту процедуру. Сама она не остановится. Придется для этого использовать 


ВВЕАК (САРЗ ЗНЕТ + ЗРАСЕ). Самое важное в этой процедуре - это то, что она входит в 
бесконечный цикл повторов без использования повтора ВЕРЕАТ, а вызовом самой себя ТН|. 
Итак, ТН! исполняет первых две инструкции - ГОР\МААО 50 и НСНТ 120, после чего снова 
вызывается ТН!, которая исполняет первые две инструкции ит.д. ит.п. 

Рекуррентные процедуры могут иметь входные параметры, как и любые другие 
процедуры. В простейшем виде эти входные параметры всегда одни и те же при каждом 
вызове процедуры. Мы можем легко изменить процедуру ТН! и задать любой многоугольник. 


ТО РОЁУ :5ТОЕ :АМ@ЕЕ 
РОВМАКО :$ТОЕ 
АТСНТ :АМСГЕ 
РОЕУ :ЗТОЕ :АМСЕЕ 

ЕМО 


Эта процедура отличается от той, которую мы рассматривали в главе 2 (с инструкцией 
ВЕРЕАТ). Она может изображать некоторые такие вещи, которые той не под силу. 
Попробуйте: 


РОЕУ 50 144 


Когда процедура вызывает саму себя, это называется рекурсией. В ЛОГО это 
основной способ организации повторяющихся процессов. 

В процедурах ТН и РОЁУ мы использовали очень простой вид рекурсии, когда 
процедура не знает, где же следует остановиться. 

Рекурсия используется не только для того, чтобы организовать повторяющиеся 
действия. Здесь могут быть достигнуты и некоторые дополнительные цели. 

Предположим, что Вы покупаете тюбик зубной пасты и, вскрыв его, находите внутри 
ваучер, дающий право на снижение цены на 20 центов при покупке очередного тюбика, по 
сравнению с этим. Спрашивается: "Когда Вам надо идти за следующим тюбиком?" Ответ: 
"Немедленно". Ведь и в нем будет такой же ваучер ит.д. и скоро Вы завалите квартиру почти 
бесплатной зубной пастой. 

Аналогичный прием может быть использован и в ЛОГО: 


ТО АББОМ :МОМВЕ 
РАТМТ :МОМВЕ 
АОВОМ :МОМВЕН+1 

ЕМО 


АОБОМ 1 
1 
2 
3 


ит. д. 

При первом вызове АОООМ печатается 1 и во второй вызов передается параметр 2 и 
ТЯ 

Рассмотрим еще один пример. Предположим, что нам надо найти сумму чисел от 1 до 
М, где число М начинается с единицы и непрерывно возрастает. Может быть, мы примем 
решение, что процесс надо остановить, когда сумма превысит одну тысячу. И тогда мы 
вводим команду ЭТОР, служащую для того, чтобы останавливать текущую процедуру. В 
принципе, ЭТОР действует так же, как и ЕМО, но может размещаться в любом месте 
процедуры. 

Обратите внимание на то, что ЗТОР останавливает только ту процедуру, внутри 
которой находится. Если эта процедура вызывалась другой, то та не останавливается и 
продолжает работать. 


ТО АББУР :МОМВЕВ 


ТЕ :ТОТАЕ >1000 [$ТОР] 
МАКЕ “ТОТАЁЕ :ТОТАЕ + :ММВЕВ 
РАТМТ :ТОТАЁ 
АОВИР :МОМВЕН+1 
ЕМО 
МАКЕ “ТОТАЕ 0 


АОВУР 1 


3 
6 


10 
15 

ит. д. 

Обратите внимание на то, что нам приходится выставлять исходное значение ТОТАЕ, 
равное нулю, вне процедуры, поскольку нам не надо, чтобы ТОТАЁ принимало бы нулевое 
значение всякий раз, как происходит исполнение процедуры. 

Рекурсия очень часто оказывается очень удобной при работе со списками. Например, 
поэлементная печать списка, которую мы рассматривали в гл. 1, может быть сделана более 
элегантно с помощью рекурсии. Например, так: 


ТО ЕВЕ :АЁЕТЗТ 
РАТМТ РТАЗТ :АЁЕТЗТ 
ЕВЕ ВУТЕТВЗТ :АЕТЗТ 
ЕМО 


Все очень просто. Процедура распечатывает содержимое начала списка, а затем 
точно так же поступает с его остатком. Когда же она закончит свою работу? Когда список 
станет пустым. 


ТО ЕВЕ :АЁЕТЗТ 
ТЕ ЕМРТУР :АЁТЗТ ($ТОР) 
РАТМТ ЕТАЗТ :АЕТУТ 
ЕВЕ ВУТРУВУТ :АЁЕТЗТ 
ЕМО 


Проверьте эту процедуру на каком-нибудь списке, а затем попробуйте ее 
видоизменить так, чтобы она печатала список в обратном порядке. 

Конечно, в некоторых случаях рекуррентные выражения могут быть весьма сложными, 
но простейшие применения рекурсии поистине просты. Кроме бесконечных рекурсий 
(которые на самом деле тоже бесконечными не являются, ведь при каждом вызове 
процедуры ЛОГО фиксирует факт этого вызова в оперативной памяти и рано или поздно эта 
память исчерпывается) существуют еще две возможности. В приведенных примерах 
процедура начинается с проверки. В языках, предназначенных для структурного 
программирования, таких как Паскаль или скажем, в развитой версии БЕЙСИКа Бета- 
БЕЙСИК, эта конструкция называется циклом М/НЕЕ. В ЛОГО это выглядит так: 


ТО ИНТЕЕ «параметр» 
ТЕ <условие> [5ТОР] 
.. <тело процедуры? ... 
ИНТЕЕ «параметр» 
ЕМО 


В этой процедуре <тело> не исполняется, если <условие> принимает значение ТВИЕ. 
В частности, эта процедура вообще не исполняется, если исходное значение параметра 
таково, что <условие> справедливо. 

Другой прием состоит в проверке условия в конце серии повторяющихся инструкций. 
Это соответствует команде ИМТ! Паскаля или БЕТА БЕЙСИКа. 


ТО УМТТЕ <параметр> 
. <тело процедуры» 
ТЕ <условие> [МТП <параметр>] 
ЕМО 


Здесь тело процедуры всегда исполняется до проверки условия, так что по крайней 
мере один раз процедура будет исполнена. 

Очень часто, когда мы используем рекурсию для организации повторяющихся 
вычислений, нам необходимо создать стартовую процедуру, которая задаст начальные 
значения переменных, сделает первый вызов рекуррентной процедуры и сможет обработать 
полученный из нее результат. В нижеприведенном примере, который должен отыскать 
сумму, последовательности впечатанных с клавиатуры чисел, процедура ОРОТОТАЕ сначала 
устанавливает ноль в качестве текущей суммы, а затем вызывает рекуррентную процедуру 
ТОТАШУР. Когда работа закончена, ООТОТАЕ печатает итоговый результат. 


ТО БОТОТАЕ 

МАКЕ “ТОТАЕ 0 

ТОТАЕУР 

РАТМТ ЗЕМТЕМСЕ [ТНЕ ТОТАЕ 1$] :ТОТАЕ 
ЕМО 


Процедура ТОТАШУР демонстрирует использование процедуры МУМВЕНР для того, 
чтобы проверять те числа, которые пользователь вводит с клавиатуры. Она позволяет 
пользователю ввести числовую последовательность и закончить ее словом ЕМО или любым 
другим нечисловым вводом. Процедура организована по схеме ЧМТ, рассмотренной 
выше. Единственное отличие состоит в том, что вводится дополнительная инструкция 


МАКЕ “ТОТАЕ :ТОТАЕ + :№М 


если условие справедливо (ТВУЕ). Эту инструкцию можно было бы поместить и в 
начало процедуры, но только в том случае, если бы первое значение МИМ задавалось бы 
вышележащей процедурой РОТОТАЕ. 


ТО ТОТАЕУР 

РАТМТ [ТУРЕ ТМ А ММВЕН] 

МАКЕ “ММ ЕТВЗТ НЕАБЕТЗТ 

ТЕ МОМВЕВР :МОМ[МАКЕ “ТОТАЕ :ТОТАЁЕ +М№М ТОТАШР] 
ЕМО 


Когда с клавиатуры будет введено какое-то слово, не являющееся числом, вызов 
ТОТАЕУР будет прерван. В итоге, будет остановлен и весь процесс и управление будет 
передано в вышележащую процедуру в точку после первого вызова ТОТАЦУР. 


Генератор случайной последовательности. 

Идеи, изложенные в этой главе, можно применить к генерации случайных 
последовательностей. Рассматривайте это как первый шаг к программам, с помощью 
которых компьютер будет писать стихи. 

Давайте рассмотрим сначала как ЛОГО может выдавать случайные числа. Вообще-то 
эти числа рассчитываются и потому не являются вполне случайными, но маловероятно, что 
Вы заметите их неслучайность. 

Так, ВАМООМ 5, например, выдаст одно число из последовательности 0,1,2,3,4. Точно 
также ВАМООМ 6 даст число от 0 до 5. 

Попробуйте: 


ВЕРЕАТ 50 [РВТМТ ВАМООМ 6] 


- и посмотрите, что из этого выйдет. 


Если Вам надо иметь случайное число не из диапазона [0;4], а из диапазона [1;5], то 
Вы тоже можете воспользоваться оператором РАМООМ 5, но к полученному результату надо 
прибавить единицу. Это делается так: 


1 + ВАМООМ 5. 


Обратите внимание на то, что запись ВРАМООМ 5+1, будет неправильной, поскольку 
сначала будет исполнено сложение 5 + 1, а затем процедура РАМООМ с параметром 6. 

Давайте используем эту процедуру для того, чтобы извлечь из списка случайный 
элемент. Прежде всего введем переменную ПЕММО - случайное целое число от 1 до 
значения СОЧЦМТ, а затем используем эту переменную для выбора элемента списка. 


ТО СНООЗЕ :АЁЕТЗТ 
МАКЕ “ТТЕММО 1 + ВАМООМ СОУМТ :АЕТФТ 
МАКЕ “СНОТСЕ ТТЕМ ТТЕММО :АЕТЗТ 
ЕМО 


Попробуйте эту процедуру с каким-либо списком. Например, для списка РАЕЗЕМТ: 


СНОО$Е :РНЕЗЕМТ 


Для того, чтобы генерировать предложения, нам нужна сначала какая-то канва, какая- 
то скелетная схема, например: 


ТНЕ ОМАШГ РОС ОЧТСКЬУ ВТТЕЗ ТНЕ САВЕГЕЗЗ МАМ 


Рассмотрим структуру этого предложения, учитывая, что не все наши читатели могут 
быть знакомы с английской грамматикой. 

е Артикль "Пе" может иметь в качестве альтернативы артикль "а". 

» Прилагательное ЗМАЦ( (маленький, -ая) может быть заменено на иное, например: 
[В1@ ВАОМММ ЗРОТТЕО САВЕЕЕ$$] 

» Существительное "ООС" (собака) является таким же объектом, как и [МАМ ТАЕЕ 
ТАВЕЕ КЕММЕ] 

е Наречие ОЧСКЁУ (быстро) описывает, как происходит событие. Вместо него 
можно употребить [МСОЧ$ЗЕУ ЗЕОММУ САВЕЧЬЫУ НАРРИШУ] 

» Глагол ВПЕЗ (кусает) - указывает на происходящее действие точно так же, как и 
глаголы: [ЫКЕ$ СНАЗЕ$ САВЕЕ$ НШОЕ$]. 

» Еще один артикль "ТНЕ". 

» Еще одно прилагательное "САВЕЕЕЗ5$" (беспечный) 

» Еще одно существительное "МАМ" (человек, мужчина). 

Итак, если мы введем сокращения: 

АЗТ - артикль; 

АБ - прилагательное; 

АБ\ - наречие; 

\ЕВ - глагол; 

КОЧЦ - существительное, то получим следующую скелетную схему: 


[АКТ АРСО МОЦ АБУ УЕВ АВТ АШО 500] 


Приравняем этот список переменной РАТТЕНМ, а с именами АКТ, АША, МОЧЦ и пр. 
свяжем свои списки глаголов, наречий, существительных и т.п. Так, например, список с 
именем "АБ. будет содержать: 


[5МАШТ ВТС ВКОММ 5РОТТЕР САВЕПШЕБ$5] 


Теперь мы можем конструировать случайные предложения. 


ТО ВАМОЗЕМТЕМСЕ 
МАКЕ “РАТТЕВМ [АВТ АБУ №00 \УЕВ АВТ АБУ №19] 
МАКЕ “АНТ [5МАЕЕ ВТ@ ВВОММ ЗРОТТЕВ САВЕГЕЗ$ ] 
МАКЕ “КОУ [МАК ТВЕЕ ТАВЕЕ КЕММЕЕ 0006] 
МАКЕ “АБ\У [ОУТСКЕУ УТСТОУЗЕУ ЗЕОМЕУ САВЕУСЕУ НАРРТИЕУ] 
МАКЕ “\УЕВ [ВТТЕЗ |ТКЕЗ$ СНАЗЕЗ САВВТЕЗ НТОЕЗ ] 
ВЕРЕАТ 50 [БОНАМООМ] 


ЕМО 


ТО РОВАМООМ 
МАКЕ “ОУТЕТМЕ [1] 
РОГЕОм :РАТТЕВМ 
РНТМТ “ОУТЕТМЕ 
РАТМТ “ 

ЕМО 


Процедура ЕОЧ-ОМ/ сначала проверяет, не является ли ее параметр (а это список, в 
котором закодирована скелетная схема нашей фразы) пустым. Если это так, происходит 
выход из процедуры. Иначе, берется первый элемент скелета, а он является именем списка 
слов и из этого списка делается случайный выбор. Выбранное слово добавляется к 


собираемому предложению ОЧТИМЕ. 
ТО РОГЕОм :АРАТТЕВ 

ТЕ ЕМРТУР :АРАТТЕВМ [5ТОР] 

АКЕ “ТНТУМОАО ЕТАЗТ :АРАТТЕАМ 

СНООЗЕ ТНТМ@а : ТНТ$МОАВ 

АКЕ “ОУТЕТМЕ 5ЕМТЕМСЕ :ОУТЕТМЕ :СНОТСЕ 

ЕОЕЕОмМ ВУТЕТВЗТ :АРАТТЕАМ 


ЕМО 


ГЛАВА 6. ЧЕРЕПАШЬЯ ГРАФИКА-2. 


Идеи, рассмотренные в двух предыдущих главах, могут быть проиллюстрированы с 
помощью "черепашьей графики". Возьмем процедуру РЕЗР! из гл. 3 и модифицируем ее так, 
чтобы "черепашка" в одних случаях поворачивала бы направо, а в других - налево. Сделаем 
это, обеспечив дополнительный входной параметр, который будет списком чисел, значений 
СОЧМТ, для которых "черепашка" должна поворачивать влево. Когда СОЧМТ является 
числом, входящим в этот список, выполняется поворот налево, иначе - направо. Вставлять 
всю эту логику в оператор НВЕРЕАТ, по-видимому, слишком длинно, поэтому проще создать 
отдельную процедуру: 

ТО ВЕЗРТ2 5Т7Е :АМСЕЕ МАХ :АЁТУТ 
МАКЕ “СОПМТ 1 
ВЕРЕАТ МАХ [50В$РТ] 
ВЕЗРТ2 :517Е :АМСЕЕ МАХ :АЁЕТУТ 
ЕМО 


ТО ЗИВЗРТ 
РОВИАНО :5Т7Е * :СОПМТ 
ТЕ МЕМВЕВР :СОУМТ :АЕТЗТ [ЕЕРТ :АМСЕЕ] [АТ@НТ :АМОСЕЕ] 
МАКЕ “СОУМТ :СОУМТ+1 

ЕМО 


Проверьте эту процедуру со следующими параметрами: 


ВЕЗРТ2 5: 120: 6. [1-31 
КЕЗРТ2 5 90 11 [345] 


На рис. 1 показан пример работы процедуры. 


Рис.1 ВЕЗР/2 5 907 [1234] 


Мы рассмотрели выше способ остановки рекуррентных процедур. Теперь интересно 
было бы рассмотреть, как можно остановить рекуррентную процедуру, изображающую 
замкнутую диаграмму (такую, в которой "черепашка" возвращается в ту точку, с которой 
начинала работу. Прежде всего, нам надо узнать, вернулась ли "черепашка" в точку старта. 
В ЛОГО есть процедура-примитив, которая вычисляет координаты "черепашки" в любой 
момент времени. Это процедура розШюоп, она выдает список из двух чисел. Первое число - 
горизонтальная координата, отмеренная от центра экрана; второе число - вертикальная 
координата, она тоже измеряется от центра экрана и для верхней его половины является 
положительной, а для нижней - отрицательной. 

ЛОГО имеет три команды для перемещения "черепашки" в указанное положение: 

ЗЕТХ 50 - переводит ее на вертикаль, имеющую координату Х, равную 50. 

ЗЕТУ -50 - переводит ее на горизонталь, имеющую координату \, равную -50. 

ЗЕТРОЗ [-20 30] - устанавливает "черепашку" в точку, с указанными в списке 
координатами. 

Если перо "черепашки" опущено, то при исполнении каждой из этих трех операций 
будет прорисована линия от исходной точки к конечной. 

В главе 3 мы говорили о том, что знак "минус" перед числом имеет двойственное 
значение. ЛОГО применяет простое правило к оценке знака "минус", если он находится в 
списке. Если перед знаком есть пробел или нет ничего и число следует непосредственно за 
знаком (без пробела), то знак «минус» рассматривается, как часть числа и это означает, что 
число отрицательное. Во всех прочих случаях этот знак интерпретируется, как 
самостоятельное слово. 

Итак, [- 10 10] - это три слова, точно так же и [10 - 10] и [10-10] и ни одна из этих 
записей не может быть использована в качестве входного параметра для процедуры 
ЗЕТРО5. 

С другой стороны, [10 -10] и [-10 10] - состоят из двух слов и могут быть использованы 
при вызове ЗЕТРОЗ. 

Следует внимательно относиться и к другим процедурам, принимающим список 
входных параметров в виде чисел, среди которых могут быть и отрицательные. 

Кроме процедур, позволяющих выставить Х и \У-координаты "черепашки", существуют 
две функции ХСОРВ и УСОВ, позволяющие определить и выдать текущие координаты Х и У. 
Эти функции не могут выдать эти координаты на экран, но могут предоставлять их другим 
процедурам для обработки. 

Если мы хотим определить момент, когда "черепашка" сделает замкнутый контур, то 
кроме координат нас должно интересовать еще и направление, в котором она смотрит. Этот 
результат может быть получен с помощью функции НЕАЙМС. - она выдает результат от 0 до 
360 (можете рассматривать его, как показание стрелки компаса). 

Север -0 

Восток - 90 

ЮГ - 180 

Запад - 270 


Таким образом, поворачивая “черепашку"” направо, Вы увеличиваете значение 
НЕАОМС, а поворачивая ее налево - уменьшаете его. Направление, в котором "смотрит" 
"черепашка" можно не только измерить, но и задать с помощью команды ЗЕТНЕАЙМОС, 
после которой должно идти число от 0 до 360. 

Вернемся к нашей проблеме определения момента, когда “черепашка“" закончит 
замкнутый контур и пойдет по второму разу. 

Нам надо зафиксировать координаты "черепашки" в исходной точке и направление ее 
движения. Для удобства мы можем собрать эти три числа в один список: 


МАКЕ “ЪЗТАТЕ ЕРУТ НЕАОТМ@а РОЗТТТОМ 


А после этого мы можем регулярно проверять положение "черепашки", дабы уловить 
момент, когда она будет находиться в той же точке и смотреть при этом в том же 
направлении. 


ТЕ ЕОУАЕР :5ТАТЕ ГРУТ НЕАБТМ№б РОЗТТТОМ [5ТОР] 


Конечно, не следует делать такую проверку до того, как "черепашка" сделает первый 
шаг. 


Усов 


зее | © 


НЕЯОТНЕ 
270 И м 


-з2в © я 127 


Рис. 2 Координаты "черепашки" 


Можно использовать процедуры, задающие координаты Х и Уи для того, чтобы 
рисовать на экране графики. Предположим, что у Вас есть список из двенадцати чисел 
(ежемесячные расходы) и его надо передать в качестве входного параметра в процедуру, 
которая нарисует на экране график. Пока для простоты изложения мы предположим, что все 
числа не превосходят 160 и не являются очень малыми, по сравнению с этим числом. 

Сначала надо нарисовать пару осей. Начиная из левого нижнего угла из координаты [- 
125 -80] нарисуем горизонтальную линию с двенадцатью вертикальными метками, 
соответствующими 12 месяцам. 


ТО ХАХТ$ 

РЕМОР 

ЗЕТРОЗ [-125 -80] 

РЕМРОММ 

ЗЕТНЕАОТМС 90 

РОНМАВО 5 

ВЕРЕАТ 12 [ЕОВМАВО 20 ЗЕТУ -82 5ЕТУ -80] 
ЕМО 


Вертикальные метки идут через каждые 20 шагов "черепашки", т.е. 20 шагов 
соответствуют одному календарному месяцу. 

Аналогично рисуется и вторая ось. Ее тоже следовало бы разметить делениями 
шкалы, но поскольку они зависят от тех количеств, которые мы измеряем и тех единиц, 
которые мы применяем, это лучше делать для каждого конкретного случая по-своему и наш 
читатель сможет сделать это самостоятельно, по вкусу. 


ТО УАХТ$ 


РЕМОР 
ЗЕТРО$ [120 -85] 
РЕМРОММ 
ЕТУ 80 
ЕМО 


Рис. 3 График ежемесячных расходов. 


Оси пересекаются вт. [-120 -80], поэтому это и будет исходная точка нашего графика. 
Просмотрим список, используя переменную СОЧМТ и для каждого значения нарисуем 
линию, соединяющую предыдущую точку с текущей. 

Поскольку исходная точка у нас находится не в нуле, а отстоит от него на 120 единиц 
влево и на 80 единиц вниз, мы должны будем соответственно вычесть 120 из 
горизонтальной координаты и 80 из вертикальной координаты каждой текущей точки. 


МАКЕ “СОПМТ :СОУМТ + 1 
МАКЕ “ХСОН :СОУМТ»20-120 
МАКЕ “УСОН ТТЕМ :СОУМТ :УАЕОЕЕТЗТ-80 


ЗЕТРОЗ ЕТ$Т :ХСОВ : УСОВ 
ЕМО 


СОЧМТ необходимо в начале работы выставлять в нуль с тем, чтобы когда процедура 
выполнялась бы в первый раз, это значение было бы равно единице. Необходимо также 
подготовить список /АЦОЕМ$Т значений, для которых должен строиться график. 

В итоге мы получим главную процедуру: 

ТО ОВАРН :УАШОЕЕТЗУТ 
ХАХТЗ 
УАХТ$ 
ЗЕТРОЗ [-120 -80] 
РЕМБОММ 
МАКЕ “СОПМТ 0 
ВЕРЕАТ 12[Р1ОТ] 
РЕМИУР 
ЗЕТРОЗ [-120 -80] 
ЕМО 

Если среди данных есть значения, большие чем 160, или весьма малые значения, то 
либо "черепашка" выйдет за пределы экрана, либо график будет плохо различим. В этих 
случаях возникает необходимость масштабировать данные. Для этого их умножают на 
какое-либо число, в результате чего получают график приемлемых размеров. 

Итак, научились использовать рекурсию при построении графических фигур. 
Приведем в качестве примеров еще несколько фигур, при построении которых тоже 
используется рекурсия. 

Во-первых, рассмотрим бесконечную кривую, которую называют "снежинкой". 

Построим равносторонний треугольник. Разделим каждую сторону на три части и на 
среднем отрезке построим еще по равностороннему треугольнику ит.д. (Рис. 4) 


Рис. 4 "Снежинка" 


Для рисования треугольника мы поступаем просто - три раза: 


ГОВМААО :ЕЕМСТН 


ВТСНТ 120 


Для того же, чтобы изобразить "снежинку", мы должны заменить процедуру РЕОР\МААО 
процедурой изображения треугольника с размером 1/3 предыдущего. 


ТО $МОМЕЕАКЕ :ГЕМЕТН 
ВЕРЕАТ З[5$МОМЕТМЕ :ЕЕМСТН ВТЕНТ 120] 


ЕМО 


Для того, чтобы нарисовать сторону "снежинки", служит процедура ЗМО\ММАМЕ. 
"Черепашка" проходит треть текущей стороны, поворачивается влево на 60 градусов, рисует 
линию длиной 1/3 от предыдущей, поворачивается направо на 120 градусов ит.д. 


ТО $МОМЕТМЕ :Ё 
ГОВМАНО ГЕ 
ГЕРТ 60 
ГОВМАНО ГЕ 
ВТСНТ 120 
ГОВМАНВО ГЕ 
ЕЕЕТ 60 
ГОВМАНО ГЕ 

ЕМО 


ат 


ат 


ат 


ат 


ЕМСТН 


НИЗ 
НИЗ 
НИЗ 


НИЗ 


Это создает тот эффект, который нам нужен, но СТОП! Вместо каждой из сторон 
треугольника мы получили по четыре отрезка. Но ведь на каждом из них должен быть 
построен свой треугольник. Поэтому всякая команды ГОР\ММААО в процедуре ЗНО\МАМЕ 
должна быть фактически заменена вызовом самой этой процедуры ЗНО\ММАМЕ. 

Очевидно, что с каждым шагом стороны этих треугольников будут все меньше и 
меньше и их трудно будет рассмотреть. 

Мы можем заранее установить какой-то предел на этот размер и когда длина стороны 
становится меньше этого предела, прекращаем эту рекурсию и идем дальше. Если этот 
предел включить в качестве параметра в процедуру ЗМО\ММУМЕ, то можно начинать с 
довольно больших треугольников и постепенно вычерчивать "снежинку" все детальнее и 


детальнее. 


ТО ЗМОМЕЕАКЕ :ЕЕМСТН 
ВЕРЕАТ 3 [ЗМОМЕТМЕ :ГЕМСТН ВТЕНТ 120] 


ЕМО 


ТО ЗМОМЕТМЕ :ГЕМЕТН 
ТЕ СЕЕМОСТН < :ЕТМТТ [РОВМААО :ЕГЕМСТН $ТОР] 


ЗМОМЕТМЕ :ЕЕМСТНИЗ 


[ЕРТ. 60 


ЗМОМЕТМЕ :ЕЕМСТНИЗ 


ЗЕТМТТ 


АТСНТ 12 


ЗМОМЕТМЕ :ЕЕМСТНИЗ 

ГЕРТ 60 

ЗМОМЕТМЕ :ЕЕМСТНИЗ 
ЕМО 


Хорошим демонстрационным примером будет: 


РЕМУР 

ЕТ" >530 
РЕМРОМИМ 
ЗМОМЕЕАКЕ 100 5 


И напоследок кривая, которую называют “драконом"“. Она рисуется двумя 
процедурами, которые вызывают друг друга по-очереди. Между вызовами одна процедура 
обеспечивает поворот направо, а другая - налево. Длина шага в рекуррентной 
последовательности одна и та же, поэтому здесь нам нужен иной метод для того, чтобы 
знать, когда остановиться. Можно, например, сделать так, что когда процедура дойдет до 
определенного уровня глубины рекурсии, то процесс должен прерываться. Для этого 
введем счетчик, который назовем 1Е\МЕ. Он начнет свою работу, например со значения 5 и 
при каждой рекурсии будет убывать на единицу, пока не обнулится. 


Вот эти процедуры: 


ТО ГЕРТОНАСОМ :5Т7Е :ЕЕМЕ 
ТЕ ТЕМЕ = 0 [РОАВМАВО :5Т7Е $ТОР] 
ГЕРТОВАСОМ :5Т7Е :ВЕМЕ-1 
ГЕРТ 90 
АТСНТОВАСОМ :$ТИЕ :ЕЕМЕ-1 


ЕМО 


ТО АТОНТОВАСОМ :5Т7Е :ЕЕУЁЕ 
ТЕ ТЕМЕ = 0 [РОАВМАВО :5Т7Е $ТОР] 
ГЕРТОНАСОМ :5Т7Е :1Е\МЕ-1 
АТСНТ 90 
АТСНТОВАСОМ :ЗТИЕ :ЕЕМЕ-1 


ЕМО 
Не имеет значения, с какой процедуры Вы начнете работу. Рекомендуется начинать с 
небольших значений ЗЕ и ТЕМЕ. Начинать работу можно, например, так: 


СЕЕААЗСВЕЕМ 


ГЕРТОВАСОМ 2 20 


(Продолжение следует) 


Стюарт Николс. 


ПРИМЕНЕНИЕ АССЕМБЛЕРА ДЛЯ СОЗДАНИЯ 
БЫСТРОРАБОТАЮЩИХ ПРОГРАММ 


Перевод с английского Пашорина В.И. 
Продолжение. Начало см. с. 9-12, 48-61, 97-103 


7. ДВИЖЕНИЕ 


Теперь, когда мы познакомились со способами вывода информации на экран и 
способами считывания состояния клавиатуры, мы можем рассмотреть способы задания 
перемещения объектов на экране дисплея. Это, безусловно, важная часть любой игровой 
программы. В этой главе мы рассмотрим все возможные способы задания перемещения. 

Для организации движения изображения по экрану большинство программистов 
используют знакоместа, что позволяет ускорить выполнение программы и оперировать с 
любым из возможных цветов. Весь экран представляет собой прямоугольную матрицу 
24х32, т.е. всего 768 знакомест и поэтому перемещение символа из одного знакоместа в 
другое, соседнее с ним, выглядит не совсем плавным. При этом, если необходимо показать 
перемещение только одного пиксела, приходится переписывать весь символ из одного 
знакоместа в другое. Однако при этом, в отличие от ВАЗ!С-команды РИОТ, нет ограничений 
на выбор цвета. 


Перемещение знакоместа переднего плана экрана 

Для начала необходимо определить стартовую позицию шаблона и затем, используя 
способы, рассмотренные в главе 5, установить шаблон в это знакоместо. Обычно начальное 
положение дублируется, поскольку полностью задать положение шаблона - это значит 
установить его текущее и последующее положения на экране дисплея. Для исключения 
мигания при перемещении шаблона необходимо сразу же выводить его в новой позиции 
целиком. Такой способ используется для задания режима ОМЕН 1, при котором 
перемещение шаблона осуществляется на фоне заднего плана без изменения последнего. 


Программа 7.1 демонстрирует этот способ. Здесь шаблон в виде космического 
корабля перемещается по экрану вверх/вниз при нажатии клавиш 1/0 и вправо /влево при 
нажатии клавиш 9/0. Клавиша "ЗРАСЕ" используется для возврата в БЕИСИК. 


Листинг. 1. 


АДРЕС МЕТКА МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВ 23760 
23760 ЕЗ ОТ ‚ Отключение прерываний. 
23761 18 18 УН ЗТАНТ ‚ Переход на начало работы. 
23763 БАТА_1 00 15 24 49 226 225 224 ‚Шаблон символа СНА$ 144. 
23771 24 60 255 255 153 255 231 60 ‚ Шаблон символа СНН$ 145. 
23779 00 240 24 140 71 135 7 ‚ Шаблон символа СНА$ 145. 
23787 ЭТАНТ ЕБ 5В 7В 5С [О ОЕ, (23675) ‚Начало области Ц06. 
23791 21 03 50 ЕО НЕ, ВАТА_1 
23794 01 18 00 [О ВС, 24 
23797 ЕБ ВО ГОТА ‚ Задание трех первых символов 
‚ графики 100. 
23799 18 ОА УВ ВЕСТА ‚ Переход на начало работы. 
23801 ВАТА_2 22 00 16 8 17 8 144 145 146 ‚Эта последовательность ко- 
‚ дов является символьной стро- 
‚кой, которую можно трактовать 


‚как АТ 0, 0: РАРЕН 8: ТМК 8; 

‚ СНВ$ 144: СНН$ 145; СНА$ 146. 
23811 ВЕСТ ЕО 36 ОЕ 28 ЕО (1Т\+14), 40 ‚ Выставляем цвет бордюра. 
23815 ЕО 36 53 ОЕ ЕО (1Т\+83), 15 ‚ Выставляем ТМК и РАРЕН. 


Я 
Я 


23819 
23821 
23824 
23827 
23829 
23832 
23835 
23838 
23841 
23844 
23847 
23850 


23852 


23855 
23858 


23860 
23862 
23864 
23865 
23867 
23869 
23870 
23873 
23875 
23877 
23879 
23880 
23883 
23885 
23887 
23889 
23890 
23891 


23893 
23895 
23896 
23898 


23900 
23902 
23903 
23904 


23906 
23908 
23909 
23911 


23913 
23915 
23916 


23920 


23921 


7 


Ел 


Е2 


[3 
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6 


8 


ве 


— С —№ — С ПТ С С Г 


пт > № — с> > 2 С> © С> <> > 
[ово ЗИ ЗЕОВЕЕТО 


2А 


01 
ЕБ 


БЕ 
78 


01 


5В 01 5В 


эВ 


ЕР 


Е7 


ЕВ 


|=) 
> 
(>) 
1%) 


В Е р СН СНС 
ооо отор 


г 


О НЫ, (23297) 


г 


0 ВС, 61438 
А, (С) 


к 


пе) 


УВ №, 16 
Тм | 
Гр А,Н 
СР 30 


УВ №, 18 
БЕС Н 

УВ (9 

СР 255 


УВ №, 19 
МС Н 
ЕО ОЕ, (23297) 


ХОН А 


РОЗН НЕ 


‚Открыли канал 


‚ Очистка экра 


Длина символ 


Начало буфер 


Длина символ 
Переброска с 
БАТА_2 в нач 
тера. 


печати. 


Ввод данных 
ры. Согласно 
торое устано 
принимается 
половины вер 
(клавиши 6. 
Проверка кла 
Переход, есл 
Если нажата. 
Проверка кла 
Переход, есл 
Если нажата. 


‚Опрос полуря 
‚ Проверка кла 
‚Переход, есл 
‚Если нажата. 


Опрос полуря 
Проверка кла 
Переход, есл 
Если нажата. 
Координата п 
Проверка на 

делы экрана 

Переход, есл 
наче уменьш 
переходим 

Проверка на 
делы экрана 

Переход, есл 
наче увелич 


‚ Проверка на 
‚ делы экрана 
‚Переход, есл 
‚Иначе уменьш 
‚ и переходим 
‚ Проверка на 
‚ делы экрана 
‚Переход, есл 


‚Иначе увелич 


‚; печати. 
‚ Обнуление фл 


исполнению 
'Запомнили ко 


Начало символ 
Печать символ 


Начало символ 


‚важный момент пр 


печати на экран. 


ьной строки. 
ьной строки. 
ьной строки. 
а принтера. 
ьной строки. 
ьной строки. 
вольной строки 
ало буфера прин- 


Координаты текущей позиции 


с порта клавиату- 
тому числу, ко- 

влено в ВС, здесь 

сигнал с правой 

хнего ряда клавиш 

.0). 

В “0”. 

и не нажата. 


В ее 
и не нажата. 


дас ив 
виши “1” 
и не нажата. 


да (0...Т). 
виши “0”. 
и не нажата. 


о вертикали. 
выход за пре- 
снизу. 

все в порядке. 
аем | 

а метку 16. 
выход за пре- 
сверху. 

все в порядке. 
ваем (|. 


выход за пре- 
справа. 
все в порядке. 
аем Н. 
а метку 19. 
выход за пре- 
слева. 

все в порядке. 
ваем Н 


‚ Координаты старой позиции 


ага переноса (это 

подготовке 
команды 5ВС). 

ординаты новой 


‚позиции печати на стеке. 


23922 ЕВ 52 ВС НЕ, ОЕ ‚ Проверяем изменилась ли по- 
‚зиция печати. 

23924 Е РОР НЕ ‚ Восстановили новую позицию. 

23925 28 2С УВ 7,112 ‚ Если позиция печати не не- 
‚нялась, делаем обход на (12. 

23927 22 01 5В ЕВ (23297), НЕ ‚ Запомнили координаты новой 
‚позиции печати в буфере 
‚ принтера. 

23930 ЕО 36 57 03 ЕО (ТУ+87), 3 ‚ Включение О\ЕВ 1. 

23934 11 29 5С [О ОЕ, ВАТА_2 

23937 01 ОА 00 ЕО ВС, 10 

23940 СО ЗС 20 САЕЕ 8252 ‚ Печать в старых координатах. 


‚а поскольку включен режим 
‚ ОУЕВ 1, то это на самом деле 
‚не печать, а стирание. 


23943 11 00 5В ЕО ОЕ, 23296 
23946 01 ОА 00 ЕО ВС, 10 
23949 СО ЗС 20 САЕЕ 8252 ‚ Печать в новой позиции. 
23952 11 29 5С ЕО ОЕ, ВАТА_2 
23955 21 00 5В ЕО НЕ, 23296 
23958 01 ОА 00 ЕО ВС, 10 
23961 ЕО ВО ОТВ ‚ Копирование новой позиции 
‚ в старую. 
23963 21 88 13 ЕО НЕ, 5000 
23966 111 28 ОЕС НЕ | 
23967 7С ЕВА, Н |Цикл задержки. 
23968 В5 ОВ Е | 
23969 20 ЕВ УВ №, 111 
23971 (12 01 ЕЕ 7Е ЕО ВС, 32766 [Опрос нажатия 
23974 ЕБ 78 МА, (С) | клавиш 
23976 СВ 47 ВТТ 0, А | "ПРОБЕЛ". 
23978 02 21 50 УР №, 17 ‚ Если не нажата, переход на 17 
23981 РО 36 57 00 1 (1\+87),0 ‚ Восстановление режима О\ЕВ 0. 
23985 ЕВ ЕТ ‚ Разрешение прерываний. 
23986 С9 ВЕТ ‚ Возврат в БЕЙСИК. 


Космический корабль может перемещаться одновременно в двух направлениях без 
изменения изображения заднего плана. Корабль выводится в цветах РАРЕН 8 и 1М№МК 8, чтобы 
оставаться контрастный на любом фоне заднего плана изображения. Скорость 
перемещения корабля регулируется с помощью цикла задержки. Если же корабль остается 
неподвижным, то процедура стирающая старое изображение и печатающая новое 
обходится, чтобы избежать мерцания 

Процедура хоть и выглядит немалой по своим размерам, тем не менее очень проста. 
Просмотрите ее, в ней все должно быть понятно и доступно. 


Вы можете усовершенствовать эту программу так, чтобы космический корабль при 
выходе его за пределы экрана, появлялся с противоположной стороны. 

Процедура в машинных кодах выполняется довольно быстро и если в цикле задержки 
записать 10 НЕ, 1, то за время перемещения корабля его изображение не успеет полностью 
восстановиться на новой позиции. Поэтому для большинства программ необходимы циклы 
задержки, чтобы сохранить изображение на время перемещения. 


Перемещение изображения заднего плана экрана 
Для задания перемещения заднего плана необходимо организовать перемещение не 
одного знакоместа, а всего экрана или его части. Это перемещение обычно выполняется в 
одном из 4 направлений: вверх, вниз, вправо, влево; причем перемещаются одновременно 
и символы и их атрибуты. Если смещение всего экрана происходит на одну символьную 
позицию, то необходимо решить, как поступить с символами, вышедшими за пределы 
экрана. Мы можем либо потерять их и выводить на противоположной стороне экрана пустые 


знакоместа, либо запомнить их вместе с атрибутами и затем выводить на экран в 
соответствующем месте на противоположной стороне. Такой эффект зацикливания 
изображения весьма полезен для игровых программ. 

Программы с 7.2 по 7.5 демонстрируют смещение атрибутов без возврата с 
противоположной стороны для всех четырех направлений (такое движение принято 
называть "протяжкой" - ЭСАОЦ.). Программы с 7.6 по 7.9 демонстрируют смещение 
атрибутов по всем четырем направлениям с возвратом (назовем это движение "прокруткой" 
- ВОЦ.). 

"Прокрутку" и "протяжку" символов для всех четырех направлений демонстрируют 
программы 7.10... 7.18. 


Листинг 7.2 
ЗЭСКОЦЕ вверх для атрибутов. 
АДРЕС МЕТКА МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВ@ 23760 

23760 71 00 58 [О БЕ, 22528 ‚ Начало области экранных 

‚ атрибутов. 
23763 21 20 58 ЕО НЕ, 22560 ‚ Начало области атрибутов 

‚ для второго ряда знакомест. 
23766 01 ЕЙ 02 ЕО ВС, 736 ‚ Длина перебрасываемого блока 

‚ (23 нижних строки по 32 зна- 

‚ коместа). 
23769 ЕБ ВО ГОТА ‚ Перенос атрибутов на одну 

‚ строку вверх. 
23771 06 20 [О В, 32 |Заполнение нижней строки 
23773 ЗА 80 5С [О А, (23693) | экрана постоянными атрибута- 
23776 [2 12 [В (ОЕ), А |ми, взятыми из системной пе- 
23777 13 ТС ОЕ |ременной АТТН_Р(23693) 
23778 10 Е2 № 12 | 
23780 С9 ВЕ ‚ Возврат. 


Эти программы легко усовершенствовать для организации РОШ и ЭСВОЦЕ( только 
части экрана. Весь экран условно разбит на 3 сегмента, по 8 рядов в каждом. Каждый ряд, в 
свою очередь, состоит из 8 линий. Каждая линия в дисплейной области памяти занимает 32 
байта. Причем записывается в эту область памяти сначала первая линия первого ряда, 
затем первая линия второго ряда и т.д. последовательно до первой линии восьмого ряда, 
включительно. 

Затем записываются вторые линии первых восьми рядов, затем третьи и так 
последовательно весь сегмент, после чего записывается второй и за ним последовательно 
третий сегмент экрана. Каждый сегмент занимает 2046 байтов в дисплейной области 
памяти. 

Обратите внимание, что в процедурах 7.3...7.18 используются команды передачи 
блока байтов - ОВ и ЕООВ. После выполнения этих команд в регистровых парах НЁ и ОЕ 
остается записанный конечный адрес блока +1 (для ОВ) и конечный адрес - 1 (для ООВ), 
Это можно использовать для задания адреса продолжения выполнения программ 
процедуры, а не перезаписывать адресав НЁ и ПЕ. 

Программы 7.2...7.18 написаны так, чтобы не вносить в них изменения при смене 
адреса загрузки. Программа 7.19 является усовершенствованной версией программы 
ЗСНВЕЕМ УР $ЗСВОЦ.. Если Вам все понятно в ней, попробуйте сами усовершенствовать 
программу ЭСВЕЕМ ОО\ММ 5СВОЦ.. 

Сравнивая программы 7.15 и 7.19 Вы заметите что вторая занимает уже не 99, а 
только 87 байтов, хотя и это не абсолютно компактная программа. Весьма полезные детали 
искусства программирования, а также способы уменьшения объема памяти и времени 
работы показаны в программе 7.15. Эта программа перемещает вверх каждый символ ряда, 
линия за линией. 


Листинг 7.3 
ЭСВОЦЕ вниз для атрибутов 
ЕВ ОЕ, 23295 
ЕО Н, 23253 
ЕВ ВС, 736 
[ООВ 
О В, 32 
ГВ А, (23593) 
И [О (ВЕ), А 
ТМС ОЕ 
УМ Е7 
ВЕТ 


Листинг 7.4 
ЗЭСВОЦЕ влево для атрибутов 
О В, 24 
ЕО НЕ, 22528 
[12 РОЗН НЕ 
РОР ОЕ 
РИЗН ВС 
ТАМС НЕ 
ЕВ ВС, 31 
ЕОТЕ 
ГВ А, (23693) 
ЕО (0Е), А 
РОР ВС 
№ 
2 ВЕТ 


Листинг 7.5 
ЗСВОЦЕ( вправо для атрибутов 
ЕО В, 24 
ЕО НЕ, 23295 
[14 РУЗН НЕ 
РОР ОЕ 
РУЗН ВС 
ВЕС НЕЁ 
[О ВС, 31 
[ОБА 
ЕВ А, (23693) 
ЕО (ОЕ), А 
РОР ВС 
УМ, [14 
ВЕТ 


[16 


[17 


24 


|-25 


32 


Листинг 7.6 
ВО вверх для атрибутов. 


ЕО НЕ, 22528 ‚Начало ат- 

‚ рибутов. 
РОЗН НЕ ‚ Копирование 
РОР ОЕ ‚через стек. 
[О В, 32 ‚32 знако- 

‚ места ряда. 
ЕВА, (НЕ) ‚ Запомнили 
РУЗН АР ‚ атрибуты на 

‚ стеке. 
ТАС НЕ ‚ Знакомес- 

‚то справа. 
.м7 [16 ‚ Повтор для 

‚всего ряда. 
ЕО ВС, 736 ‚ Протяжка для 
ГОТ ‚23-х нижних 

‚ рядов. 
[О В, 32 ‚ Восстанавли- 
РОР АЕ ‚ваем атрибуты 
ВЕС НЕ ‚ верхнего ряда 
Е (НЕ), А ‚в нижнем ряду 
УМ 117 ‚ экрана. 
ВЕТ ‚ Возврат. 

Листинг 7.7 


ВО вниз для атрибутов 
ЕО НЕ, 23295 
РИЗН НЕ 
РОР ОЕ 
[О В, 32 
ЕВА, (НЕ) 
РУЗН АР 
БЕС НЕ 
М7 124 
ЕО ВС, 736 
ЕООВ 
[О В, 32 
РОР АЕ 
ТМС НЕ 
ЕО (НЕ), А 
М7 125 
ВЕТ 


Листинг 7.8 

ВОШЕ влево для атрибутов 
Ь В, 24 

О НЕ, 22528 

ОУН НЕ 


О И БА ес 9 О 6 ЗО А зд ПБЯ 


[33 


1 


Ел 


Листинг 7.9 


ВОШЕ вправо для атрибутов 


Листинг 7.12 
ЭСВОЦ( влево для символов. 


ЕО В, 24 [О НЕ, 16384 
ЕО НЕ, 23295 ХОВ А 
РИЗН НЕ [О В, 192 
РОР ОЕ [13 РОЗН ВС 
РУЗН ВС РОЗН НЕ 
ЕВ А, (НЕ) РОР ПЕ 
ВЕС НЕ ТМС НЕ 
ЕО ВС, 31 ЕО ВС, 31 
[ОБА ОТВ 
ЕО (ОЕ), А ЕО (ОЕ), А 
РОР ВС РОР ВС 
УМ 133 ОМ7 (13 
ВЕТ ВЕТ 
Листинг 7.10 Листинг 7.13 
ВОЦЕ влево для символов. ЗСВОЦЕ влево для символов. (второй 
ЕО В, 192 ‚ Высота экрана вариант) 
ЕО НЕ, 16384 ‚ Начало экран- ЕО НЕ, 16384 
‚ной области. ЕО БЕ, 32 
РИЗН НЕ ‚ Копирование ЕО В, 192 
РОР ОЕ ‚через стек. | ЕО (НЕ), 0 
РУЗН ВС ‚ Запомнили ВС. АО НЕ, ОЕ 
ЕВА, (НЕ) ‚ Запомнили те- №7 (1 
‚ Кущую линию ЕО НЕ, 16385 
‚ самого левого [О ОЕ, 16384 
‚ знакоместа. ЕО ВС, 6143 
ТС НЕ ‚ Адрес линии [ОТВ 
‚ справа. ЕХ ОЕ, НЕ 
ЕВ ВС, 31 ‚31 знакоместо ЕО (НЕ), 0 
; в ряду. ВЕТ 
ЕОТЕ ‚ Копирование. 
БЕК о ее Листинг 7.14 
‘левого знако- ЭСВОЦ( вправо для символов. 
‹ места в самое ЕО НЕ, 22527 
‚ правое. ХОН А 
РОР ВС ‚ Восстановление ГО В, 192 
: счетчика линий [14 РОЗН ВС 
№ 1 ‚Если не все РУЗН Ни 
‘линии скопиро- РОР ОЕ 
‘ваны, то воз- БЕС НЕ 
‚ врат на 11. ЕО ВС, 31 
ВЕТ ‚ Выход. ЕООЯ 
ЕО (ОЕ), А 
РОР ВС 
Листинг 7.11 АМ 114 
ВОН вправо для символов ВЕТ 


ЕО В, 192 

ЕВ НЕ, 22527 
РУЗН НЕ 

РОР ОЕ 

РОЗН ВС 

ЕВА, (НЕ) 


[№ 


4 


№) 


Еб 


Листинг 7.15 
ЭСВОЦ( вверх для символов. 


ГО ОЕ, 16384 
ЕО НЕ, 16416 
ЕО ВС, 2016 
ЕОТЕ 

ЕО В, 8 

ЕО НЕ, 18432 
ГО БЕ, 16608 
РОЗН ВС 
РОЗН НЕ 
РУЗН ОЕ 

ЕО ВС, 32 
ЕОТЕ 

РОР ОЕ 

РОР НЕ 

РОР ВС 

ТмС О 

ТМС Н 

ОМ 13 

ЕО БЕ, 18432 
ЕО НЕ, 18464 
ЕО ВС, 2016 
ЕОТЕ 

ЕО В, 8 

ЕО НЕ, 20460 
ГО БЕ, 18656 
РОЗН ВС 
РУЗН НЕ 
РУЗН ОЕ 

[О ВС, 32 
ЕОТЕ 

РОР ОЕ 

РОР НЕ 

РОР ВС 

ТмС О 

ТМС Н 

00№ 14 

ГО БЕ, 20480 
[ВНЕ 20512 
ЕО ВС, 2016 
ЕОТЕ 

ЕО В, 8 

ЕО НЕ, 20704 
РОЗН ВС 
РУЗН НЕ 

ГО В, 32 
ЕОСНЕ), 0 
ТМС НЕ 


Листинг 7.16 
ВОЦ вверх для символов. 


[18 
[19 


20 


Е21 


22 
23 


ЕО НЕ, 16384 
ЕО В, 32 

ЕВА, (НЕ) 
РУЗН АЕ 


ОН А 


г мл - 
= 
(Фр) 
© 
[е<) 
> 


Е 
СВ 25-489" С: 27.4 27 


ср ср С Ср С > © < 


‚6 
ОН, 18342 
О ОЕ, 16608 


0 ОЕ, 18432 
ОН, 18464 
0 ВС, 2016 


рН. 20480 
р ОЕ 18656 


Т 
Т 
О 
Е 
Е 
Е 
|. 
ЕО В, 8 
Е 
Е 
РОЗН ВС 
Р 
Р 
В 
Е 


Т 

Т 

О 

ЕО ОЕ, 20480 
ЕО НЕ, 20512 
ЕО ВС, 2016 
ЕОТН 

ЕВ НЕ, 22527 
ЕО В, 32 
РОР АР 

ЕО (НЕ), А 
ОЕС НЕ 
УМ 123 
ЕВ А, 255 
ЕЕ, А 
ОЕС Н 

ЕР А,Н 

СР 79 

УВ №, 122 
В 


га 
— 


8 


26 


27 


Листинг 7.17 


ЭСВОЦЕ( вниз для символов. 


ГО БЕ, 22527 
ЕО НЕ, 22495 
ГО ВС, 2016 
[ООВ 

ЕО В, 8 

ЕО НЕ, 18656 
ГО БЕ, 20480 
РОЗН ВС 
РУЗН НЕ 
РУЗН ОЕ 

ЕО ВС, 32 
ЕОТЕ 

РОР ОЕ 

РОР НЕ 

РОР ВС 

ТмС О 

ТМС Н 

№ 16 

ЕО БЕ, 20479 
ЕО НЕ, 20447 
ЕО ВС, 2016 
[ООВ 

ЕО В, 8 

ЕО НЕ, 16608 
ЕО БЕ, 18432 


Листинг 7.18 


ВО(Е вниз для символов 


ЕО НЕ, 22527 
0 В, 32 


ГОА, (НЕ) 
РОЗН АЕ 


БЕС НЕ 


|=) 


УМА 127 
ЕО А, 255 


УВ №, 126 


О ОЕ, 22527 
ЕО НЕ, 22495 
ЕО ВС, 2016 
ЕООВ 


ь0 В, 8 
ЕО НЕ, 18656 


Е9 


10 
[11 


‚ Конец дис- 
‚плейной об- 
‚ласти. 
‚ 32 знакоместа 
‚ в строке, 

‚ Запомнили 

' НИЖНЮЮ ЛИНИЮ 
‚ текущего зна- 
‚ коместа. 

‚ Знакоместо 

‚ слева. 


так 8 раз. 
Возврат к 
предыдущей 
линии послед- 
него знако - 
еста ряда. 
Проверка на 
выход в 23-ю 
строку экрана 
Если нет, то 
возврат назад 
Копирование 
формации в 
третьем сег- 
енте на ряд 
‚ ВНИЗ. 
‚ Восемь линий. 
‚ Адрес начала 
‚ первой линии 
‚ последнего 
‚ряда второго 


РОЗН ВС 
РУЗН НЕ 
РУЗН ОЕ 


0 ОЕ, 18431 
ОН, 18399 
0 ВС, 2016 
08 

ОН, 16384 
О В, 32 


ЕТ 


28 


ра 


30 
[31 


ГО ОЕ, 20480 


РОЗН ВС 
РОЗН НЕ 
ОЗН ОЕ 


|) 


О ВС, 32 


ОМ 128 


О ОЕ, 20479 
ШОН 


Е, 20447 


Е ВС, 2016 
ЕОБВ 


0 В, 8 

ЕО НЕ, 16608 
О ОЕ, 18432 
ОЗН ВС 


ооо г 
(ани 
Фр) 
= 
= 
[и 


| 

|=) 
[95] 
(<) 
(9%) 
1%) 


[и и 
<> 
|=) 


О ОЕ, 18431 
ЕО НЕ, 18399 
ЕО ВС, 2016 
ЕООВ 


ЕО НЕ, 16384 


с>гонг <онг 


О. 


, 


‚ 
, 
‚ 


‚ Сохранили РР- 
‚гистры от 
‚ порчи коман- 


[№ 
а 
‚ каждой линии. 
Н 
и 


, 
, 


, 


сегмента. 


Адрес начала 


‚ первой линии 
‚ первого ряда 
‚ третьего сег 


ОТВ. 
та в 


ос одной 
через 


‚ границу сег- 


‚ восстановле- 
‚ние регистров 


Переход к 


‚ очередной ли- 


нии ряда. 


‚ Возврат для 
‚ переноса 8-ми 
‚линий через 


‚ границу сег- 
‚; мента. 


Движение ин- 


формации во 
втором сег- 
менте на ряд 
ВНИЗ. 


Перенос 
нформации 
через 
границу 
ежду 
первы 
вторым 
сегментами. 


Движение ин- 
формации в 


‚ первом сег- 
‚ менте на ряд 
‚ ВНИЗ. 

‚ Начало экрана 


Восстановле- 
ние со стека 
нформаци 
ДЛЯ восЬм 
линий первого 
ряда (на стек 
она поступила 
3 восьми 
НИЖНИХ ЛИНИЙ 


УВ №, [30 | экрана). 
ВЕТ ‚ Выход. 


Листинг 7.19 
ЭСВОН(. вверх для символов (2-ой вариант) 


ЕО НЕ, 16384 ‚ Начало дис- 
‚плейной об- 
‚ ласти памяти. 

САЕЕ ЗЕСМ ‚ Движение пер- 
‚вого сегмента 

ЕХ ОЕ, НЁ Перенос 

[О НЕ, 18438 ряда через 

РОЗН НЕ границу 

САЕЕ УР сегментов. 

РОР НЕ 

САЕЕ $ЕСМ ‚ Движение вто- 
‚ рого сегмента 

ЕХ БЕ, НЁ Перенос ряда 

[О НЕ, 20480 через границу 

РОЗН НЕ сегментов. 

САЕЕ УР 

РОР НЕ 

САЕЕ ЗЕСМ ‚ Движение тре- 
‚тьего сегмен- 
‚ та. 

[О НЕ, 20704 Обнуление 

[4 РОЗН НЕ (стирание) 
[О 8, 32 информации 
[3 ЕО (НЕ), 0 в последнем 

ТМС НЕ ряду 

УМ 13 третьего 

РОР НЕ сегмента. 

ТМС Н 

[О А,Н 

СР 88 

УВ №, 14 

ВЕ ‚ Выход 


Продолжение Л. 7.19. 
Нижеследующая процедура копирует все ряды (кроме верхнего) в текущем сегменте 
на один ряд выше. 


ЗЕСЯМ [О В, 7 ‚ Первый ряд сег- 
‚ мента не пере- 
‚носим, потому 7 
[1 РИЗН ВС 
‚ Сохранили от 
‚ “порчи” 
[0 ВС, 32 
‚ Соответствующая 
‚линия следующе- 
‚го ряда отстоит 
‚на 32 байта от 
‚ текущей. 
РОЗН НЕЁ ‚ Копирование ад- 
РОР ОЕ ‚реса через стек 
АБО НЕ, ВС ‚ НЕ указывает на 
‚ряд ниже 
РИЗН НЕ 
‚ Сохранили НЁ 
‚0Е от “порчи” 
РОЗН БЕ ‚ командой [ОТН 
САЕЕ УР ‚ Копирование ря- 


РОР ОЕ 


РОР НЕ 
РОР ВС 
М7 11 


ВЕТ 


Нижеследующая процедура копирует содержимое экранного ряда на один ряд выше. 


‚да вверх. 


|Восстановление 
[ регистров. 

| 

‚Если не все 7 
‚рядов скопиро- 
‚ваны, возврат. 
‚ Выход. 


0Р [0 В, 8 ‚8 линий в ряду. 
[2 РОЗН ВС ‚ Сохранили регис- 
РОЗН НЕ ‚тры от “порчи” 
РУЗН ОЕ ‚ командой (ОТВ. 
[О ВС, 32 ‚32 байта в линии 
[ОТВ ‚ Перенос на один 
‚ряд вверх. 
РОР ПЕ | 
РОР НЕЁ |; Восстановление 
РОР ВС |; регистров. 
ТС р ‚ Переход к оче- 
‚редной линии 
ТМС Н ‚ текущего ряда. 
0№7 [2 ‚ Если не все 8 
‚линий скопирова- 
‚ны, возврат. 
ВЕТ ‚ Выход. 


Вместо программы, выполняющей перемещение сразу же целого ряда, можно 
написать программу, выполняющую перемещение только одного столбца. Чтобы 
переместить весь ряд, эта программа должна повториться 32 раза. В то же время, такое 
решение позволит перемещать не весь ряд, а только заданное количество столбцов и, более 
того, при таком решении нет необходимости хранить в памяти все 256 байтов верхнего ряда 
экрана (как, например, в программе 7.18), а только 8 байтов одного столбца ряда. 
Программа 7.20 показывает, как достигается такое уменьшение объема памяти. Здесь 
адрес первого байта смещаемого столбца записывается в регистровую пару ПЕ, а общее 
число смещаемых столбцов записывается в регистр В. Эта программа может быть 
размещена в любом участке памяти. 


Листинг 7.20. 
ЭСВОЦ( вверх по столбцам. 


ХОВ А ‚ Сброс ак-ра. 
[О БЕ, 16388 ‚ Адрес верхней 
‚линии 4-го 
‚ столбца. 
[О В, 10 ‚ Двигаем вверх 
‚ 10 столбцов. 
5 РОЗН БЕ Сохранение ре- 
‚ гистров 
РОЗН ВС ‚ от коррупции. 
РИЗН ОЕ ‚ Копирование из 
РОР НЕ ‚ОЕ в НЕ 
[0 В, 8 ‚8 линий ряда. 
[6 [О А, (НЕ) ‚ Запоминаем на 
РОЗН АЕ ‚стеке восемь 
ТАС Н ЛИН верхнего 
№7 16 ‚ ряда. 
4 [0 В, 7 
‚7 рядов сег- 
‚ мента. 


[2 РОЗН ВС 
ЕО НЕ, 32 ‚ Указание на 
АБО НЕ, ОЕ ‚ следующую ли- 
‚нию ряда. 
РОЗН НЕ 
[0 В, 8 ‚ Восемь линий 
‚В ряду. 
[$ [О А, (НЕ) ‚ Копирование 
ЕО (ОЕ), А ‚ через акк-р 
ТАС Н ‚ для одного 
ТАС р ‚ ряда 
м7 ЕЛ 
РОР ПЕ ‚ Восстановление 
РОР ВС ‚ регистров. 
№7 12 ‚ Повтор для 
‚ очередного ря- 
‚ да в сегменте. 
ЕО НЕ, 1824 ‚ Переход через 
АБО НЕ, ОЕ ‚ границу сегм. 
Е А,Н ‚ Проверка на 
СР 88 ‚ конец экран- 
УВ 7, ЕМБ ‚ной области. 
РОЗН НЕ 
ЕО В, 8 ‚ Перенос восьми 
[3 ЕВ А, (НЕ) ‚линий через 
ЕО (ОЕ), А ‚ границу сег- 
ТАС Н ‚ мента. 
ТАС р 
Ум 13 
РОР ОЕ 
УВ 14 ‚ Возврат для 
‚ работы со сле- 
‚ дующий сегм. 
ЕМО ЕО ОЕ, 32 ‚ Восстановле- 
5ВС НЕ, ВЕ ‚ние со стека в 
[О В, 8 ‚ нижнем ряду 
У РОР АР ‚ столбца того, 
ЕО (НЕ), А ‚что запомнили 
БЕС НЕ ‚В самом верх- 
УМ 17 ‚ нем ряду. 
РОР ВС ‚ Восстановление 
РОР ПЕ ‚ регистров. 
ТМС ОЕ ‚ Переход к оче- 
‚ редному столб- 
‚ цу экрана. 
УМ 15 ‚Если не все 10 
‚ столбцов об- 
‚ служены, воз- 
‚ врат на 15. 
ВЕТ ‚ Выход. 


Дальнейшее уменьшение объема памяти, занимаемого программой, может быть 
достигнуто, если выполнять перемещение одновременно не всех рядов, а только заданного 
их количества. При этом можно реализовать смещение на экране определенного окна с 
заданными размерами. Программа 7.31, занимающая всего 58 байтов, демонстрирует это 
решение. Для проверки выхода на границу сегмента экрана здесь используется команда ВТ 
О,Н. Если нулевой бит регистра Н не равен 0, то мы находимся на границе сегмента экрана и 
вместо добавления числа 32 к числу, записанному в регистровой паре ПЕ, необходимо 
добавить число 1824 для перевода "первого" ряда в следующий сегмент. Число смещаемых 
рядов определяется числом шагов цикла 14. Адрес ячейки верхнего левого угла 
смещаемого окна может быть определен по формуле: 

16384-+(1824—ИМТ (АО\М/8)) + ((ВОМ - ИМТ(ВОМ//8))*32 + СОЦУММ 


Здесь АОМ/ - номер экранной строки (в знакоместах). 

СОЦОММ - номер экранного столбца (в знакоместах). 

Для смещения всего экрана в регистровой паре РЕ должно быть записано число 
16384, в регистре В перед циклом (6 число 32 и здесь же, но перед циклом 14 -число 23. Эту 
программу можно переделать для организации смещения вверх/вниз. 


Листинг 7.21. 
ХОВ А 
ЕО ОЕ, 16515 Левый верхний 
угол прокручи- 
ваемого “окна” 
меет коорди- 
наты Х=З: 


Ширина “окна” 
- 7 знакомест. 


ЕО В, 7 


5 РИЗН ОЕ 
РУЗН ВС 
РОЗН ОЕ 


Ел 


О В, 13 ‚Высота “окна” 
‚ - 13 знакомест 
[4 


2 


[3 


5 ОЕС Н 


В ПЗУ компьютера 7Х Зреснтит имеется одна из наиболее полезных процедур - 
ЗСВОЦ. п, позволяющая смещать п строк вместе с их атрибутами. Число п должно быть 
больше или равным 2 (но, конечно, не больше, чем 24). 

Программа 7.22 показывает, как можно использовать эту процедуру для очистки строк 
с 16-ой по 24-ю включительно. Число строк отсчитывается от 24-й, при этом в регистр В 
записывается число строк-1 и девять раз вызывается процедура ЗСВОЦ( п, находящаяся по 


адресу 3584. 


Листинг 7.22 
[О В, 9 

Ел РОЗН ВС 

[О В, 8 
САЕЕ 3584 
РОР ВС 
БУМ (1 

ВЕТ 


Ну, и в конце этой главы разберем процедуру, позволяющую одновременно смещать 
влево (или вправо) сразу же половину символа. Эта процедура хоть и короткая, но довольно 
сложная, т.к. здесь используются новые команды. Например, команда НЕО перемещает 
биты с 0-го по 3-й в биты с 7-го по 4-й в ячейке, адрес которой находится в регистровой 
паре Н|. Биты же с 7-го по 4-й из этой ячейки переписываются в биты с 0-го по 3-й в регистр 
А. А данные, которые были в этом регистре в битах с 0-го по 3-й переписываются в ячейку, 
адрес которой находится в регистровой паре НЕ, и занимают здесь соответственно 0...3 
биты. Эта команда не влияет на флаги состояния процессора. 


Листинг 7.23 
ОТ 
ЕВ НЕ, 22527 


[1 РОЗН ВС 


Е2 НЕО 


ЕО (НЕ), А 


ВЕТ 

В программе 7.23 для каждой строки экрана используется команда АО для 
перемещения правой половины каждого символа в левую часть. Левая половина первого 
символа при этом остается пустой, т.к. для каждой строки изначально в регистре А записан 
0. Чтобы организовать циркулярное смещение, необходимо временно запоминать значение 
левой половины первого символа, а затем выводить ее, как правую половину последнего 
символа. 


НАША ПРЕЗЕНТАЦИЯ 


Сегодня мы представляем Вам нашу новую книгу “30 часов БЕЙСИКа для 
начинающих". Надо сказать, что это наш первый опыт в том смысле, что до сих пор мы 
издавали только книги, написанные собственными руками. Сейчас, увы, дело обстоит так, 
что Вы, уважаемые друзья, читаете быстрее, чем мы пишем и потому нам пришлось 
обратиться к классике. Поводом для этого стали многочисленные обращения дать что-то 
для начинающих или хотя бы повторить наше самое первое издание, с которым мы 
дебютировали в 1989 г. - "Большие возможности Вашего "Спектрума". 

Мы сразу отказались от идеи повтора нашей первой книги, ведь за эти годы она была 
перепечатана многими организациями, где слово в слово, где с добавлениями и, вполне 
возможно, она Вам встречалась под другим наименованием. Вместо этого мы сделали 
перевод с книги Клайва Пригмора (Се Ридтоге) и Пола Шрива (Раш ЗПгее\уе), которая 
является методическим пособием по “Спектруму"” для Британского Национального 
колледжа заочного повышения квалификации (МаНопа! ЕЖептзюп Сойеде). 

Книга готова и ее оригинал-макет на дискете предлагается всем желающим 
самостоятельно заняться печатью по нашей лицензии и распространением. Мы же ждем ее 
выход из типографии не раньше ноября текущего года. 

В этой книге нам больше всего понравился ход мысли автора. Все основные 
операторы БЕЙСИКа даются читателю на основе конкретных практических задач. Сегодня в 
качестве презентации новой книги мы даем одну маленькую главу, которая, как нам кажется, 
хорошо иллюстрирует методический подход автора. Глава посвящена членению стрингов 
оператором (...ТО...). 


5.6 Расчленение стрингов. 

Мы никогда не задумывались о том, что такое дата? Например, как компьютер 
представляет себе 23 июня 1973 года? 

Мы знаем, что компьютер умеет хранить данные. И делает это двумя способами - в 
виде чисел или в виде символьных строк (стрингов). В виде чисел он уделяет по 5 байтов 
памяти на каждое число, а для стрингов - по одному байту на каждый символ. Так что же 
такое дата? Число или стринг? 

23 июня 1973 года - вроде бы стринг, а если мы запишем то же самое как 230673 - то 
вроде бы это число. Давайте разбираться. 

Если 230573 это число, то почему 110593 (11 мая 1993 года) меныше, ведь 93-ий год 
был позже 73-го? А если это стринг, то спрашивается, как компьютер сможет рассчитать, 
сколько лет будет в 93-м году молодому человеку, родившемуся в 73-м, да и вообще как 
тогда оперировать с календарем? 

Ответ очень прост. Даты - это особый вид информации и работать с ними надо особо. 
Их надо вводить, как стринги, а хранить в памяти и обрабатывать надо как числа. И вводят их 
именно как стринги еще и потому, что не все элементы даты нам одинаково важны. 

Например, если наша организация ежегодно в декабре месяце повышает заработную 
плату тем, кто отработал у нас более десяти лет, то для этого важен только год, в котором 
работник был зачислен. Если же наша организация занимается настройкой пианино и 
роялей, то каждые три месяца мы рассылаем всем своим зарегистрированным клиентам 
письмо-напоминание о том, что надо бы обслужить инструмент. В этом случае нас 
интересует только месяц, когда был последний раз обслужен данный клиент, а год и день не 
имеют никакого значения. 

Наконец, для отдела жалоб и претензий, которому полагается разбираться с каждым 
заявлением в 30-ти дневный срок, важен день и месяц поступления заявления. 

Итак, мы видим, что стринг, содержащий дату, имеет важное значение как единое 
целое, но есть серьезные причины для того, чтобы вырезать из него отдельные части и 
обрабатывать их отдельно. Таким образом, после того, как дата была введена в формате: 

ДДММТГ или 


ДД.ММ.ГГ или 
ММ.ДД.ГГ или как угодно, нам нужно иметь возможность "вырезать" из нее отдельно 
дни, месяцы и годы и работать с ними порознь, но теперь уже как с числами. 
Для этого нужен специальный оператор, и он есть. На "Спектруме" это делает 
оператор 
и 
Его полная форма, например, такая: 
х$ (а ТО Ь) 
Здесь из стринга х$ вырезается его часть, начинающаяся с символа, номер которого 
равенаи до символа с номером Б. 
Если х$ = "СПЕКТРУМ\", то 
о 
Вы можете посмотреть, как это происходит, на примере следующей программы: 


12 ТМРУТ “Введите исходное слово”: т$ 
16 РАТМТ т$ 

20 ТМРИТ "Начало вырезки”; а 

40 РВТМТ а 

50 ТМРИТ "Конец вырезки”; 6 

60 РВТМТ Б 

80 ТЕТ п$=т$(а ТО Ь) 

90 РВТМТ т$; "(";а;" ТО ";6;")="; п$ 
100 ТОР 


В некоторых других языках программирования, а также в некоторых других версиях 
БЕЙСИКа Вы найдете еще несколько операторов для вычленения субстринга из стринга. 
Нам бы не стоило на них и останавливаться, но Вы должны знать, как Вам реализовывать те 
же возможности, раз этих операторов у Вас нет. 


ГЕРТФ (х$,К) - дает Вам К левых символов стринга. На "Спектруме" его аналогом будет: 
х$(1 ТОК). 


ВСНТ$ (х$,К) - дает К правых символов стринга. На "Спектруме" аналог подобрать 
труднее, приходится пользоваться функцией ГЕМ, которую мы рассмотрели ранее: 


х$(ЕЕМ (х$)-К+1 ТО ЕЕМ (х$)) 


М!О$(х$‚К,т) - дает Вам т символов, начиная с К-го символа. С этим оператором дело 
обстоит проще: 


х$(К ТО К+т) 


Книга написана в стиле дружеского диалога, имеет большое количество вопросов для 
самоконтроля и упражнений с решениями. Она доставит удовольствие не только тем, кто 
сам осваивает БЕЙСИК, но и тем, кто передает свой опыт другим. 

Общий объем книги довольно велик, но мы "уложили" его в 208 стр. стандартного 
формата. 

Спешите приобрести лицензию, а мы в это время планируем издание собственной 
книги "БЕЙСИК для подготовленного пользователя". 

Ваш "ИНФОРКОМ". 


РОВУМ 


В прошлом выпуске “7Х-РЕВЮ" мы объявили о создании совместно с 
Государственным Политехническим музеем АССОЦИАЦИИ ПОЛЬЗОВАТЕЛЕЙ ДОМАШНИХ 
КОМПЬЮТЕРОВ и Фонда "ФЛОП" (фонд литературы, описаний и программ) и читатели уже с 
интересом откликнулись на это начинание. 

Нам пишут Д. Палтусов и В. Кутин из г. Екатеринбурга: 


Здравствуйте, господа! 

Мы хотим выразить вам глубокую признательность. Дело, начатое Вами позволит 
сформировать наконец-то в России рынок программ, периферии и литературы для машин 
класса “"Зресит". Теперь люди, использующие компьютер не только для игр, смогут 
рассчитывать, что "Родина их не забудет". 

ИФК: Большое спасибо на добром слове. Мы передаем все письма с пометкой 
"ФЛОП" в Политехнический музей. Надо сказать, что это их инициатива в создании такого 
фонда. Мы же только оказываем посильную помощь в его становлении, пользуясь тем 
авторитетом, который "7Х РЕВЮ" имеет по стране. 

И главное, что мы хотели бы видеть в итоге это не совсем рынок программ и 
периферии. Скорее нам видится будущее, как свободный рынок талантливых людей. А 
программы, устройства и прочее - это вроде как визитная карточка этих талантов, 
способных делать большие дела и получать достойную оплату за свой труд. 

КОРР: Мы готовы предложить некоторые свои работы. Это годы работы и килобайты 
кода: 

. Вазе - игровая программа (92). 

. Сопгистог - конструктор для создания игр (92). 
. Сепегатог - редактор спрайтов (91). 

‚ па! - дисассемблер (93). 

. Меда-деп - редактор спрайтов (93). 
„.Мичеаи+и\Иу - редактор мультфильмов (92). 

. Эпагепо!аег - игра (92). 

. Тигро-Сору - копировщик (93). 

ИФК: Вашими разработками мы открываем раздел “Авторская программа“ (см. 
соответствующий раздел). 

КОРР: Вместе с тем, у нас есть несколько разработок, которые нельзя считать 
авторскими, поскольку мы просто адаптировали или доработали фирменные программы. 
Мы полагаем, что авторские права на них мы заявлять не можем. Может быть Вы что-то 
подскажете? 

Это русифицированная и доработанная версия графического редактора 
"ААТЗТУОЮ", русифицированные аналоги игр серии ОИ 7У Оливера Твинса, доработанная 
версия АССЕМБЛЕРа "7ЕЦЗ". 

ИФК: Дорогие друзья, мы не сильны в юриспруденции, но знаем, что кроме 
имущественного авторского права есть еще и неимущественное моральное. А это, как нам 
кажется, то, что всегда останется с Вами, если Вы знаете, что сделали большое и нужное 
дело, то почему бы об этом не знать и другим? 

Никто не претендует на авторские права Шекспира, когда переводит "Ромео и 
Джульетту", но разве мы бы познакомились с его произведениями, если бы Маршак и 
Пастернак не приложили к делу свой талант и переводчика и поэта? И разве сегодня мы не 
чтим память и того и другого? 

А знаете, сколько добавляют и отнимают режиссеры, когда ставят пьесу или снимают 
фильм по тому же Шекспиру? Конечно, имя Шекспира всегда стоит на афише, но 
выдающихся режиссеров народ тоже знает и помнит. 

Нам кажется, что адаптация программ вещь безусловно нужная, полезная и 


очоавоюмь — 


стимулировать ее расширение желательно. Тем более, что большинство программистов 
начинают именно с этого и занимаются этим до тех пор, пока наберутся достаточного опыта 
для создания собственных программ. 

Если создать вокруг адаптации ореол "второсортности", то можно сильно подорвать 
желание будущих творцов двигаться вперед, что-то изучать, создавать и творить. Интересы 
нашего общего дела от этого только пострадают. Поэтому мы думаем, что для авторских 
адаптации надо ввести свой раздел, что мы и сделаем. 

Поэтому пожалуйста пришлите “объективки" на Ваши адаптации (название, автор, 
дата ит.п.) и мы включим их в раздел. 


Нам пишет Скворцов Владимир Николаевич из города Чебоксары: 


Ассоциация пользователей домашних компьютеров - это как раз то, что надо, это 
здорово! Ведь сколько любителей компьютеров предоставлены сами себе. И у каждого есть 
свои находки, свои открытия в любимых программах и компьютерах. И как часто хочется 
поделиться со своими единомышленниками находками и открытиями. Поэтому готов 
сотрудничать по любым вопросам, связанным с деятельностью Ассоциации. 


Нам пишут из г. Ташкента: 

Привет, ИНФОРКОМ! 

Мы, Сметанин Юрий и Ильичев Андрей, проведя некоторые исследования, хотели бы 
внести свой небольшой вклад в досье игры ЕН ТЕ. К сожалению, мы не получаем "7Х-РЕВЮ" 
за 1993 год, а хотелось бы, поэтому не знаем, может быть эта работа кем-то уже сделана. 

ИФК: Сейчас, когда работа почты стабилизировалась, мы вновь принимаем на себя 
ответственность отправлять "7Х РЕВЮ" за пределы России и подписку от читателей из 
республик СНГ принимаем и на 93-ий год и на 94-ый, хотя, правда, для них это стоит 
существенно дороже. Мы надеемся, что наши читатели скооперируются, ведь 
"синклеристы" не водятся поодиночке, а ведут социально-активный образ жизни и 
выписывать "РЕВЮ" они смогут. 

КОРР: ... Итак, мы выяснили значение почти всех кодов в символьном наборе 
программы. (Список кодов прилагается). 

ИФК: Сведений о полном исследовании кодов к нам не поступало, хотя Вы вероятно 
знаете о том, что Д.П. Шилин проводил исследование кодировки слогов текстовых 
сообщений (2Х-РЕВЮ №5, 6 1992г.) 

КОРР: ... Значение некоторых кодов, а именно 2,3,4,127 выяснить не удалось. При 
попытке их распечатать программа "зависает", а некоторые коды 7,10,95... не имеют 
печатного символа. Возможно это какие-то управляющие коды. 

Интересны коды 163,167,192. Их значения непостоянны. На место знака (#) 
вставляется имя планеты, на которой Вы находитесь. В коде 199 - Саасйс Спай - дальше 
печатается номер галактики, в которой Вы находитесь. 

Как видно из анализа набора кодов, абсолютно все сообщения состоят из 1-2 кодов, 
отсюда становится возможной русификация программы. Над этим мы сейчас и работаем. 


Код Значение 

1 ГА\УЕ 

2. 

3. 

7 

5 РОЕЁ:0.0 ЕТОНТ УЕАВ$ 
6 САЗН 7 

8 0.0 

9 СВ 

10 

11 

12 | 

13 

14 

15 МАУ БАУ! ТМУАБЕВ 
16 ом 

17 ЕСОТРМЕМТ: 

18 ‚ СТЕАМ 

19 ‚ ОРЕЕМОЕВ 

20 ‚ РООТТТУЕ 

21 НАВМЕЕ$З 5 

22 МОУТЬУ НАНМЕЕ$З$ 
23 РООВ 

24 А\УЕВАСЕ 

25 АВОУЕ А\УЕВАСЕ 
26 СОМРЕТЕМТ 

27 ОВАМСЕРОЦ$ 

28 ВЕАОГУ 

29 --- ЕШТЕ --- 
30 РНВЕЗЕМТ 

31 РОЕЁ ГЕАК 

32 | 

33 | 32 38 

34 | 

35 | Символы 

36 | 

37 | псевдографики 
38 | 


39-58 — Совпадает со стандартным набором 


59-62 Графика 


63 ? (вопросит. знак) 

64 _ (подчеркивание) 

65-90 — Совпадает со стандартным 
алфавитом 

91-94 — Графика 

95 

96 ЕВОМТ 

97 ВЕАВ 

98 ГЕРТ 

99 Атент 

100 ЕМЕВОСУ [ОМ 

101 АТОНТ ОМ СОММАМОЕВ 

102 ЕХТВА 

103 РИУЕЗЕ ГАЗЕВ 

104 ВЕАМ ГАЗЕВ 


108 Е. С.М. ЗУЗТЕМ 


111 РОЕЕ $С00Р$ 
112 ЕЗСАРЕ РОБ 

113 ЕМЕВСУ ВОМВ 
114 ЕМЕВСУ ОМТТ 


105 РЕ 
106 Т5$ ПЕ 
107 ГААСЕ САВСО ВАВ 


109 ЕХТВА РУЕЗЕ ГАЗЕА$ 
110 ЕХТВА ВЕАМ ГАЗЕВ$ 


ОСКТМа СОМРОТЕН 
САГАСТТС НУРЕВЗРАСЕ 
МТЕТТАВУ ГАЗЕВ 
МТМТМС ГАЗЕВ 


СОМТМа МТОЗТЕЕ 
ЕВСУ 

АГАСТТС 

ОСКТ№с СОМРУТЕВ ОМ 
| 

ГОАКТМ@ БЕУТСЕ 
ОММАМРЕВ 


> с> > юм п Е 


сф®<омюмхг > 
© ++ пт > мт тг" 


ноша онмрььм 


ОЕЕ $С00Р$ ОМ 
НААТ 

О\ЕНММЕМТ 

АТА ОМ (#) 
\/ЕМТОВУ 

ЗУЗТЕМ 

РВТСЕ 

(#) МАВКЕТ РВТСЕ$ 
ТМБОЗТВТАЕ 
СВТСОЕТИНАЕ 

ТСН 
\/ЕВАСЕ 
008 


ню <> <> мо он ОШ +Н|<ЗГгэзОошм 


ЦАМТТТУ 

АВСНУ 

ЕДРАЕ 
ЦЕТТ-СО\УЕВММЕМТ 


ОТСТАТОВ$Н 
СОММОМТ$Т 


ТР 


СОМЕЕБЕВАСУ 


ВЕМОСВАСУ 


СОВРОВАТЕ 5ТАТЕ 


оНТР 

РВОБОСТ 
ГАЗЕВ 
НУРЕНЗРАСЕ 


ОТОТАМСЕ 


АЗН 
ЕТОМ 


< © >! 


ВАМСЕ 
ст 
ОЦАМТТТУ 0 
ЗЕЕ 

САВОО 
ЕООТРТ 
РОО 
ТЕХТТЕЕ$ 
ВАОТОАСТТУ 
ЗГА\Е$ 
ЕТОуОВиМТМ 
[ХУНТЕ$ 


АСНТМЕВУ 
АЕЕОУ$ 


НОМАМ СОЕОМТАЕ 
ЗНОВТ ВАМСЕ СНААТ 


НУРЕНЗРАСЕ (#) 

НУРЕНЗРАСЕ ВАМСЕ! 

АУ ОАУ! СОВТОЕТ$ ТМ БАМС 
ТОНТ УЕАА$ 
ЕСН. ГЕМЕЕ 


АГАСТТС СНАВТ 
АВСЕТ Е0ЗТ 
ТЗ5ТЕЕ УАММЕО 


Е 


ЕЗ 


ЕЗ 


ЕВ 


Е 
Е 
М 
С 
Р 


С 
А 


ТВЕАВМ$ 
08$ 
ТМЕВАЕ$ 
ЕВ 
ГАТТМИМ 


ЕМ 5ТОМЕЗ 
ЕТЕМ ТТЕМ$ 


\УЕВАСЕ ВАОТЦ$ 


ОММАМОЕВ 
ЕЗТВОУЕО 


ТП ОАМТТТУ 


Коды, отмеченные знаком (“), вызывают "зависание" программы при попытке их 
вывести на печать. В символах 163,167,192 на место знака (#) вписывается имя планеты, на 
которой Вы находитесь. 

Символы 7, 10, 11, 13, 14, 35, 119 не имеют печатного обозначения и печатаются как 
пробел. 

До свидания! Успехов Вам! 


Нам пишет Сороченко Сергей Владимирович из г. Норильска: 

Здравствуйте, редакция "7Х РЕВЮ"! Я большой поклонник компьютера "ЗРЕСТВУМ" и 
Вашего журнала. Я занимаюсь исследованием сложных имитаторов, адвентюрных и 
стратегических игр. В этом письме я хочу предложить мое описание игры РСНТЕР ВОМВЕВ, 
сделанной фирмами \Мещог Огартс$ и Ам юп. 

НОНТЕА ВОМВЕН - это имитатор самолета-штурмовика. В этой игре прекрасная 
графика, идентичная графике программы НААО ОРМИМС, сделанной фирмой РОМАНВК. 

ИФК: Огромное спасибо Сергей Владимирович и за теплые слова и за Ваш труд. Вашу 
работу мы напечатали в разделе "Советы экспертов". Вы знаете, что мы очень любим 
программы именно этих жанров и попали в самое сердце. 

В Вашей работе нам особенно понравилось то, что Вы не просто "раскрутили" 
порядок работы с программой, но и критически обсудили некоторые особенности ее 
работы. Всегда приятно иметь дело с творческим подходом. 

КОРР: ... В заключение примите, пожалуйста, мои поправки к Вашему описанию игры 
ТОМАНАХМКК. Я не знаю, что на карте обозначено цифрами, но это не Ваши базы, так как при 
выходе на них я не обнаружил на земле ничего, а при посадке по координатам никакого 
ремонта не было. Ремонт, заправку и перевооружение производят только на вертолетных 
площадках, которых в каждом квадрате четыре. 

И еще. Повреждение ТАВЗ - это не повреждения хвостового оперения, а повреждение 
прибора, показывающего, какая цель находится в перекрестке прицела. 

ИФК: Ну вот, Вы нас и прокололи. А может, мы специально такую пенку сделали? 
Вдруг они там в Пентагоне тоже "7Х-РЕВЮ" читают? Может, мы хотели оставить полки 
"Томагавков" без ремонтной базы, а теперь они обо всем догадаются. Ну да ладно, сдерем с 
них пару сотен миллионов ихних папуасских долларов за это "ноу-хау" и купим себе новый 
джойстик. 

КОРР:... В следующем письме я хочу предложить описание игры ОСЕАМ СОМОЧЕВОВ 
фирмы Вюка!Ищеодганоп. 

ИФК: Огромное спасибо. От души поиграем, как раз и новый джойстик опробуем. 

Военнослужащий Похилюк М.П. из г. Славгород Алтайского края задает следующий 
вопрос: 

"В нашем небольшом городе образовалось нечто вроде клуба любителей "Спектрума" 
и унекоторых его членов имеются компьютеры с ПЗУ "ТУРБО-90", у большинства же, как и у 
меня, ПЗУ стандартное. Преимущества "ТУРБО-90" налицо, и мы хотели бы иметь такое у 
себя, но специалистов в этой области у нас в городе мы не знаем, а вот сможем набрать 
программу, которая делала бы то же самое, что ПЗУ "ТУРБО-90", но работала бы где-нибудь 
в свободной области ОЗУ мы смогли бы". 

ИФК: Сделать то же самое, что делает встроенный монитор этой прошивки в 
принципе можно. Можно "вытащить" монитор из ПЗУ и расположить его в ОЗУ, изменив 
адресацию в машинных кодах. Но это теряет смысл, так как любая программа-монитор, 
расположенная в ОЗУ, может находиться как раз в той же области памяти, в которой 
находится исследуемая программа. Ведь заранее совершенно неизвестно, какая область 
памяти останется "свободной" после загрузки интересующей программы. Прелесть 
"ТУРБО-90" в том и состоит, что монитор не в ОЗУ, а в ПЗУ. При этом все ОЗУ свободно и 
при помощи монитора, находящегося в ПЗУ Вы можете "забираться" в любые уголки памяти 
и исследовать любые программы, загруженные в ОЗУ. Извлекать же монитор из ПЗУ для 


размещения его в ОЗУ нет необходимости, ведь это не самый лучший монитор. Существует 
достаточно много программ-мониторов, выполняющих все те же функции, что и монитор 
"ТУРБО-90" плюс еще много других. Например, "МОМ$-4" ("МОМ$-3") из пакета программ 
"ОЕ\УРАС". Это довольно старая программа, но она до сих пор является непревзойденной по 
своим возможностям. "МОМ5", кстати, устроен так, что может работать в любых адресах. То 
есть, если Ваша исследуемая программа расположена в верхней части памяти, Вы можете 
загрузить "МОМ5$" в нижнюю часть и наоборот. К тому же, при помощи монитора "ТУРБО-90" 
Вы не имеете возможности дизассемблирования программы, а это очень немаловажная 
функция при исследовании кодов программ. 

К сказанному следует добавить еще один любопытный факт. В свое время мы 
сообщали о мониторе, работающем в ОЗУ, который находится в игре "ЕОШУМОХ". По своим 
функциям и управляющим клавишам он поразительно похож на монитор "ТУРБО-90" (или 
монитор “ТУРБО-90" похож на монитор “ЕОЧМОХ"). Если Вас заинтересует эта 
информация, то подробности смотрите "7Х-РЕВЮ" М11-12, за 1991 г. на стр. 254. 

И, наконец, последнее. Мы очень рады, что в Вашем городке образовалось "нечто 
вроде клуба любителей "Спектрума". Знаем мы, что то же самое есть и в сотнях других 
больших и малых городов. Мы много раз уже писали, что мы приветствуем неформальное 
объединение синклеристов, что это одна из наших главных целей, что мы всегда готовы 
абсолютно бесплатно и без очереди давать объявления о создании и работе клубов, но 
почему-то никто этим не пользуется. Разве наши читатели не хотят наладить связь между 
клубами напрямую? Разве это не нужно? Конечно, кое-какую информацию о своем 
компьютере Вы получаете из “7Х-РЕВЮ", но мы ведь не можем объять необъятное. 
Объединяйтесь, обменивайтесь информацией напрямую, мы не боимся конкуренции, а 
наоборот окажем любую помощь для свободной циркуляции информации между клубами. 


По поводу ПЗУ “ТУРБО-90" пришло еще одно письмо от нашего читателя из 
Ульяновска - Силантьева М. 

Он исследовал эту прошивку методом "теневого ПЗУ". Таким способом это делать 
очень удобно, если в Вашем компьютере предусмотрена такая возможность - теневое ПЗУ, 
загружаемое в ОЗУ. Для тех, кто не знаком с этим, сообщаем, что такая возможность есть у 
компьютеров, имеющих две “линейки" микросхем памяти - отдельно основное ОЗУ и 
отдельно экранная память. При этом, если после рестарта компьютера, сделать РЕЕК АБВ, 
где АОН - 0...16383, то читаться будет ПЗУ, но если подать команду РОКЕ АРВ, то будет 
сделана запись в область памяти ОЗУ, являющейся "теневой" для ПЗУ (в данный момент она 
неактивна и никак себя не проявляет). Можно даже сделать ЗА\МЕ "ЗУЗ"СОРЕ 0,16384 на 
компьютере, имеющем, например, монитор "ТУРБО-90". А потом загрузить его в свой 
компьютер, (имеющий стандартный монитор) командой ГОАО "ЗУЗ"СОРЕ 0. Для того, чтобы 
переключиться на эту "теневую" прошивку, наш читатель Силантьев М. пользуется 
тумблером. В "Новосибирском" варианте такое переключение выполняется командой ОЦТ 
15,0. При этом переключается триггер, отключающий основное ПЗУ и подключающий 
теневую область ОЗУ. При этом активным становится загруженный монитор, а основное ПЗУ 
- пассивным. Теперь можно воспользоваться дополнительными возможностями, 
заложенными в этой прошивке. Для того, чтобы переключиться обратно на основное ПЗУ, 
надо опять выполнить команду ОЧТ 15,0. Определить, какое ПЗУ в данный момент является 
активным, можно, например, по начертанию символов: В "ТУРБО-90" оно несколько 
отличается. Можно подать команду МЕМ/, тогда будет выведено фирменное сообщение об 
используемой версии. 

После этого отступления мы возвращаемся к письму нашего корреспондента. 

КОРР: "У меня обнаружилась одна неприятность. Первые 5 байтов теневого ПЗУ 
самопроизвольно изменяются после первого же обращения к ним. Если попытаться вывести 


значение этих ячеек командой: 
РОВ Т=0 ТО 10: РАТМТ РЕЕК ТР; МЕХТ Т 


то первые 5 байтов имеют нулевые значения. А если поочередно давать команды: 
РАТМТ РЕЕК 0 
РАТМТ РЕЕК 1 

то печатаются неизвестно откуда взявшиеся числа. При попытке изменить их они 
самопроизвольно восстанавливаются. Дизассемблирование этих первых 5 байтов дает 
какую-то абракадабру. Из за этого неправильно обрабатывается подпрограмма ВЕЗЕТ 
(ВАМООМШЕ УЗВ 0) 

ИФК: Мы проверили то, о чем пишет наш читатель на "Новосибирском" варианте 
Спектрума и убедились, что этот компьютер ведет себя в точности так же. В чем же тут 
дело? Может, кто-нибудь из читателей сталкивался уже с подобной проблемой? Или хотя бы 
знает причину этого явления? Если такие есть, откликнитесь, пожалуйста. 


Дорогие читатели. Вы помните заметку "МАЛЕНЬКИЕ ХИТРОСТИ" в 5-6 выпуске 
"РЕВЮ" за этот год, где на стр.96 было опубликовано сообщение Радзевича А. А. из 
г.Нальчика? Оно касалось любопытных эффектов, возникающих при исполнении оператора 
ОВА\М). Пока никто не ответил на вопрос “Как это происходит?" Но мы со своей стороны 
провели небольшой розыск по зарубежным журналам и оказалось, что этой проблемой 
занимаемся не только мы. Вот что мы нашли в июньском номере журнала "ЭИМСЬАВ У$ЗЕА" 
за 1986 г. (М. 51) на стр. 15. Там приводится несколько иной вариант программы, 
воспроизводящей такие эффекты. 

5 (ЕТ п=1 

10 РАРЕВ 0: ТМК 4: ВОВОЕН 0: (1$ 
20 РОВ а=51 ТО 10000 ЭТЕР 100 

25 1ЕТ п=п=0 

30 РЕОТ 65, 30 
40 ОНАМ ТМУЕАЗЕ п; 120, 120, РТха 
50 МЕХТ а 


Были и другие публикации в этом журнале, например №5,1986, но суть не меняется - 
все это разные модификации той же идеи. К сожалению, намеков на причины происходящих 
на экране эффектов там нет. Итак, проблема остается открытой, хоть и приобрела 
международный характер. 


Нам пишет Лярский С.С. из пос. Березовский Свердловской обл: 

Уважаемые коллеги! 

Разрешите мне поделиться с Вами своими соображениями по поводу дешифрации 
портов в "Ленинграде". Если человек впервые собирает такую конструкцию как компьютер и 
еще если он его сумеет довести до того состояния, в котором он мало-мальски работает, - 
этот человек, конечно, радуется тому, что у него есть компьютер, что игрушки играются, что 
программы работают ит. д. Но это только первое время. Дальше наступает непреодолимое 
желание усовершенствовать свою машины, расширить ее возможности, а если еще у Вас 
такая "сырая" штуковина, как первый выпуск "Ленинграда" - бери в руки паяльник, напрягай 
мозги и "вперед с песней". 

Усовершенствований хватит на всю оставшуюся жизнь. Это, конечно же, не упрек 
авторам Ленинградской версии. 

Очевидно, их задачей было сделать наиболее простую, дешевую и более-менее 
"Спектрум"-совместимую машину. Возможно, им и удалось решить задачу простоты, но что 
касается дешевизны и совместимости - это большой вопрос. Вот и мне, после сборки и 
наладки такого "Ленинграда", пришлось столкнуться с тем, что не все игры, а конкретно 
"ВВУСЕ ЕЕ" работают от джойстика. Я стал советоваться с друзьями и те, кто раньше меня 
собрали и немного освоились с этим компьютером, посоветовали подать логический "0" на 
три старших разряда порта джойстика. Но после того, как я это проделал, некоторые игры, 


например, "ЕХОЕГОМ", зависали после загрузки и запуска Бейсик-загрузчика. Тогда я стал 
разбираться с Монитором, зашитым в ПЗУ и понял, что при существующей дешифрации 
портов в "Ленинграде" таких накладок мне не избежать. Исходя из этих соображений и еще 
прочитав разработку НТК "ПЛЮС" по интерфейсам "Спектрума", родилась схема, которую я 
Вам и предлагаю (приведена на следующей странице). 

В своем "Спектруме" я исключил две микросхемы 555КП1, которые использовались 
для чтения клавиатуры, магнитофона и джойстика. Микросхему 555ТМ9 я оставил как 
выводной порт с адресом "РЕ", добавив две микросхемы 555АП5 для чтения клавиатуры и 
магнитофона и с учетом дальнейшего расширения возможностей моего компьютера 
добавил параллельный порт 5808ВВ55, включив его по рекомендациям НТК "ПЛЮС", только с 
более жесткой дешифрацией портов. В этой схеме я использовал свободные инверторы 
"Ленинграда", а также элементы, которые выделяли сигналы 1ОВО' и !О\МВ' (014.1, 014.4). 

Сигналы по схеме: 

С2 - запись в порт "ЕЕ", СЗ - чтение порта "РЕ", сигнал С1 - вспомогательный. 

Если не устраивает жесткая дешифрация, можно исключить элементы 041.1 и 042.1 и 
тогда вместо сигнала С1 на входы 4 - 042.2 и 12 - 042.4 подать сигнал 1ОАО'. Адреса 
внешних портов МС 5808ВВ55 будут следующие: 

"ЛЕ" - чтение, запись порта "А"(порт джойстика); 

"ЗЕ" - чтение, запись порта "В"; 

"БЕ" - чтение, запись порта "С"; 

"ТЕ" - регистр управляющего слова. 

Вот, пожалуй, и все по поводу этой схемы. 

ИФК: Нас, как и большинство наших читателей, очень интересует все, что касается 
совершенствования компьютеров в плане повышения их совместимости с фирменными 
моделями. Таким работам мы даем “зеленую улицу’ и принимаем их с особой 
благодарностью. 

Приносим свои извинения нашим читателям за нестандартный вид схемы (мы уже 
говорили о сложностях исполнения графических работ в текстовом редакторе), а для 
работы в графической среде у нас не хватает кадров и времени. Так, например, 
инвертированные сигналы вместо общепринятой черты над обозначением сигнала у нас 
отмечены знаком (") - апостроф. 
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Нам пишет Стас Рубцов из г. Улан-Удэ. 

Здравствуйте, Инфорком! 

Большое спасибо за очень нужный и интересный журнал. Подписчиком я не являюсь, 
но регулярно пользуюсь Вашими разработками и работаю с журналом. Беру я его у 
знакомого, "товарища по Спектруму“, если можно так сказать. Он является Вашим 
подписчиком с самого первого выпуска. Так что мне, можно сказать, повезло. 

ИФК: Спасибо на добром слове, Стас. Мы очень рады, что у Вас есть хороший друг. На 
Вашем примере еще раз посоветуем всем, кто нас читает, объединяться и еще раз 
объединяться. Новые повышения цен на печать в конце этого года поставят Вас перед 
необходимостью существенных затрат на вздорожавшее “РЕВЮ" и только единение 
поможет выжить и Вам и нам. 

КОРР: ... Работаю я на 2Х совместимой машинке "Дельта-С". У нас в городе "Дельты" 
разошлись по рукам за две недели - по самым предварительным сведениям - три партии по 
800 штук. Были ли еще партии, я не знаю. Во всех Ваших журналах нет ни одного слова о 
компьютере "Дельта-С" и это может говорить либо об ограниченном его распространении 
либо о его полной совместимости с фирменной машиной. Ни то ни другое не соответствует 
действительности. "Дельта-С" распространена и в Томске, и в Иркутске и в других городах, 
в Москве я видел в фирменном "Московском" (на площади трех вокзалов). Работаю я с 
"Дельтой-С" год, и хочу сказать несколько слов об этой машинке. По моим сведениям, 
"Дельта-С" выпускается по меньшей мере на трех заводах. У меня вариант Курского завода 
(305040, Курск, ПО "Прибор"). Оформление машины не очень хорошее, в частности, 
"жесткая" контактная клавиатура, не очень качественно сделан вывод звука, неважный 
внешний вид. Однако технически машина прекрасная. Имеет встроенный 2Х-интерфейс 1, 
буферизированный выход на 7ГХ-принтер. Несовместима "Дельта-С" с фирменным 
"Спектрумом" только в одном. При наличии в программе вариаций на тему "РОКЕ 23570,16" 
- вывод заголовков типа "ВУТЕЗ..." и др. на принтер, из-за ошибки в схеме не проходит 


номер с подпрограммой ПЗУ “"СОРУ-ММЕ" по адресу ОРОС-ОЕ1З (СОРУ-1-2), т.е. если 
принтер не подключен, программа "виснет". 

Выход очень прост. Надо "подключить" принтер, дать ответ из принтера по линии 
"ВУЗ\У" - "занят", что принтер не готов к приему информации. Но так как не у всех есть 
фирменный 2Х-принтер, советую всем столкнувшимся с этой проблемой просто подать на 
вход "ВУЗУ" уровень "ЛОГ 0". Я поступаю так: соединяю на разъеме вывод АЗ2 "ГТ" 
(готовность принтера), соответствующий сигналу "ВУ$ЗУ" с выводом А5(Аб) т.е. с общим 
проводом, через резистор 4.5 кОм, при этом не надо разбирать компьютер. После такой 
переделки все программы идут, как на фирменной машине. 
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Звук можно вывести на усилитель, для этого на свободном месте (на задней стенке 
компьютера) монтируем гнездо СГ-5, вскрываем компьютер, находим единственный 
проводник, ведущий к звукоизлучателю (от транзистора на плате) и в тоже самое место 
припаиваем минусовый вывод конденсатора К50-3 10 мкФ х 12 \, плюсовый вывод 
припаиваем к контактам "1" и "4" на СГ-5, а к контакту "2" на том же разъеме припаиваем 
"массу" компьютера (перемычку от контакта "2" разъема "+5В" либо от контакта "2" разъема 
АСВ). 

Хотелось бы, чтобы изготовители "Дельты-С" учли эти вопросы в своих разработках. 

ИФК: От всей души присоединяемся к этому пожеланию и думаем, что независимо ни 
от чего Ваши рекомендации помогут многим любителям повысить совместимость своих 
машин. 

КОРР: ... Я прошу извинить меня за то, что получилось так, как будто у "Дельты-С" есть 
существенные недостатки. Это прекрасная машина и это видно даже по печатной плате, 
жалко только, что к нему не прилагается принципиальная схема. Может быть его 
производители учтут и этот момент? 


По вопросам совместимости различных версий "Спектрума" нам пишет из Йошкар- 
Олы Москвин Денис Егорович: 

Адресую свое письмо в раздел "Форум" журнала "7Х-РЕВЮ", так как хочу поделиться 
своим открытием в области совместимости компьютера "Пентагон 48" с фирменным "7Х- 
Зрестит". 

В последнее время 48-е машины вытесняются 128-ми, но мне еще раз хотелось бы 
остановиться на 48-м "Пентагоне". 

В ваших журналах опубликовано множество статей, посвященных совместимости 
"Пентагона", но среди них не оказалось статьи о том, почему не работают на "Пентагоне" 


такие всем известные программы, как "Собга З4аюпте", "Вепедаае-1", "Зг. НамиК" и т.п. Мне 
бы хотелось, чтобы этот пробел был восполнен. 

Эти программы и им подобные не "идут" потому, что в "Пентагоне" не коммутируется 
сигнал \\МАТ (ожидание). Этот сигнал, как оказалось, в фирменном компьютере 
используется для разрешения конфликтов памяти, вызванных регенерацией нижней 
области ОЗУ, где хранится содержимое экрана. 

Скоммутировать сигнал М/АГ можно с помощью триггера. В "Пентагоне" это 
микросхема ТН2 (0011), расположенная в нижней части платы компьютера рядом с 
микросхемой ЛП5, с которой выводятся цвета (В, С, В) ияркость (\). 

Если сигнал ММА подключить согласно приведенной ниже схеме, то можно будет 
смело загружать "Вепедаае", т.к. она будет работать! 


МАТ (780) 
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Здесь на схеме: 

ЗТГТ - это вывод 12 м/с 001.3 (ЛН1 - на плате она одна); 

ВАМ' - это вывод 11 0018.1 (ЛАЗ - ее легко найти, т.к. именно к выводу 11 подключена 
перемычка, уходящая под процессор); 

\ММАТТ - это вывод 24 микропроцессора. 

Таким образом, если подытожить все исправления "Пентагона", опубликованные в 
Ваших журналах, то “пентагоновская" версия 48-го станет полным аналогом фирменного 
ЗРЕСТВНИМа. 

Данная доработка опробована на 5-ти компьютерах. Опыт показал, что при 
подключении сигнала \\МАТ к процессорам КР 1858 ВМ1 (советский аналог 780) программы 
Собга и Вепедаае все равно не работают. Видимо, это происходит из-за неправильной 
системы прерываний у данного процессора. 


Нам пишет Гасин Руслан Владимирович из Магадана. 


Здравствуйте, уважаемая редакция! 

Я являюсь недавним Вашим читателем (подписчиком). Основной целью подписаться 
на Ваш журнал было желание научиться работать с машинными кодами, описание программ 
(в основном системных), взлом (а вернее техника защиты) программ. 

Ну что ж. В принципе я удовлетворен. Мне понравилась информация, представленная 
Михаиленко В.С. Все это хорошо. Ноя думаю, что многие согласятся со мной. 

Я предлагаю хоть чуть-чуть рассмотреть технику защиты программ на диске (в 
системе ТВ-005$). Конечно, можно заявить, что с дисководом работают не так уж и много 
пользователей 7Х-ЗРЕСТВИМ. Я сам только подумываю о нем (дисководе). Ноя и не требую 
доскональных данных о защите (на дискетах). Отталкиваясь от Ваших же принципов (дать 
общую методику, идею, направление, а люди сами додумают), можно дать лишь общие 
сведения. Например, такую. На диске есть директорий, он "говорит" о длине, расположении 
файлов и т.д. Так почему бы не сделать так, чтобы на диске был файл, но операционная 
система не могла ни вывести его название, длину в директорий, ни запустить на выполнение 
без разрешения пользователя. Конечно же, все это выполнимо, и что-то можно сделать? Но 


не хватает сведений о ТА-0О$ (ее переменных ит. д.) 

Естественно, это не совсем защита от взлома, а скорее от несанкционированного 
доступа к программе. 

Очень прошу, напечатайте мое письмо. Вдруг, кто-то откликнется и расскажет, что 
знает. А от Вас, если это произойдет, зависит только вопрос - напечатать или нет. Но я 
думаю, что одну страницу не грех будет отдать. 

Надеюсь, что мое письмо не оставит Вас равнодушными. 

ИФК: Уважаемый Руслан Владимирович, здесь двух мнений быть не может. Голосуем 
"За" единогласно и безусловно дадим все, что сочтут нужным сообщить наши читатели. Но, 
кажется на горизонте появилось кое-что поинтереснее. Мы имеем в виду операционную 
систему 1$-00$. Мнение знакомых специалистов, опробовавших ее, единодушное - ЭТО 
БЛЕСК, который действительно превращает "Спектрум" в полупрофессиональную ЭВМ. 
Впрочем, пока СТОП... мы находимся в начале пути, информация пока скудна, но не 
исключено, что следующий год пройдет под знаком именно этой системы. 


Нам пишет Алексей Жильцов из Самары: 

Я хочу сообщить Вам об особенности игры "ОБеай МА$п-3". Если встать в доме под 
окно и нажать "\/", то на экране появится план улицы и прицел, двигая которым и стреляя, 
можно расстреливать пробегающих бандитов. Только нужно следить, чтобы сзади никто не 
подошел, иначе будут проблемы. 


Многие наши читатели жалуются, что мы мало внимания уделяем аппаратной части. 
Это так, но если Вы вспомните, мы уже писали, что у истоков "ИНФОРКОМа" и "7Х-РЕВЮ" 
стоял коллектив по своей квалификации скорее преподавательский, чем технический. 
Поэтому аппаратные вопросы мы всегда отдавали другим. Сначала нам помогал в этом НТК 
"ПЛЮС", а сейчас, когда эта фирма увы больше не работает, мы можем только опираться на 
Ваши письма, уважаемые читатели. Писем с программами или программными вопросами 
намного больше, чем с аппаратными. И тем ценнее для нас каждое письмо, в котором так 
или иначе затрагиваются аппаратные проблемы. И коль уж сегодня мы дали некоторые 
рекомендации по возможным доработкам "Дельты-С", то очень кстати будет и сообщение 
нашего читателя из г.Норильска - Галушака Александра. Вот что он пишет: 

"В Норильске много владельцев ПК "Дельта-С", но многим из них не нравится, что в 
"Дельте" нет порта КЕМРУТОМ-джойстика. Я подозреваю, что в СНГ существует немало 
типов компьютеров без КЕМЕЗТОМ-джойстика. 

Я подключил джойстик к "Дельта-С" своему товарищу и хочу поделиться опытом с 
читателями "7Х-РЕВЮ". 

Собран интерфейс КЕМР$ЗТОМ-джойстика на двух микросхемах, установленных на 
небольшой печатной плате, и соединяется с 280 тринадцатью проводами, включая питание. 

Я обратил внимание, что на “"Дельте-С" вместо двух микросхем 2764 используется 
одна микросхема 27128, а место для второй микросхемы - свободно. Поскольку на ПЗУ 
выводятся почти все необходимые для интерфейса джойстика сигналы (кроме ОВО и ВО), 
то я разработал печатную плату в расчете на то, что она будет установлена на место 
неиспользуемой микросхемы 2764 (ПЗУ-1) и соединяться с основной платой компьютера 
короткими гибкими проводами. Расположенный таким образом интерфейс размещается 
внутри корпуса компьютера ничему не мешая. С разъемом КЕМР$ЗТОМ-джойстика 
дополнительная плата соединяется шлейфом (6 жил) необходимой длины. 
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Возможны и другие решения. В частности, если в ПК используются 2 микросхемы 
2764, то можно использовать эту же печатную плату, расположив ее над процессором 280, и 
соединив непосредственно с выводами 780. 

Данная схема в наладке не нуждается, при использовании исправных компонентов, и 
доступна для повторения для любого радиолюбителя". 

ИФК: Александр готов ответить на любые вопросы, возникшие при изготовлении 
интерфейса и дает свой адрес: 

663305, г.Норильск Красноярского края, ул. Талнахская, дом 27, кв. 139, Галушак 
Александру. 

Просьба вкладывать конверт с обратным адресом. 

КОРР: "Мои предложения бескорыстны, просто я надеюсь найти людей, с кем я могбы 
обмениваться информацией по "7Х-Зре‹гит", литературой и программами. 

Еще, если есть такие вопросы, могу выслать рисунок печатной платы для 7Х-ЕРАМТ-3 
(описание которого было в “"РЕВЮ-91" М 7-8). Этот интерфейс принтера мною собран и 
благополучно работает уже год". 

ИФК: Спасибо, уважаемый читатель за интересную информацию, за дружескую 
помощь тем, кто в ней нуждается. И нам, поверьте, было очень приятно узнать, что 
опубликованная у нас схема интерфейса принтера собрана и благополучно работает. 


* * * 


В работе с письмами наших читателей нередко один вопрос вызывает другой. Вот и 
сейчас так. Один наш читатель успешно решил проблему подключения джойстика, другой 
пытается найти подходы к подключению "мыши". Матвеев Ю.Н. из Кемеровской обл. просит 
откликнуться тех, кто может что-то подсказать по этой проблеме. Он также был бы рад 
познакомиться с целью переписки с "синклеристами", любящими заниматься доработками 
своих машин. 


652692, Кемеровская обл. , Гурьевский р-н, с. Горскино, Матвееву Ю.Н. 
В заключение передаем уважаемому корреспонденту пламенный привет от редактора 
раздела "К.Н." Матвеева Ю.А. 


Как добро и зло, как плюс и минус не могут существовать друг без друга, так не могут 
существовать отдельно друг от друга вопросы защиты и взлома программ. Ситуация 
складывается примерно так. Появляются новые разновидности защиты, существующие 
какое-то время, затем они раскалываются, появляется литература на тему о защите и ее 
снятии. Новые варианты защиты разрабатываются уже на основе систематизированного 
материала по снятию защиты. Появляются новые, более изощренные способы взлома и 
процесс продолжается дальше, замыкая очередной виток эволюционной спирали. Кто 
сделает следующий ход в этой бесконечной игре? 

Мы уже печатали материалы по защите программ, хорошо осознавая тот факт, что 
этим материалом пользуются как те, кто защищает свои программы, так и те, кто их после 
этого взламывает. Сегодня мы предлагаем материал, присланный Григорием Борисовичем 
Лупповым из города Кирова. На наш взгляд им как раз могут результативно воспользоваться 
разработчики защиты, в то же время для "взломщика" - здесь всего лишь общие фразы. 


Вот что пишет наш корреспондент: "Я в общем-то серьезно “Спектрумом" не 
занимаюсь - больше спец по "Вектору 06Ц". Однако имею "Пентагон 48К" и с удовольствием 
читаю "7Х-РЕВЮ", когда удается выпросить его у знакомых "спектрумовщиков". В номере 1- 
2 за 1992 г. увидел статью по защите, а защита программ - дело одинаково актуальное для 
всех бытовых персональных ЭВМ в конфигурации с магнитофоном. Хочу предложить 
Вашему вниманию свой взгляд на этот вопрос. 

В ходе долгих размышлений и поисков вариантов защиты программ для "Вектора", я 
пришел к выводу, что действительно, для магнитофонных версий ПЭВМ надежной защиты 
нет! Все способы защиты, которые существуют на "Спектруме", это своего рода искусные, 
красивые трюки авторов, крайне недолговечные. Эти трюки в целом проблемы не решают. 
Внешне это выглядит так: автор, петляя и изворачиваясь, как заяц-русак, старается сбить со 
следа волка-взломщика. Результат один - заяц погибает. 

Нужно применять другой подход. Защита должна быть простая, относительно 
несложно ставиться, но самое главное - она должна быть трудоемкой для снятия и легко 
модифицируемой (на случай, если одну модификацию сняли). 

Предлагаю классическую схему: основная программа в своем формате (отличном от 
стандартного), впереди идет закодированный загрузчик с декодировщиком в формате 
"Спектрума" и не обязательно с автозапуском. 

Слабость схемы очевидна - декодер всегда можно просмотреть и разобраться в 
принципе его работы. Поэтому процесс декодирования должен включать в себя несколько 
основных положении. 

1. Декодирование с использованием всего адресного пространства компьютера. 

2. Декодирование с подвязкой по времени. 

3. Перевод на декодированный загрузчик должен быть неочевидным (чтобы нельзя 
было вставить переход на взламывающую подпрограмму после декодировки), он должен 
быть включен в закодированный текст и декодироваться последним, то есть декодирование 
идет от старших адресов к младшим. 

4. При декодировании используются псевдослучайные числа. В начале работы 
декодер забивает все свободное пространство ОЗУ (и видео-ОЗУ в том числе) 
псевдослучайными числами. Генератор таких чисел должен быть: 

а) последовательным - это значит, что п-ое число можно получить только после 
получения всех предыдущих чисел; 

6) параметрическим - это значит, что получаемая последовательность будет зависеть 
от параметров генератора, то есть генератор легко перенастраивается. 

Числа в память должны заноситься не подряд, а либо через какое-то смещение (не 


равное 1) либо по случайным адресам (это лучше), например, первые два байта из 
генератора определяют адрес, третий байт - данные. Естественно декодер и загрузчик 
меняться не должны. 

Затем декодер начинает непосредственно свою работу. Декодирование идет сверху - 
вниз. Для получения очередного байта над ним нужно проделать ряд операций с 
использованием данных из ОЗУ, адресуемых несколькими маркерами. Маркер - циклически 
бегающий по адресу декодера; маркер - циклически бегающий по всему ОЗУ и ПЗУ (кроме 
декодера и загрузчика); случайный маркер - обеспечивающий определенную защиту от 
резидентных взломщиков. Время-зависимые данные (регистр НВ или ячейка-таймер) 
обеспечивают защиту от эмулирования декодера пиратским взломщиком. 

После декодирования управление передается на загрузчик. Так как содержимое 
памяти загрузчику известно, то он может загружать (декодировать) программу, используя 
содержимое памяти (однако снижается при этом технологичность и модифицируемость 
защиты). Загрузчик должен иметь гибкую структуру, чтобы загружаемая программа легко 
перехватывала управление в любое время. Лучше всего использовать блочный формат: вся 
программа разбивается на блоки по 32, 64 или 256 байтов; в начале каждого блока идет 
заголовок с адресом загрузки, в конце - байт-паритет КС. 

Программа может иметь и внутреннюю защиту, включающую проверку наличия в 
памяти меток о работе декодера и загрузчика и т. д. Это можно сделать на авторских 
программах, но не на чужих. 

Для большей модифицируемости можно применять плавающую константу чтения, 
которая либо изменяется по определенному алгоритму, либо содержится в таблице. 

Технологичность защиты обеспечивается тем, что автору нужно только раз получить 
закодированный особым образом загрузчик и использовать его затем на разных 
программах. Как только защиту вскроют (ничто не вечно под Луной), можно изменить 
параметры генератора случайных чисел и таблицу констант чтения. “Пирату" придется 
повторять весь трудоемкий процесс вскрытия. Трудоемкость определяется тем, что нужно 
эмулировать ОЗУ так, чтобы там был и набор псевдослучайных чисел и пират-эмулятор 
декодера. Это можно сделать с использованием дисковода или дополнительного ОЗУ (в 
128К версии), однако при этом будут изменяться время-зависимые данные и процесс 
декодировки нарушится. Если программа рассчитана на версию компьютера с музыкальным 
процессором, то последний можно использовать в качестве генератора время-зависимых 
данных. 

Не могу ничего посоветовать относительно борьбы с "МАС!С", т.к. не знаю тонкостей 
работы в этом режиме. Однако многие программы после обработки кнопкой "МАС!С" не 
работают, значит придумать что-то можно". 

Материал этот чисто теоретический, у многих может вызвать вопрос типа: "Это все 
складно звучит, но как же все это практически реализовать? Где конкретные примеры, 
демонстрирующие изложенные принципы?" Примеров действительно нет, так как любой 
практический пример приведет к снижению во много раз долговечности защиты, сведя на 
нет все усилия автора программы. Хорошая теория - это уже больше половины дела. А как 
это конкретно воплотить в жизнь - как говорится, думайте сами, решайте сами... 

ИФК: Но Григорий Борисович, видимо предвидя подобные вопросы, все же 
продолжает письмо конкретным примером, предлагая защитный трюк, связанный с блоками 
без заголовка. 

КОРР... Копиры определяют конец такого блока, если при выходе из подпрограммы 
ГОАБ_ВУТЕ$ установлен флаг 7. Подпрограмма загрузки бита имеет вид: 


05ЕЗ САЕЕ #05Е7 
05Еб ВЕТ МС 

05Е7 [В А, #16 
05Е9 ОЕС А 

О5ЕА УН №, #05Е9 
О5ЕС АМО А 

О5ЕБ Т№С В 

О5ЕЕ ВЕТ 


05Е8 УВ 7, #О5ЕД 


Если долго не появляется смена уровней (фронт сигнала), то подпрограмма досрочно 
возвращает управление. Такая ситуация возникает как раз при загрузке файлов без 
заголовка, если задана фиктивная (большая) длина. Трюк заключается в том, чтобы 
выгружать такой блок как можно более длинным. То есть сначала мы рассчитываем байт- 
паритет (КС), идущий в конце каждого блока, и записываем его в конец файла в виде 
данных, а выгружаем файл с максимальной длиной. При загрузке все будет нормально, так 
как мы знаем реальную длину блока и загрузим его без проблем. У тех же утилит, которые не 
знают реальную длину (программы-копировщики), возникнут проблемы со свободной 
памятью. Конечно, можно обрезать такой файл, однако нет гарантии, что обрезали только 
ненужные данные, или что загрузчик не проверяет целостность файла. 

ИФК: Но и на этом письмо Григория Борисовича не заканчивается. Он предлагает 
читателям еще несколько слов насчет формата записи байта на магнитофон. 

Он пишет: "В "Векторе" используется следующий формат: 1 заменяется на 01, а0 - на 
10 (так называемый каскадный код). При этом длина битов одинаковая, кроме того, не надо 
так точно выдерживать междубитовую и междубайтовую длину. Я уже пробовал эмулировать 
такой формат на "Спектруме". Результаты - положительные. Они хороши еще и тем, что на 
"Спектруме" можно при этом формате достичь в 2-3 раза большей скорости записи, по 
сравнению со стандартной, без каких-либо особых проблем (нужен только загрузчик). Это 
готовый турбо-формат, причем с изменяемой константой записи, то есть Вы можете 
регулировать ее в широких пределах. Константа чтения автоматически определяется при 
загрузке. Для защиты от помех используется дублирование. Каждый блок (по 256 байт) 
задублирован. И помехоустойчивость можно улучшить, если дублировать не отдельный 
блок, как сейчас (по принципу: блок 1, дубль 1, блок 2, дубль 2, ...), авсю программу (блок 1, 
блок 2, блок п, дубль 1, дубль 2, ... дубль п). Кроме того, возможно сделать (а на ВЕКТОРЕ 
уже сделано), что сбой в каком-то блоке не вызывает сброс всей программы (на 
"Спектруме" одна помеха вызывает сбой всего файла), так как программа разбита на 
мелкие блоки (как отсеки в подводной лодке). Вы можете остановить магнитофон, отмотать 
чуть назад и повторно загрузить сбойное место. Процесс загрузки отображается на экране в 
виде карты загрузки. Очень наглядно видно, где произошел сбой. Кроме того, есть 
возможность, пожертвовав сбойным участком в 32 байта, загрузить оставшуюся 
информацию. 

На "Векторе" загрузчик занимает 256*2 байт, на "Спектруме" его можно сделать 
короче". 


ИФК: Если у читателей есть интерес к тому, что говорилось об этом формате, то 
Григорий Борисович предлагает выслать текст загрузчика и текст подпрограммы записи в 
таком формате на магнитофон. 

Уважаемый Григорий Борисович! Мы искренне благодарим Вас за предоставленный 
материал. Думаем, что это мнение разделят наши читатели. 


ПРОФЕССИОНАЛЬНЫЙ ПОДХОД 


(С) Збитнев В. А., 1992, 1993. (г. Новосибирск) 


Применение статического генератора случайных чисел на примере 
программы "ЕШТЕ" 


Вероятно, уже все знают о том, что такое АМО. Во многих игровых и учебных 
программах этот оператор используется для того, чтобы поведение компьютера в 
некоторых ситуациях было непредсказуемым. Эту роль прекрасно исполняет генератор 
случайных чисел на 2Х-ЗРЕСТВУМе. Он относится к типу динамических, то есть таких, 
которые изменяют свое состояние независимо от того, когда вызывается этот генератор. 
Свое значение "спектрумовский" ВМО вычисляет, используя переменную ЗЕЕР (23670 ОЕС), 
которая изменяется с течением времени. 

Но так бывает не во всех компьютерах. Многие, наверное, знают работу ВМО на других 
версиях Бейсика для компьютеров типа "Ямаха" (М$Х), 1ВМ. Сколько бы раз Вы не вызывали 
бы АМО в своей программе (например для рисования звездного неба), он выдает одни и те 
же числа после команды РУМ, РАМРОМИЕ (в случае рисования звездного неба одна и та же 
картина будет на экране, если Вы остановите программу и снова запустите ее через ВУМ). 

Такой вид ВМ№О-генератора называется статическим. Он плох для непредсказуемых 
действий, но он прекрасно может работать в качестве хранилища огромного объёма данных, 
не требующих в памяти места. Но самое главное - эта информация будет постоянной, 
сколько бы раз эти данные не были бы затребованы. Простейший пример такого ВМО - 
генератора на ассемблере 


ВМО: (О А, (В1) 
ЕО О, А 
ЕО А, (82) 
ЕО (ВТ), А 
00 А, О 
ЕО О, А 
ЕО А, (83) 
ЕО (В2), А 
Аб А, О 
ВЕСА 
ЕО (НЗ), А 
ВЕТ 


АВ1, В2, ВЗ - переменные 


В регистре А будет содержаться случайное число (0-255). Но подобный генератор 
случайных чисел все время будет генерировать очередные случайные числа. Теперь 
создадим программу, подобную РАМРОМИУЕ в Бейсике. 


ВАМО: ЕО А, 5 
ЕО (ВТ), А 
ЕО А, 90 
ЕО (В2), А 
ЕО А, 37 
ЕО (#3), А 
ВЕТ 


Теперь, после вызова подпрограммы ВАМО некий указатель встаёт на начало некой 
таблицы, в которой хранится бесконечное количество байтов, которые и извлекаются из неё 


подпрограммой ВМО. Где это можно использовать? К примеру, в хорошо известной игре 
"ЖИЗНЬ" (“"МЕЕ") нужна матрица со случайно расположенными в ней клетками. Вводить 
через ВАТА весь массив неудобно, медленно и не практично. Если заполнять массив через 
обыкновенный ВМО, то возникает проблема с тем, как снова воспроизвести картину, если 
это понадобится. Опять прибегаем к ПАТА. Но есть более практичный способ: задание 
массива через статический ВМО, который будет выдавать те же самые значения, что и в 
первый раз, стоит только вызвать ВАМО. 

В игровых программах с большим количеством комнат таким путем можно запоминать 
все комнаты, как комбинацию трех (или другого числа байтов), в данном случае - 5, 90, 37. 
Стоит их только изменить и Вы имеете опять новую комнату. Программа "Бетоп5" 
использует как раз такой способ, она чем-то напоминает "ЖИЗНЬ", но выглядит в 7 раз 
красивее и эффектнее. Попробуйте, не пожалеете! 


Программа 1 Ветоп$ 


оне 30000 
СА: ВАМО ‚ Сброс генератора случайных чисел в исходное положение 
СА ВМО5С ‚ Заполнение экрана атрибутами через ВМО 
МХТРО ЕО ТХ, 22528 ‚ Старый массив 
ЕО НЕ, 31000 ‚Новый массив 
ЕО ВС, 768 ; 768 байтов - размер области экранных атрибутов 
[00$ [О А, (НЕ 
Тм А 
АМО 7 
СР ТХ-1 ‚ Если слева, справа, сверху или снизу может кто-то 
УР 2, ЗЕАТ ‚ “съесть” этот атрибут, то пусть “съедает”. 
СР ТХ-1 
УР 2, ЗЕАТ 
СР [Х+32) 
УР 7, ЗЕАТ 
СР [Х-32) 
УР 2, ЗЕАТ 
ЕАТЕВ ТАС НЕ ‚ Продолжить обработку массива 
Тм ТХ 
ОЕ ВС 
ЕО А, В 
[0 С 
УР №, [00К$ 
САЕЕ СОРУ 
ВЕ 
ЗЕАТ ЕО (НЕ), А ‚ "Съедаем” текущий атрибут 
УИ ЕАТЕВ 
СОРУ НАЕТ 
ЕО НЕ, 31000 ‚ Копирование нового массива в старый 
ЕО ОЕ, 22528 
ЕО ВС, 768 
[ОТА 
ВЕ 
Вм0$С [О НЕ, 31000 ‚ Заполняем новый массив байтами с числовым значением 
[О ВС, 768 ‚от 0 до 7 
РТ СА ВМО1 
АМО 7 
ЕО (НЕ), А 
ТМ НЕ 
ОЕ ВС 
ЕО А, В 
ОН С 
УР №, ЕТЕЕ 
СА: СОРУ ‚ Копирование массива в старый массив 


ВАМО [О А, 5 .5, 90, 37 - байты, означающие параметры экрана 


ЕО (ВТ), А 
ЕО А, 90 
ЕО (В2), А 
ЕО А, 37 
ЕО (83), А 
ЕО НЕ, 16384 
ЕО ОЕ, 16385 
О ВС, 6144 
ЕО (НЕ), 255 
[ОТВ 
ВЕ 
ВМО1 ЕО А, (ВТ) ‚ Генератор случайных чисел 
ЕО 0, А 
ЕО А, (2) 
ЕО (ВТ), А 
А00 А, 
ЕО 0, А 
ЕО А, (83) 
ЕО (В2), А 
А00 А, 
ВЕСА 
ЕО (83), А 
ВЕТ 
В1 ОБЕЕВ 0 ‚Исходные значения параметров 
В2 ВЕРВ 0 
ВЗ БЕРВ 0 
Следующая область применения - формирование статичной (неменяющейся) 


информации. Возьмем к примеру игру “ЕМТЕ". Откуда компьютер с таким небольшим 
объемом памяти берет названия и координаты всех 256 звезд, в каждой из восьми галактик, 
даещё и неизвестно сколько всего этих галактик. Где хранятся данные о ценах на каждой из 
планет, её техническом уровне, общественном строе и населении. 

Разумеется, это работа статического ВМО. Если Вы наберете программу 2 на 
Ассемблере или 2.1 на БЕЙСИКе, то сможете получить данные о всех названиях планет и их 
координатах. Остальная информация каким-то образом хранится в 6 основных байтах и 
может быть образована одним из 4 АМО, вызываемых последовательно для каждой звезды. 
Может быть, удастся расшифровать и остальные данные. 

Итак, статический АМО может хранить в себе информацию. Можно, к примеру, 
сделать слоги русскими, задействовать остальные байты для русских имен, для пола, 
возраста, адреса и пожалуйста: у Вас есть картотека на 10000 человек, работающих на 
космическом корабле. Статический ВМО может быть применим и для динамической 
информации. Примером может служить игра ЗЕМТИМЕТ, в которой все ландшафты имеют 
свой номер, а задание их в памяти невозможно - слишком расточительно. Но в процессе 
игры Вы можете некоторым образом изменять эту информацию уже в матрице, созданной 
этим АМО. 


Программа 2.1 
Заполняет массив данными о планете, начиная с адреса 40000 в следующем 


формате: 
| Имя звезды | Х [| У | 
| 8 байтов 116.1|16.| = 10 байтов на планету 
ОВе 30000 
САН НАМО 
ЕВ В, 0 ‚256 звёзд 
ОТАН$ РУЗН ВС 


САЕЕ  ГОМАМЕ ‚Считать имя в МАМЕ 


ЕОМАМЕ 


СЕЕАВ 


ЕО$ЕВ 


ЗА\УРЗ 
ВМО2 


ЗА\ 


ЕММ 


НЕ, МАМЕ 
(Р0$), НЕ 


г - 


п И ЕЕ СЕ Г 
Г. 
= 


Е ЕЕ Г Ге 


ее 


аЗь ПЕ ЗЫ зи, ЗЕЯ аль ра ИЗ Е Па А Е Ор НЫЕ ева. А НЕ об 
ого г мг иго пг" © т 


НЕ, МАМЕ 
ОЕ, (МАЗ$\) 
ВС, 8 


А, (01) 


> 


127 


‚ Записать имя из МАМЕ в массив, на который 
‚; указывает МАЗ$\ 


‚Позиция в имени указывается переменной Р0$ 


; Очистили 9 байтов 
‚Имя будет равно 8 символам 


‚ Запишем координату У 


‚ Координата Х звезды 
‚Условие, при котором 6-ой бит указывает на то, 
‚В слове нет последнего слога 


‚Три слога 


‚Если нет последнего слога, то уход на холостой ВМО 


‚Условие отсутствия слога: 
‚номер слога = 0, т.е. слог “АЁ” - невозможен 


‚Номер слогах2 


‚Находим позицию слога в 5005 
 Считываем первый символ слога 


‚ Записываем первый символ по адресу Р0$ 
‚ Следующий символ слога 


‚Если символ равен “?”, то не записывать 
‚ урезанный слог 


‚ Записываем 2-й символ слога 


Сохраняем позицию 
‚Сама процедура ВМО 


; 00<---02<---04<---00+02+04 


‚ Записываем имя в массив 


Считываем У 
‚ Преобразуем в нормальный вид 


АМОВАТ 


ОЕ), А ‚ Записываем в массив 


(03) ‚ Считываем Х и записываем в массив 


АЗ), БЕ ;Запоминаем позицию в массиве 


25 
| 


НЕ, ВМОБАТ ‚Копируем данные о галактике в массив ВМО 


| 
Е А 

[©5) 

(>) 

(Фр) 


— 


‚ Переменные 


“АСЕЕХЕСЕЙА" 
“СЕВТ$005Е$” 
“АКМАТМОТВЕ”" 
`А?ЕВАТЕМВЕ”" 
“ВАГАУЕТТЕО” 
“ОВОЦАМТЕТ$” 


с (7 С) С С С) С С Ср С С С) С С) 


74 ‚ 61...66 байты в отгружаемом блоке состояния ЕЁТТЕ 
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ГТУ ГЕ ГЕ ГЕ Г Г 
И О ОИ ОИ ВОИ 
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Программа 2.1 
Печать имён планет всех галактик ЕПТЕ. 


РАРЕВ 0: ТМК 6: ВОВОЕН 0 

СЕ$: РАТМТ “ЕЁЕТТЕ ЗРАСЕ”`"1-5ТАА МАМЕЗ” '"2-РЕОТ$ ОЕ $ТАВ$” 
ЕТ К$=ТМКЕУ$: ТЕ К=”1" ТНЕМ 60 ТО 60 

ТЕ К$="2” ТНЕМ 60 ТО 200 

60 то 30 


г 


Подпрограмма вывода названий. 


г 


ЕТ п=0: @0 50В 1070: @0 508 1010: ВЕМ установка генератора случайных чисел в исходное 
положение и установка стринга п$, содержащего слоги всех названий планет. 


(15: РАТМТ ТМК 5; “МО МАМЕ” 

РОН Т=1 ТО 20 

ГЕТ г=90-ТМТ (90/256)*256 

60 ЗВ 2000: ВЕМ В строках 100..120 и 150 содержатся четыре вызова генератора для одной 
звезды. 

60 $50В 2000 

60 $50В 2000 


ТЕ г>127 ТНЕМ 1ЕТ г=г-128 

ТЕ г-64<0 ТНЕМ 60 50В 1030: ВЕМ Если 6-ой бит равен нулю, то производится холостой 
вызов А№О и слово становится короче на один слог. 

О 508 2000 
ЕТ п=п+1: ТР п=256 ТНЕМ 5ТОР: ВЕМ Если число звёзд равно 256, то конец работы. 
ЕХТ Г: ВЕЕР .1, 30: РАЦЗЕ 0: @0 ТО 70: ВЕМ Формируется следующее имя 


=г > 


Вывод позиций звёзд 


(15: РЕОТ 0,23: ОНАМ 255,0: БВАМ 0, 129 
ОВАМ -255,0: ОВАМ 0, 129 

60 ЗВ 1010 

РОВ Т=0 ТО 256 

ГЕТ у=ТМТ (90/256): 1ЕТ У=ТМТ (у/2)+24 
ГЕТ х=ТМТ (92/256) 

РЕОТ О\УЕН 1:х, 175-у: НЕМ Вывод звезды 

60 ЗВ 1030: @0 508 1030 

60 50В 1030: @0 508 1030 

МЕХТ Е. ТОР 


ВЕМ «Подпрограмма инициализации статического генератора» 
ВЕСТОВЕ: НЕА 90, 92, 94: ВЕТОВМ 


ВЕМ »Статический генератор случайных чисел* 

-ЕТ $=90+92: ТЕ $>65535 ТНЕМ 1ЕТ $=$-65536 

ГЕТ $=$+04: ТЕ $>65535 ТНЕМ 1ЕТ $=$-65536: ВЕМ $=90+92+494 (двухбайтное логическое 
сложение) 

ЕЕТ 90=492: ЕТ 92=94 

ГЕТ 94=$.: ВЕТУВМ 


ВЕМ »*Генерация списка возможных слогов» 

[ЕТ п$=”АГЕЕХЕСЕХАСЕВТЗОИЗЕЗАНМАТМОТВЕА? " 
[ЕТ п$=01$+”ЕВАТЕМВЕНАЕ АУЕТТЕВОВОЦАМТЕТЗЬНТОМ" 
ВЕТИАМ 


ВЕМ «Выбор случайного слога» 

ГЕТ В=ТМТ (94/256): 1ЕТ П=В-ТМТ (1/32)*32 
ТЕ 1=0 ТНЕМ 60 5УВ 1030: ВЕТУВМ 

ГЕТ Н=Н»2: РАТМТ п$(п+1) 

ГЕТ Н=Н+1 
ТЕ п$(1+1)="?” ТНЕМ 60 $08 1030: ВЕТОВМ 
РАТМТ п$(п+1): 60 50В 1030: ВЕТИАМ 


ВАТА 74+90*256 

ВАТА 72+2*256 

ВАТА 83+183»256 

ВЕМ этот блок данных соответствует галактике с параметрами 74, 90, 72, 2, 83, 183 
(байты 61...66 в блоке состояния программы ЕЁТТЕ) 


ВОЗВРАЩАЯСЬ К НАПЕЧАТАННОМУ 


В прошлом выпуске "Форума" наши читатели обращались за помощью по поводу 
программ "$\м/ога$ & Зогсегу" и "Бип Багасй". Пока никто не откликнулся на эти письма, мы 
на скорую руку пробежались по своим архивам, выудили кое-что из импортных журналов и 
составили нечто вроде эссе из разных источников. Это, конечно, капля в море, на серьезный 
поиск пока не было времени, в дальнейшем может быть дадим больше информации. 

Мы настолько рады, что начинает разгораться интерес к жанру АБ\УЕМТИВЕ, что 
спешим раздуть первую искру, надеясь, что скоро вспыхнет и костер. 


$м/ога$ & Зогсегу. 
«>» фе «;— 


Вот несколько подсказок по прохождению первого квадранта (Оцаагап: 1). 

Когда Вы проходите тренировку, то проведите один день с мастером Уата, шесть 
дней с мастером Вод и 7 дней с Мерлоком (Мепоск). Это даст Вам 22 пункта магии. 

Обязательно съешьте все пирожки (р!е$), сколько сможете себе позволить (до 5 штук) 
и во время своего путешествия прежде чем исследовать что-либо (Ехрюоге) включайте 
режим АКаск на случай неожиданного нападения. 

В первом квадранте самым первым делом пойдите в комнату 6 и возьмите там меч 
($м/ога). Комнаты мы нумеруем слева направо таким образом, что левая верхняя комната 
имеет номер 1. Меч позволит Вам наносить удары (режим АТТАСК НАСК). Все имущество, 
какое соберете, относите в эту комнату. Капкан (Воот Тгар) здесь лучше не разряжать 
(Ч!загт), т.к. после этого на Вас нападают 5...6 монстров. 

Мы приносим извинения за возможную неадекватность перевода, т.к. эту программу, 
мы сами не пускали, а в английском языке такие слова, как Воот Тгар могут иметь много 
разных значений и при переводе адекватное выбирается только по смыслу, другого пути 
нет. 

После комнаты 6 идите в комнату 18 и там разрядите (45апт) капкан (гар). Тогда Вы 
сможете достать ЗаН (волшебную палочку) из мешка (5аскК). Это даст Вам дополнительно 16 
пунктов магии и, кроме того, два новых заклятья, но работают они только в том случае, если 
Ваши магические способности (тад!с $К!!) выше, чем боевые (Яап па $КИ|). 

Владеть этой волшебной палочкой хорошо, но дорого, т.к. при этом быстро 
расходуется много магической энергии. Есть оригинальный выход - ее надо проглотить 
(еа’. Тогда и энергия не расходуется, т.к. ее у Вас с собой больше нет, и магические 
способности сохраняются, ведь она всегда при Вас. 

Соберите все мечи, которые Вам встретятся, и отнесите их в комнату 6. В комнате 15 
есть Кольцо Прыгучести (Ата о уитрта), а ключ М1 (Кеу 1) Вы найдете в комнате 14. Вам 
следует также взять Забатюп в комнате 22 (что это такое мы не знаем, может быть какое-то 
оружие. В английском языке с давних пор принято давать имена собственные оружию. 
Вспомните меч Эскалибур короля Артура). Если у Вас к этому временя еще нет магического 
меча (Мадгс $\мога), убедитесь, что Вы выбрали АТТАСК РОН А ОЕРЕМСЕ, иначе с монстром, 
который там обитает, Вам не справиться, его не берет заклятье НВЕВОИТ, не берет его и 
обычное оружие. Выход из этого квадранта находится в комнате 4. 


Теперь "Вип Вагасй". 

В этой игре полно потайных дверей. Их можно обнаружить тщательной проверкой 
стен. Обычно на наличие такой двери указывает факел на стене. 

Первым делом Вам надо приобрести книгу (Боок) в магазине (5Пор) на улице Кта 
Зее. Ее надо отдать леди Мгор (еду МпПог), а она Вам даст взамен другую. С ее помощью 
откроется потайная дверь на улице Муге Зтеет. Внимательно поищите здесь. Если Вам 
удастся найти щит ($те!а), то его можно посвятить (оНег) богине Дану (Содае$$ Вапи). 

На Древнем Холме (О!а НШ) Вы найдете лиру (Гуге). С ней идите к Дейну (Вап), 
которой обитает за потайной дверью на улице Рагк Во\м.. Он даст Вам взамен за эту лиру 
щит, посвященный богу Мидиру (Мта!’). Отнесите его богу и он даст Вам ключ. 

В этой игре можно неплохо зарабатывать. Например так. Возьмите золото у Ассэйера 
(Аззауег) на улице \е{ М/ау и продайте его брокерам на улице Сгоз$$ Згее. Существует еще 
очень много разных способов, но этот наипростейший. Но опасайтесь воров, они часто 
похищают то, на чем находится Ваша "звезда". Поэтому никогда не помещайте ее на 
предмет, которым дорожите, например держите ее на деньгах (114!), которые сравнительно 
легко восстанавливаются. 

В игре множество головоломок. В частности, многие встают в тупик перед вопросом, 
как взять жемчужину (Реай) из комнаты Згопд Воот, что на северной стене и куда потратить 
свои деньги. 

Обе проблемы можно решить одновременно. Набрав 10 000 а, отнесите деньги в 
гильдию воров на улице ЗИмег Згее. Они продадут Вам лицензию (ШМсепсе), с помощью 
которой Вы и похитите эту жемчужину. 

А вот пример еще более крутой головоломки. Чтобы войти в замок, Вам необходим 
свиток (Зсгой от Зсаг) и специальный ключ (В-Кеу). В замок Вы войдете, но первая же дверь 
не откроется никакими стараниями. Вам надо иметь при себе еще какой-нибудь предмет 
(любой) и пройти с ними в комнату, где есть три вращающихся колеса - это система 
кодового замка. Ваша задача выложить предметы на стол (по одному) так, чтобы колеса 
остановились в определенной комбинации. Код этой комбинации - ОРЕ, хотя чтобы его 
получить, надо бы решить головоломку, выцарапанную на столе. После того, как колеса 
остановятся, надо взять свиток со стола и идти в открывшуюся дверь. 

И после этого Вас еще будет ожидать очень много разных загадок и непонятных 
подсказок. Так, например, 2**25 - означает 2 в двадцать пятой степени. Если с помощью 
калькулятора Вы найдете, чему равно это число, то результат поможет выработать систему, 
с помощью которой можно будет пройти через длинные ряды дверей в замке. 

В общем, друзья, это серьезная игра. Не удивляйтесь, если Вам придется поблуждать 
по улицам старинного города год - полтора, не меньше. 


И, в заключение, обращение ко всем! В той части, которая касается адвентюрных 
программ, у нас большие архивы и возможности. Если Вы где-то "застряли" и Вам нужна 
оперативная помощь, пишите, не стесняйтесь. Может быть мы сами дадим полезный совет, 
может быть кто-то из наших читателей пройдет Вашим путем и решит проблему, но ведь под 
лежачий камень вода не потечет, давайте вместе решать эти задачи. 

И предложение к тем, кто досконально разобрался с какими-либо адвентюрами. Если 
Вы можете стать внештатными консультантами, сообщайте нам, мы дадим Ваш адрес и 
напишем, по каким программам к Вам можно обращаться за помощью. Если будет 
достаточное количество писем, этот раздел может стать и постоянным. 


НЕА\/У ОМ ТНЕ МАС!С 


(с) Троеглазовы П. и Г. 1993 
Хабаровский край, с. Гайтер. 


Здравствуйте! 


В № за 1992 год Вы давали описание программы "НЕА\У ОМ ТНЕ МАС!С". Каракашев 
А.Г. неплохо поработал с программой, но раскрывая листинг программы, он не догадался 
раскрыть и проанализировать отгружаемый блок, а именно здесь можно было найти путь к 
завершению программы или, по крайней мере, приблизиться вплотную к решению главной 
задачи - найти выход из замка. 

Сначала о неточностях в описании. Дух в котле не АЦ, а А!. Магических званий - 9, ноо 
них позже. В программе 188 активных предметов. Корреспондент пишет, что побывал во 
всех комнатах. Это не так. 

Составив карту, мы заметили, что на первом этаже угловые комнаты справа не имеют 
входов. Ясно, что одна из них ГУВМАСЕ. Мы быстро выяснили, что эта "пекарня" находится в 
верхнем правом углу, под лестницей. А вот в комнату рядом с Циклопом можно попасть, 
видимо, только при определенных условиях. Может, нужно разрушить стену или здесь 
поможет пресловутый ЕРЕЗТОМЕ? Во всяком случае, нам удалось побывать в этой комнате 
не с игры, а искусственно задав соответствующие координаты Аксилу. В комнате - 
абсолютная темнота. Ее можно осветить на долю секунды, использовав любое из заклятий и 
при вспышке можно увидеть 2 предмета - прах от убитого монстра и книгу Гримуар. Выход 
из комнаты один - "\М" и он выводит Вас на 4-й этаж в район РП (?). Комната полна 
странностей, например, все вызванные предметы исчезают из нее, как в любой другой 
комнате. Апекс, вызванный ранее, не уходит, сколько бы Вы ему не говорили "АРЕХ, 
ТНАМК5", он отвечает - "САО ТО НЕЁЕР" и остается в комнате. Мы можем поднять Гримузр, у 
нас будет два Гримуара, а на том же месте будет стоять еще один, поднимем его у нас три 
книги, а на полу еще одна, - и так без конца. Каждый из поднятых Гримуаров содержит 
столько же заклинаний, сколько у Вас было до появления в этой комнате. Лишние предметы 
выкладываются и стоят во всех углах комнаты, кроме ее центра, где лежит прах. Если 
выложить что-либо на прах, предмет исчезает. Заклятье ВЕАЗТ в этой комнате не действует 
на предметы. Выйдя из этой комнаты, Аксил уже не может вернуться назад - позади стена. 


Всего комнат 256. Счет ведется с первого этажа, слева направо - левая верхняя - М1, 
РОВМАСЕ - №8 ит.д. Счет комнат правого нижнего угла замка сдвинут на этаж вверх - 

2 этаж - 64, 

3 этаж - 128, 

4 этаж - 192, 

1 этаж - 0. 

Видимо, в нулевую комнату можно попытаться войти с помощью заклинаний или 
каких-либо других действий из комнаты №255 (или №63?). 


Теперь об отгружаемом блоке. Рассказывать о каждом байте долго, а их 1342, но вот 
основные: 


Первые 27 байтов - сведений об Аксиле, их можно отгружать и загружать отдельно, 
используя опции главного меню 4и5. 

2-й байт - стойкость (ЗТАМИМА) З-й байт - ила магии (МАСС) 4-й байт - удача (СК) 
5-й байт - звание (СВАПЕ) В этом байт такое соответствие цифр: 

1 - МЕОРНУТЕ (новичок) 

2 - ГЕГАТОВН (соискатель) 

3 - ГРВАСТ!СО$ (практикант) 

4 - РНЕОЗОРНО$ (философ) 

5 - АВЕРТУ$ МИМОВ (младший эксперт) 

6 - АРЕРТУ$ МАДОВ (старший эксперт) 

7 - АВЕРТО$ ЕХЕРТ (высший эксперт) 

8 - МАС!5ТВА ТЕМРИ (магистр храма) 

9 - МАСО$ (маг, чародей) 


6-й байт - набранные очки (ро{5$) 

Далее идут пять блоков по 4 байта - предметы, которые находятся у Аксила. И 27-й 
байт - наличие заклинаний: 

224 - 1ММОКЕ, РАЕЕЙЕ, ВГАЗТ 

240 - 1ММУОКЕ, РАВЕЕЙЕ, ВТАЗТ, САЁ- 

248 - 1ММОКЕ, РАЕЕЙЕ, ВЬАЗТ, САЦ, ТВАМЗЕУЗЮМ 

94-й байт - комната, в которой находится Аксил. Например, 8 - РОАМАСЕ, 43 - ЗТИМО5$, 
61 - САМ, 108 - МЕН! (старт) ит.д. 


Блок байтов со 188 по 217 - монстры, постоянно обитающие в 30-ти комнатах, в эти 
комнаты не может заходить никто, кроме Аксила. Пока не будет убит монстр, в эту комнату 
нельзя вызывать никого, даже Апекса, иначе Аксил погибнет. Два монстра в экране - 
мгновенная смерть. Убив монстра, можно спокойно, не боясь, что кто-нибудь затопчет 
Аксила у входа, задать дальнейший маршрут или обдумать дальнейшие действия. В комнату 
не заходит никто даже после смерти монстра, но теперь сюда можно вызвать любого из 
обитателей замка. Пока монстры живы, соответствующие байты равны нулю. Смерть 
монстра обозначается номером комнаты, в которой он обитает, например: 

189-й байт - 150 (тролль) 

193-й байт - 138 (призрак) 

197 и байт - 18 (оборотень) 

200 и байт - 49 (вампир) 

205-й байт - 63 (циклоп) 

210 и байт - 82 (ленивец) 

217-й байт - 253 (медуза) ит.д. 

С 541-го до 1292-го идут 188 четырехкилобайтных блока - это "активные" предметы. 
Активными мы называем предметы, непосредственно участвующие в игре, их можно брать, 
переносить, в крайнем случае - осматривать и изучать или уносить. Пассивные - фон. Все 
активные предметы, как правило, участвуют в отгрузках. 

Из 4-х байтов, обозначающих какой-либо предмет, важны 2-Й и 4-Й: 2-й - комната, в 
которой находится предмет, 4-й - его координаты в комнате. 

В игре 19 монстров. Каракашев, видимо, забыл упомянуть об одном из них - это 
голова дракона "ВАВАК". Она не пропустит Вас, пока Вы не скажете - "ВАВАК, \М/АТЕВ". На 
все вопросы у "дракоши" один ответ, но вот на фразу - "ВАВАК, ОАВАСОМ" он ответил нам 
"Мне горячо?". "Ах, тебе горячо!!!" - подумали мы и предложили ему водички и ВАВАК 
открыл нам дорогу к последнему "танцевальному залу" в "ЫСНТСАТЕ". 

Апекс не то, чтобы "ходячая энциклопедия", но все-таки знает немало. У него в запасе 
около 40 вариантов ответов и, заметьте, в разных местах замка он может ответить по- 
разному на один и тот же вопрос. В некоторых случаях он прямо подсказывает, как вызвать 
птицу Феникс, как пройти воду или как пройти через пропасть. Подсказывает, как подобрать 
ключи к дверям, ведь над каждым ключом нарисован знак и на вопрос "АРЕХ, $!СМ", он 


отвечает - "Это звездный знак", ключей 12, знаков Зодиака тоже 12. Остается сравнить 
знаки, нарисованные в звездах над ключами с названиями комнат и станет ясно, каким 
ключом открывать какую дверь (смотри рис. 1). 


п -тмо 

5 -НОВМ$ 
х - АВВОМ/$ 
№ - ЗТВ!\6$ 


(1) - Близнецы (2) - Телец, 
(3) - Стрелец (4) - Скорпион 
ит.д. 


Рис.1 
Про знак с двумя кольцами Апекс говорит - "Это знак пошлины". К этим дверям не 
нужны ключи, просто нужно поставить на стол мешочек с золотом "ВАС". Про знак, у дверей 
с односторонним проходом, он говорит - "Знак - хода нет". 
Остальных обитателей замка он явно недолюбливает: 


ММ\УЕВМ и ТВОЦЕ - "Лучше их убить!" 
СУСЕОР$ - "Один глаз и полный идиот! " ит.п. 


Апекс, даже ничего не говоря, подсказывает слово ЗОРОМОНОЗ. Обратите внимание 
на его живот, видите знак? Теперь прикиньте его к надписи на стене... 


ЗАТОВ © 


АВЕРО 
ТЕМЕТ 
ОРЕВА 
ВОТА$ 


Рис.2 

А самое главное - он подсказывает, где искать выход - "АРЕХ, ЕХП", ответ - "РЕ 
ТОМВ$ АМО РАВАГП!$Е". Такие комнаты есть на 2-ом и 4-ом этажах - №65 и №242. 

Но нам все-таки кажется, что та самая странная "“темница" на первом этаже должна 
дать ключ к выходу на свободу, ведь попасть в нее еще пока не удавалось никому 
(естественным путем). 

У нас еще осталось 10 неиспользованных предметов. Каракашев пишет о 4-х, но 
кроме 3 костей (ВОМЕ) и одной "НВ" куда-то нужно пристроить "РООТ", "СЕАМОГАЕ" (в 
нулевой комнате), 2 оставшиеся сумочки с золотом (ВАС) и 2 золотых камня, похожих на 
ЗМАКЕ - "ВОСК". Камни тяжелые, когда Аксил их поднимает, он теряет 10 единиц энергии, 
но не вздыхает "ОН-Н-Н...", как если бы он брал отравленный предмет. 

Волчья лапа "РООТ" поднимает на несколько единиц цифру в графе "Удача". (Это же 
происходит, когда мы берем ЕЬАЗК). 

Может быть, какие-то из этих вещей нужно принести в комнату РЁЕ ТОМВ$ и тогда 
откроется вход в эту странную комнату с прахом в центре и бесконечным Гримуаром рядом 
с прахом, а уже потом идти в РАВАГЗЕ. Но для того, чтобы проверить эти догадки нужно 
еще найти или хотя бы узнать, что такое ЕАНЕЗТОМЕ, ведь он должен подсказать, как 


открыть дверь в ИСНТОСАТЕ. Тот путь, что подсказывает Каракашев А.Г., видимо 
неправильный, т.к. попав в комнату с рубином с помощью Астарота, разрушив дверь с 
помощью Асмодея, мы входим в дверь. Аксил исполняет танцевальный номер, но очки... 
убывают. Значит, недостаточно этого, чтобы найти вход - необходимо открыть эту 
последнюю дверь. 

У "темницы" есть еще одна особенность - принесенные с собой предметы можно 
множить до бесконечности (эффект Гримуара), нужно только поставить на пол необходимый 
предмет, затем поднять его и т.д. Мы только не проверили, что будет, если набрать этих 
"фантомов", войти в обычную комнату, выставить их, затем выйти из комнаты и снова войти 
- скорее всего они исчезнут - проверьте. 

Недостаточно ясна и роль ГОУВМАСЕ. Обычно туда забрасывают Аксила демоны, если 
он им надоест, отбирая у него все предметы и магию. Но... Возьмите с собой СТАЗР, другие 
необходимые предметы и попросите Астарота отправить Вас туда. СГАЗР предохранит 
Аксила от огня, он может ходить по комнате, исследовать ее, вызывать предметы и демонов 
и, если они будут недовольны, то дальше этой комнаты не бросят Аксила. Вот только 
загвоздка - как оттуда выбраться, может вызвать "фантом" ЗМ/МОВАО и снова использовать 
Астарота?... 

Да, кстати, нулевая комната приготовила для нас еще один сюрприз - если мы будем 
брать лежащий там Гримуар и снова ставить его, у нас будет накапливаться сила магии. 
Таким образом, ее можно довести до 99 единиц. 

В предыдущем описании был неправильно назван один из трех предметов, 
необходимых для вызова духа - А|!. Это - ЗКОЦ,, а не НЕАО. Оба черепа НЕАО непригодны к 
использованию. Только поняв, что на предметах, имеющих важное значение, как правило, 
есть какие-то знаки или цифры, нам удалось найти третий необходимый предмет для вызова 
А|. 

Каракашев пишет, что он набрал 99 единиц в графе "очки" и, мол, странно, что Аксил 
не получил свободы - игра то сделана! Дело в том, что очки начисляются не только за 
прохождение маршрута и выполнение необходимых условий. За каждого убитого монстра 
начисляются очки, например, за Тролля - 1, за Змея - 2, за Медузу - 8 и т.д. Чем сильнее 
противник, тем больше очков Вы набираете. Можно набрать 99 очков не выходя из какой- 
либо комнаты, где часто появляются монстры. Количество очков важно для применения 
ТАМЗРУ$ЗЮОМ. Если у Аксила кончается энергия, он может воспользоваться этим 
заклинанием и десять единиц перекочуют из графы "очки" в графу "стойкость". Вы можете 
повысить стойкость Аксила до 99-ти, но в этом случае у Вас может оказаться 0 очков. 
Поэтому пользуйтесь “ТВМЗРУЗЮМ" экономно, ведь для выхода на свободу Аксилу 
несомненно нужен полный комплект и выполненных действии и очков. 

В начале игры Вы можете изменить (перетасовать) цифры в графах "стойкость", 
"магия", “удача”. Лучший вариант, когда меньшая цифра в графе "стойкость", большая в 
"магии" и средняя в "удаче". Просто после старта нужно быстренько пробежать через 3 
комнаты и подкрепиться хлебом (10 единиц), а затем возвратиться к старту и взять Гримуар. 
После того, как Вы подберете недостающие заклинания САЦ и ТАМЗРУЗЮМ, Ваша сила 
магии повышается до 50 единиц и Вы будете уничтожать слабых и средних противников с 
первого удара. В этом случае Ваше путешествие значительно облегчается. Кроме этого, 
можно повысить силу магии, перенося с собой магические предметы - МАМТ!$, ЭМОРО, 
ЗМАКЕ ит.п. 

Мы подозреваем, что повысить звание выше РНШОЗОРНУ$ в этой программе 
невозможно, хотя искусственным путем (изменив 5-й байт в отгружаемом блоке) мы смогли 
их получить. Но, возможно, каким-то путем их можно получить в комнатах РШЕ СОНОБОМ, 
РЕЕ ТОМВ$, РАВАГЗЕ и в той же самой темнице на первом этаже, а уж звание Мага - 
только на выходе на свободу. Возможно... 

К тому же, в программе есть еще масса не используемых слов - зачем они? 


ВНОМЕЕ, В!ВО, САВУРТ, СНВОМА, СОРРЕВ, СОВАЕТ, ГОУМТАМ, 1Р$1$$1МУ$, МАСМАМ, 
МОМ$ЗТЕВ, МСКЕЁ, МЕААВУ, ОСВЕ, РАЗЗ\ММ/ОНР ит.д. 


ЧИТАТЕЛЬ ЧИТАТЕЛЮ 


Своими успехами в области программирования на Бейсике делится с нами т. Дронов 
из Читы. Его опыт пригодится начинающим программистам. 


"Высылаю Вам на суд свою первую программу и хочу сказать Вам большое спасибо за 
"7Х-РЕВЮ". Благодаря Вам я, изучив за месяц два годовых комплекта "7Х-РЕВЮ", узнал 
очень много хитростей и секретов Бейсика. Подтверждением этого является эта программа, 
написанная за один вечер. Я знаю, Бейсик - легкий язык, но без хорошей книги его не 
ПРОСТО освоить. А Ваша литература лучшая из всех, которую я видел. Информация 
излагается очень понятно и доступно. "Сейчас я, с помощью Вашей книги, приступаю к 
изучению Ассемблера. Надеюсь овладеть и этим языком, хотя он намного сложнее. 

Теперь несколько слов о программе. Это аналог широко известной настольной игры 
"Морской бой", в которую мы частенько играли в детстве. Маленькое отличие заключается в 
том, что в моей игре корабли можно располагать как угодно и где угодно в пределах своего 
квадрата. Так же делает и компьютер." 

ИФК: Спасибо за теплые слова. От себя хотим добавить несколько слов. Корабли в 
этой игре - только одноклеточные, их можно ставить и поодиночке, и вплотную друг к другу 
как угодно. После попадания корабль сразу же считается потопленным. Всего их 20 у Вас и 
столько же у компьютера. Посмотрите на листинг программы: действительно, это занятие на 
один вечер. Если организовать в программе ограничения на расположение кораблей, на их 
конфигурацию (одно- или многоклеточные и т.д.), программа получилась бы как минимум, 
раз в пять длиннее. Но можем Вас уверить, что набрав самостоятельно эту программу, Вы с 
не меньшим азартом будете вести сражения с компьютером. А может быть, вскоре у Вас 
появится желание внести в программу ограничения на конфигурацию и расположение 
кораблей - что же, пробуйте смело. Лучшее обучение программированию - это обучение "в 
бою". 

Автор предлагает русифицировать программу при помощи символов УО)С-графики. 
Однако, поскольку мы уже привыкли к постоянно используемому нами методу русификации, 
мы приводим, как обычно, вариант для загружаемого русско-латинского символьного 
набора. Думаем, что автор простит нам такое вторжение в его программу и еще несколько 
непринципиальных штрихов. Итак, предлагаем программу всем читателям. 
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Загрузка игры 

После загрузки первого блока Вам предложат ввести имя пилота и выбрать один из 
четырех самолетов: 

ЗААВ \!ОСЕМ А} 37 - самолет совместного производства шведских и британских 
авиаконструкторов. 

Е-4 РНАМТОМ - ВВС США 

ТОАМАОО - Британские ВВС 

М!С-27 ("РЕОССЕЙВ") - советские ВВС. (Кстати, на рисунке изображен вовсе не М!С-27 
РЕОССЕРВ, а М!С-23 ЕЕОССЕВН - это я проверил в справочнике. Информация в программе 
также дана на М!О-23, ане на МЮ-27). 

Итак, на экране показан ЗААВ. Клавишами А‚О,О,Р можно перемещать курсор по 
пиктограммам. Клавиша ЗРАСЕ утверждает выбор. 


30 ПМЕО || ЗЕЗЕСТ : ПМЕО || ЗЕЗЕСТ 


30 ПМЕО | ЗЕЗЕСТ : ИМЕЙ | ЗЕЗЕСТ 


30 ИМЕЙ | ЗЕЗЕСТ 20 ИМЕЙ | ЗЕЗЕСТ 


30 ПМЕО | ЗЕЗЕСТ 20 ПМЕО | ЗЕЗЕСТ 


Пиктограммы "ВВЕРХ" и "ВНИЗ" - это просмотр самолетов. 

ЗО - это самолет в трехмерном виде. 

1МРО - информация об этом самолете. 

ЗЕЁЕСТ - выбор штурмовика. После нажатия ЗЕТЕСТ загружаются миссии, которые 
Вы можете выбрать. На экране появятся надписи: 

Егее ЕПо!{ - свободный полет 

Со\уен - военная миссия. 

Ниже размытым шрифтом написаны остальные военные миссии, которые Вы сможете 
выбрать только после выполнения предыдущей миссии. В каждой миссии по два задания. 

Сначала для ознакомления с аспектами полета следует выбрать Егее Ню: - 
появляется новое меню: 

Оп Випмгау - на взлетной полосе. 

А{ 30000 Н - на высоте 30000 футов. 

Ароуе Впасще - над мостом. 

Ипеа Ур - приземление. 

ЕМТЕА выход в предыдущее меню. 

Выберем Оп Випмау и загружаем собственно саму игру. Внимание! В зависимости от 
типа выбранного самолета, после загрузки этого блока нужно загрузить еще два маленьких 
блочка. Например: 

"ТОВМАОО" - игра запускается сразу без подзагрузки маленьких блоков. 

"ЗААВ" - первые два блока. 

"МО" - вторые два блока. 

"РАМТОМ" - третья пара блоков. 

После этого на экране появится вид из кабины самолета. 


Управление самолетом 

Клавиши: 

О,А - тангаж. 

О,Р - крен. 

\\ - торможение с помощью шасси. 

В - воздушные тормоза. 

САР$ ЗНИЕТ + 1...0 - изменение тяги двигателя (1 - наименьшая, 0 - наибольшая), при 
двукратном нажатии САР$ + 0 двигатели переходят в форсированный режим. 

ЕМТЕВР - производит переключение на один из трех видов вооружения. 


САММОМ - пушка; 

МА\ЕН СК - ракеты "воздух-земля" с наведением по лучу радара. 
ЗШОЕМЛМОЕН - ракеты "воздух-воздух" с инфракрасным наведением. 
Клавиша С убирает и выпускает шасси (только в воздухе). 


Приборная доска 

В центре - радар с цифрой, указывающей дальность его действия в милях. Эта цифра 
изменяется нажатием клавиши В. 

Так как в разных самолетах расположение остальных приборов разное, то описывать 
их расположение не буду, а назову только функции. 

Квадратик с надписью ПВ становится красным, если по Вам выпустили ракету (только в 
боевых миссиях). 

Прибор с буквой М в верхней части - компас. 

Прибор, показывающий тангаж и крен выглядит характерно для всех имитаторов. 

Столбик с буквой Т рядом - указатель тяги. 

Столбик с буквой Е - горючее. 

Также имеются окно вооружения, которое показывает, сколько и какого у Вас 
боезапаса осталось, и окно бортового компьютера, предупреждающего об опасности и 
других важных вещах. 

Прибор с надписью АЁЕТ - альтиметр (Ваша примерная высота). 

Прибор с цифрами 0, 1, 2, 3 -Ваша скорость в МАХ-ах. 

Ваши высота, скорость, а также направление показаны в центре основного экрана в 
точных цифрах. 

Основная прелесть этой игры, на мой взгляд - это возможность обозревать свой 
самолет во время игры с самых различных позиций. 

Итак, 

ЗУМВОЕ ЗН!ЕТ+1 - обзор из кабины самолета. 

$5+2 и $$5-+3 - неизвестно зачем. 

55+4 - посмотреть на самолет с вышки, находящейся на ВПП. Скорее всего, Вы 
увидите просто точку в небе, но клавишами К и \ можно увеличить или уменьшить 
изображение. 

$$+5 - посмотреть назад. 

$$5+6 - посмотреть влево. 

$$+7 - посмотреть вправо. 

$$5+8 - посмотреть сверху, работают клавиши Ки. 

$$5+9 - посмотреть сзади, клавиши К и / функционируют. 

$5+0 - посмотреть на самолет с южной стороны, то есть с той стороны, в которую он 
направлен в начале игры. Это полезно, чтобы оценить Ваше положение относительно ВПП. 
Этот режим позволяет кроме увеличения и уменьшения изображения, вращать изображение 
по горизонтали клавишами | и (Ц, атакже по вертикали, - ВиЕ. 


Полет 
Полет в принципе ничем не отличается от других имитаторов, но маневрирование, при 
взгляде со стороны, производит большое впечатление. 
Однако, наряду с достоинствами, есть несколько досадных недоработок, которые 


снижают впечатление, как об имитаторе. 

Так, например, даже на самой большой тяге можно лететь с выпущенными шасси и 
ничего плохого, кроме снижения скорости не случится. 

Самолет почему-то может садиться в любом месте, а не только на ВПП, поэтому 
посадка не представляет никакой сложности. Можно сесть где-то в районе ВПП, а потом 
подрулить к ней. 

Но самый, на мой взгляд, грубый просчет состоит в том, что можно рулить хвостовым 
оперением (клавиши 2 и Х) не только на маленькой скорости на ВПП, но и при скорости 1200 
миль/час в воздухе. Где это видано, чтобы самолет разворачивался в воздухе без крена?! 
Такого не выдержит никакое хвостовое оперение. 


Военные миссии 

Я не стану описывать все миссии - это займет слишком много места, а описание 
получилось и так слишком длинным. 

Первая миссия, которую Вы можете выбрать - это СО\ЕВТ. После этого на экране 
появятся две подмиссии. Вы можете выбрать только первую, так как вторая для Вас пока 
закрыта. 

Первая подмиссия - Э1ЕЕРЕВ. 

Вам покажут участок карты США. Обязательно надо ознакомиться с текстом миссии, 
иначе не будете знать полетного задания. 

Пиктограмма 1МРЕО предложит Вам выбрать один из пунктов на карте. По нажатии 
"АВЕ", В окне появится надпись, что это за объект. 

Пиктограмма "ОК" означает, что Вы ознакомились и решили начать действия. 

В первой миссии ЭЗЕЕЕРЕН Вам нужно уничтожить лагерь террористов, а затем 
вернуться на базу. 

Это самая простая миссия. В ней нет самолетов противника, но если Вы пролетите 
слишком близко к цели, по Вам могут выпустить ракеты. 

Целей в этой миссии две, хотя уничтожить нужно только одну. Вторая цель во 
внимание не принимается. 

Итак, Вы стоите на аэродроме. 

В "окне" показаны координаты цели. Клавишей М можно переключать на координаты 
Вашей базы. 

НОС - направление, 

АСЕ - расстояние в милях. 

Переключите радар на 25 миль. 

Справа появится точка - это цель. Взлетайте и ложитесь на курс. Когда до цели 
останется меньше 20 миль, переключайтесь на УР "Мейверик". На экране появится крест. 
Нажмите $ и головка наведения ракеты захватит цель. При этом на экране бортового 
компьютера появится надпись ГОСКЕО. Не рекомендую захватывать цель на расстоянии 
больше 20 миль - велика вероятность промаха. После захвата цели нажмите "пробел" - 
ракета попадет в цель. Следить за ней можно по радару. Если ракета попала, компьютер 
выдаст ТАРСЕТ ОЕЗТАОУЕО - цель уничтожена. Если компьютер выдал М!$$ ТАВСЕТ 
ОЕЗТРОУЕР - значит Вы уничтожили главную или одну из главных целей. После того, как Вы 
уничтожите все главные цели, можете вернуться на базу, приземлиться на взлетную полосу 
и выключить двигатели. 

После этого Вас спросят, хотите ли Вы повторить миссию. Если нет, то нужно 
загрузить блок, после загрузки которого Вам снова покажут карту и курс, которым Вы 
летали, а также скажут, сколько целей Вы подбили и засчитывается Вам эта миссия или нет. 
После этого запросят, желаете ли Вы принять следующую миссию или начать игру с самого 
начала. Если Вы хотите сыграть в следующую миссию, снова загружайте блок миссий и 
выбирайте СОУ\УЕНТ. Вы увидите, что открылась вторая подмиссия - ВАШСЕ ЕМО. Это уже 
намного более сложное задание, так как появляются самолеты противника. Самолеты 
можно сбить пушкой, что очень сложно. Но можно и с помощью ракет "Сайдуиндер". Если на 
радаре появился самолет - переключайтесь на "Сайдуиндер". При этом в экране 


вооружения появятся расстояние до самолета, его высота, направление и скорость. Теперь 
нужно поймать его в центральный экран. После появления сообщения ГОСКЕР - пускайте 
ракету и вражескому самолету не миновать уничтожения. 

Ваш самолет в отличие от вражеских имеет возможность выпускать 
радиолокационные и тепловые ловушки против вражеских ракет. Радиолокационная - 
клавиша С, тепловая - клавиша Р. 


Если то, что Вы прочитали, Вам интересно, смело стартуйте в небо и пусть не 
отвернется от Вас Удача! 


Мегсепагу 
"МО\МАСЕМ" 1987 


СОНУЕЕЗТОМН ВУ ОЯУТО ЯЧВРЕУ-УОНЕЗ 


ЕЕ ЕЗЕЗЕ Е 


Эксперт: Кустов Г.В. 
г. Львов 


Я хотел бы выступить в качестве неофициального эксперта и рассказать про очень 
интересную, на мой взгляд, программу, которую можно было бы поставить рядом с "ЕШТЕ". 
Называется она "МЕАСЕМАРУ". Про эту программу я нигде ничего не слышал и в Вашем 
журнале она тоже не затрагивалась. Думаю, мои исследования пригодятся любителям этой 
программы. 

Итак, "МЕВСЕМАВУ ЕЗСАРЕ ЕВОМ ТАВС" можно отнести к жанру АРВСАВЕ/АБ\УЕМТИВЕ 
с элементами РУ77ТЕ, так как главное - это умение ориентироваться в подземных 
лабиринтах и даже в надземных. В этой программе использована очень необычная 
объемная графика и для простоты видимые объекты нарисованы только из ребер, т.е. есть 
уникальная возможность проходить сквозь объекты и рассматривать их с любой из шести 
сторон света. Этот эффект настолько сильно захватывает, что забывается отсутствие 
геометрических плоскостей у нарисованных объектов. В программе возможно пользование 
несколькими видами транспортных средств. Управление транспортом имеет разные 
особенности для каждого вида транспорта. 

Действие начинается с того, что Ваш звездный корабль стартует и берет курс на 
систему "САММА Р\УЕ". После этого бортовой компьютер сообщает о повреждении системы 
управления и корабль сбивается с курса, который невозможно откорректировать. Вы летите 
прямо на какую-то планету, катастрофа неминуема и... Вы разбиваетесь. 
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Оказавшись на поверхности, Вы получите сообщение - о ходе войны между РАЁУАВ и 
МЕСНАМОГО (РАЁУАВ - это люди, МЕСНАМОШО - роботы). Вы находитесь возле аэробазы, где 
стоит самолет. У Вас с собой 9000 кредитов, а самолет стоит 5000. Все же, его желательно 
купить, иначе вряд ли Вы далеко уйдете пешком. 
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Итак, Ваша миссия: как наемник, работая на людей (хотя можно работать и на 
роботов) Вы должны найти главного робота и продать его людям для предотвращения 
войны, а также найти и доставить различные предметы. В виде премии за них Вы должны 
получить более 1000000 кредитов, на которые можно купить новый корабль и покинуть эту 
негостеприимную планету, завершив тем самым свою миссию. 


Управление игрой. 
Выбор управления возможен один раз, в начале игры - Вы выбираете один из трех 
возможных типов джойстика. Кроме выбранного джойстика есть управляющие клавиши на 
клавиатуре: 


Е - выход из транспорта, 

В - вход в транспорт, 

Т - взять предмет, 

О - положить предмет, 

Е - подъем/опускание лифта, 

1,2,3,4 - переключение скоростей соответственно 1,2,3 и 4 скорости, 

ВВЕАК - сброс скорости до 0, 

К - плавное увеличение скорости, 

у - плавное уменьшение скорости, 

С$+$ (САР$ ЗНИЕТ + 5) - вывод на ленту игровой ситуации, 

С$У+Ь - ввод с ленты отгруженной игры, 

С$+0 - экстренный вызов самолета. 

В случае управления героем, джойстик действует так: 

"ВВЕРХ" - вперед, 

"ВНИЗ" - назад, 

"ВПРАВО" - вправо, 

"ВЛЕВО" - влево, 

"ОГОНЬ" - не действует. Если Вы управляете автомобилем или ТУВВО-автомобилем, 
джойстик действует так: 

"ВВЕРХ" - не действует, 

"ВНИЗ" - не действует, 

"ВПРАВО" - вправо, 

"ВЛЕВО" - влево, 

"ОГОНЬ" - огонь. 

В самолетах и в летающей тарелке - следующее соответствие: "ВВЕРХ" - вниз, 

"ВНИЗ" - вверх, "ВПРАВО" - вправо, "ВЛЕВО" - влево, "ОГОНЬ" - огонь. 


реа [Е] Ев | ВАС [37 
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Работа с лентой. 

Выгрузку игровой ситуации осуществляют нажатием С$+$. После этого в строке для 
сообщений выдается запрос, какой блок выгружать 1...4. Это позволяет вывести на ленту 
четыре разных игровых ситуации. У каждого блока свой номер, который проверяется в 
момент загрузки. Пригодиться выгрузка под несколькими номерами может, когда Вы идете, 
к примеру, на рискованную операцию. Тогда Вы выгружаете игровую ситуацию до операции 
под одним номером, а после операции - под другим. Загрузка игровой ситуации происходит 
так же, как и выгрузка, только в начале надо нажать С$З+1 вместо С$+5. 

Экран программы 

После запуска программы в нижней части экрана появится таблица, отражающая 

текущую информацию. 
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Рис. 1 
1 - прибор, показывающий угол тангажа 
2 - высотомер 
3 - локатор 
4 - спидометр 
5 - компас 
6 - строка информационных сообщений 
7 - индикатор снижения высоты (действует, когда высота меньше 300 метров). 
8 - индикатор металлоискателя. 


Описание транспортных средств и предметов. 

Итак, очутившись на поверхности незнакомой планеты, Вы получили предложение 
купить мобильный самолет, что и делаете нажатием клавиши У. Этот мобильный самолет 
имеет фантастические возможности. Он за секунду разгоняется до 1500 км/час (!) и за 
столько же сбрасывает скорость до нуля. Можно плавным увеличением 4-ой скорости 
разогнаться и до 4900 км/час. Можно даже зависнуть на любой высоте и, кувыркаясь во все 
стороны, как внутри шара, осматривать местность под любыми углами. Управление очень 
простое. Единственно, при поездке нужно выбирать 1-ую или 2-ую скорость с углом тангажа 
не более 15 град. 
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Имеется еще один самолет. Он находится в ангаре с координатами по локатору “"**- 
Внешне он похож на современный истребитель. Его отличительная особенность - 
большая скорость (более 7000 км/час) и он позволяет взлетать на высоту до 99999. 

В квадрате 03-00 в ангаре находится летающая тарелка. Основное отличие от 
самолетов - низкая скорость (1800 км/час), отсутствие крена при поворотах и почти полное 
отсутствие инерции. 

В квадрате (координаты по локатору 09-05) в ангаре находится ТУВВО-автомобиль, 
который развивает скорость по земле до 1800 км/час. 

В квадрате 11-13 возле ангара у дома стоит автомобиль. Он может разгоняться до 300 
км/час. 

Всего в игре имеется 7 ангаров с лабиринтами. Шесть подземных ангаров в 
квадратах: 09-06, 09-05, 03-00, 11-13, 81-35, **-** и один ангар находится на высоте 64997 
метров над квадратом 06-08. 

Метод отыскания ангаров. Вход в ангар выглядит, как маленькая площадка, 
обнесенная с трех сторон забором. Если ангар в черте города, то находится он возле 
дороги. 

Примерно через две минуты после покупки самолета Вам сообщают, что нужно лететь 
в квадрат 09-06. Наберите высоту примерно 100 метров и, маневрируя самолетом, войдите 
в этот квадрат. Следите за высотой, можно разбиться. Попав в нужный квадрат, погасите 
скорость до нуля и осмотритесь, в поисках входа в ангар. Осторожно садитесь на землю и 
подкатите на колесах ко входу. Можно оставить самолет (или другой транспорт) на 
поверхности в удобном месте, а можно вместе с самолетом заехать на лифтовую площадку 
и опуститься в ангар. В ангаре и в лабиринтах транспорт не действует, поэтому нужно из 
него выйти и дальше идти пешком. 
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Рис.2 
Обозначение | Назначение 
1 Прямоугольная дверь. Можно войти без ключа. 
2 Телепортатор двухстороннего действия (туда и обратно). 
3 Телепортатор одностороннего действия (туда) 
4 При попытке в нее войти будет сообщение 1ОСКЕРВ (закрыто). Чтобы 


пройти нужно иметь с собой кристалл такой же формы как и дверь. 
то же 
то же 


©) | бл 


7 то же 

8 то же 

е) то же 

10 то же 

11 При входе в нее будет очень темно, поэтому нужно выйти задом. 
Необходимо иметь с собой РНОТОМ ЕМПГЕВ (фотонный прожектор) для 
прохождения в эту дверь 

12 Вход в лифт, поднимающий наверх. 

13 Вход в лифт, опускающий вниз. 

14 Войдя в нее Вы телепортируетесь и перепутается структура лабиринта 


относительно компаса (запад на восток), войдя во 2-ой раз, ситуацию 
можно исправить. 


15 Если эта дверь находится в лабиринте, который находится на высоте 
64997, то Вы вывалитесь и упадете на землю и растеряете все предметы 
которые были с Вами. Если эта дверь находится в подземном лабиринте, 
тогда из этой комнаты нет обратного пути. И придется вызывать самолет с 
потерей всех предметов или заново вводить игру. 


1 2 3 
4. 5 6 
Рис. 3 
Обозна | Название Назначение Где 
чение найти 
1 Зант5 Включает прицел для точного наведения на объект | 09-06 
зрение 
2 РО\ММЕВАНР Дает возможность мобильному самолету развивать | 09-06 
турбина скорость до 9500 км/час и взлетать на высоту 
99999 м. 
3 АМТОРАУ С его помощью можно брать с собой тяжелые 09-05 


антигравитатор | предметы: такие как "нейтронное топливо" и все 
виды транспорта. 

4 АМТЕММА Имея еев СОММУМ!САТОМ ВООМ (квадрат 09-06) | 09-05 
антенна Вы можете купить ракету за 999999 кредитов Вам 
дадут информацию о ее местонахождении для того, 
чтобы на этой ракете завершить миссию. 


5 МЕТАЁЕ Обнаруживает над землей вход в любой ангар 09-05 
ОЕТЕСТОВ 
металлоискател 
ь 


6 РНОТОМ Необходим для прохождения комнат с дверями (11) | 09-05 
ЕМТЕВ 

фотонный 
прожектор 


@ = мы @ < 
1 2 з 4 13 14 
И. [1 12939 П 
5 6 7 8 р 
А Я о 15 
9 10 11 12 
Обозна | Название Где взять | Где продать 
чение 
1 ЕМЕВСУ СВУЗТАЕ 09-06 либо в 03-00, либо в РО\ММЕВ ВООМ (08-08) 
энергетический 
кристалл 
2 САТЕВНМС 09-06 в КЕТСНМ (08-08) 
РАОМУЗОМ 
провиант 
3 МЕОЙ!САЕ ЗУРРИЕ$ | 09-06 в МААМАН (08-08) 
медикаменты 
4. ГААСЕ ВОХ 09-06 в МААМАН (08-08) 
большой ящик 
5 МЕЧТРВОМ РУЕЁ 09-05 в ЕМСИМЕ ВООМ (08-08) 
нейтронное 
топливо 
6 ОЗЕРУ АВМАМЕМТ | 11-13 в АВМОЧЦЕРНУ (03-00) или (08-08) 
оружие 
7 ЕЗЗЕМТАЕ 12939 03-00 в СОМЕЕВЕМСЕ ВООМ (08-08) 
ЗОРУ РЕРЗ 
8 МЕСНАМОШО робот | 03-00 в ПМТЕА\МЕМ/ ВООМ (08-08) 
9 СО золото 81-35 в ЕХСНЕСУЕВН (08-08) 
10 ОАТА ВАМК банк Вт» в СОМТВОЕ ВООМ (08-08) 
данных 
11 МАМСНЕЗТЕВ ны в [АВОВАТОНУ (03-03) или (08-08) 
винчестер 
12 АМТ/ТМЕ ВОМВ 08-08 г 
антибомба с 
часовым 
механизмом 
13 СНЕЕЗЕ сыр 11-13 ? 
14 МОМАОНМУЕ мы ? 
управление 
15 СОЕНМ гроб 09-05 ? 


Ангар в квадрате **-** обнаруживается так. Сначала надо долететь до квадрата 99-99, 
потом, при появлении квадрата **-** сбросить скорость и с высоты около 4000 метров 
посмотреть, где внизу вход в ангар. 

Точка, висящая над городом это тоже ангар. Он находится на высоте 64997 метров. 
Нужно взлететь на эту высоту. Вы увидите в воздухе большую плиту, садитесь на нее. В 
одном из углов плиты есть квадратная площадка, являющаяся входом. 

Теперь о дверях, которые встречаются в лабиринтах. В таблице (рис. 2) даны краткие 
сведения о дверях: 


Все предметы, с которыми Вы столкнетесь по ходу игры, можно условно разделить на 
два класса. В одном классе предмет - товар, в другом классе предмет - навигационное 
средство. 

В таблицу (рис. 3) внесены предметы, необходимые для навигации. 


А теперь рассмотрим предметы, интересующие покупателей. Их можно использовать 
для продажи. В следующей таблице (рис. 4) дана информация о том, где взять товар и где 
его продать. 


О предметах можно сообщить еще такую особенность. Если на базе (квадрат 03-00) 
взять МЕСНАМО!О (робота), то после этого нельзя здесь продавать предметы. С собой 
можно одновременно иметь не более десяти предметов. В таблице против некоторых 
предметов стоят знаки "?". Пока значение этих предметов невыяснено. Может быть, кто- 
нибудь выяснит этот вопрос? 

В заключение прилагаю карты лабиринтов (рис. 5... 12). 


ГОС 11-13 


НАМСАВ и 
1 [09-06 


03-00 


Рис. 5 


На картах лабиринтов есть односторонние и двусторонние телепортаторы, не 
отмеченные куда они телепортируют. Некоторые из них телепортируют каждый раз в другое 
место а некоторые еще не изучены. Есть и другие неисследованные вопросы, например: 
почему в городе все строения можно сбивать выстрелами своего оружия? Что за самолет, 
постоянно летающий над городом по одному и тому же курсу на высоте 500 метров? Можно 
ли увидеть самого себя? 


Успеха Вам! СООО СК! 


6 [09:05 < [ОС 01-35 ГОС ОЗ-ОО МЕНА 
| |. 
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| ^ НАМСАЮ 
НАМСАЮ 11-13 ЗтТОВЕЗ <> 
4 [09-05 - 
11-13 09-05 |-> 
Рис. 6 Рис. 7 База роботов. 
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Сделайте сами 


О1СЕУ 


Сегодня в рубрике “Сделайте сами" мы предлагаем интересную настольную игру в 
кости. Это вариация на тему известного "покера". Тем, кто знает, что это такое, наверное 
ничего объяснять не надо, для тех же, кто с ним не знаком, поясним, что бросая пять 
игровых костей, нужно стараться создать на них одну из комбинаций выпавших очков. Для 
того, чтобы это было возможно, после первого броска разрешается перебросить те кости, 
которые Вас не устраивают. О том, что это за комбинации и как они оцениваются, мы 
говорить не будем, в листинге программы эта информация есть. 

Покер требует в определенной степени умения мыслить комбинаторно, принимать 
правильные решения. Известно, что против теории вероятности не пойдешь, но тем не 
менее, есть игроки, которые играют лучше, а есть играющие хуже. Очевидно, первые 
придерживаются какой-то выигрышной стратегии, а вторые ее еше не выработали. 

Данная игра дает двойную возможность для реализации Вашей стратегии. Дело в 
том, что за набранные комбинации Вы не просто получаете очки, а имеете возможность 
передвигать по результатам броска фишки на игровом поле. Надо еще хорошо подумать, 
прежде чем добиваться той или иной комбинации, к чему Вам следует стремиться. Это 
зависит от конкретной ситуации на игровом поле. 

Игра нравится даже тем, кому вообще игровые программы не нравятся, и мы 
надеемся, что и Вам она доставит много радости. 

Хочется сказать несколько слов о проблеме “ошибок в листингах". Это бич всех 
компьютерных журналов и у нас в "7Х-РЕВЮ" это случалось. Трудоемкость подготовки 
статьи с игрой для Вас, уважаемые читатели, примерно в три раза выше, чем любой другой 
аналогичной статьи в связи с необходимостью многочисленных проверок, перепроверок и 
отладок и, тем не менее, Вы сами знаете, что ошибки проникали в окончательный текст. Это 
досадно, хотя и не вредно для тех, кто хочет не просто набрать программу, но при этом еще 
и освоить программирование. 

Сейчас мы изменили технологию подготовки программ для самостоятельного набора 
и ошибки практически исключены. Можете смело набирать и запускать программу. Если 
что-то не сработает, проверяйте правильность ввода. 

Наша технология такова: сначала программа набирается, отлаживается, 
русифицируется на "Спектруме". Когда она полностью работоспособна, она "сбрасывается" 
на диск (ТВ-00$), после чего программными средствами перекодируется "символика" и 
конвертируется формат записи в М$00$. В виде файла М$ОО$ она верстается и 
распечатывается на 1ВМ-компьютере. Поскольку все операции автоматические, то листинг, 
который Вы видите перед собой, точно соответствует тому, что было в памяти "Спектрума", 
когда программа была отлажена и работала, и ошибок здесь просто не должно быть. 

Несколько слов о русификации. Мы придерживаемся ранее принятого нами способа 
русификации. Если Вы с ним не знакомы, Вам понадобятся выпуски ГХ-РЕВЮ МЗ, 4 за этот 
год и, может быть, М 1,2 тоже за этот год. 
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ТЕ №Т ЕТ АМО №Т Е? ТНЕМ ВЕТОВМ 

ГЕТ ОТ$Р1=0Т5Р1*60: ТЕТ ОТ$Р2=0Т$Р2*00 

ГЕТ Р(ЕТ)=Е(Е1)+0Т$Р1 

ТЕ Р(ЕТ)<1 ТНЕМ ЕЕТ Р(ЕТ)=1 

ТЕ Е(ЕТ)>13 ТНЕМ ЕТ Е(Е1)=13 

РАТМТ О\УЕА 1; Т№К 1; РАРЕВ 6; АТ У(ЕТ), Х(Р(ЕТ)); Т$; АТ У(ЕТ)+1, Х(Е(Е1)); В$ 
ТЕ МТ Е? ТНЕ ВЕТИВМ 

ГЕТ Р(Е2)=Е(Е2)+0Т5Р2 


ТЕ Р(Е?)<1 ТНЕМ  ЁЕТ Е(Е2)=1 
ТЕ Р(Е?)>13 ТНЕМ ЕТ Е(Е2)=13 
РАТМТ О\МЕА 1; Т№К 1; РАРЕВ 6; АТ У(Е?), Х(Е(Е?)); Т$; АТ У(Е?)+1, Х(Е(Е?2)); В$ 


ЕМ СБРОС ЗНАЧЕНИИ КОСТЕЙ== 

ОВ Т=1 ТО М: ГЕТ ВСТ(Т))=1+ТМТ (В№0*б): МЕХТ Т 
ЕЕР .01,ТМТ (НМ0»10) 

ЕТОВМ 
ЕМ ПОВТОРНЫЙ БРОСОК ====== 

ЕТ В$="": ТМРИТ АТ 0, 0; "ВВЕДИ У ЕСЛИ О.К. ИЛИ М ЕСЛИ НЕТ”; ЕТМЕ 8$ 

Е В$<>"У" АМО А$<>"№М" ТНЕМ 60 ТО 3000 

Е Н$=”У” ТНЕМ 60 ТО 310 

РИТ “СКОЛЬКО КОСТЕЙ ПЕРЕБРОСИТЕ? “;М 

ЕТ М=ТМТ М: ТЕ М<1 ОН М>5 ТНЕМ 60 ТО 3030 

АТМТ #1; РЕАЗН 1; ТАК 2; РАРЕВ 7; "БУДУТ ПЕРЕБРАСЫВАТЬСЯ КОСТИ... “: РАПЗЕ 50 
ОВ Т=1 ТО М: ТМРУТ "КОСТЬ НОМЕР : “;Т(Т): ЕЕТ ТСТ)=ТМТ ТСТ) 

Е Т(Т)<1 ОН Т(Т)>5 ТНЕМ 60 ТО 3050 

ЕХТ Т: ВЕТИУВМ 

ЕМ ПЕЧАТЬ ЗНАЧЕНИЙ КОСТЕЙ= 

ОВ Т=1 ТО 5: РАТМТ АТ 19, 6*Т-3; ТМК 7; РАРЕВ О;В(Т): МЕХТ Т 


Е СОРТИРОВКА ЗНАЧЕНИЙ КОСТЕЙ ==========Е=яЕ=========== 
ОВ №=1 ТО 4: РОВ Т=1 ТО 5-М№ 
Е В(Т)<В(Т+1) — ТНЕМ ГЕТ А=В(Т): — (ЕТ В(Т)=В(1+1): — ЕТ В(1+1)=А 


ЕМ НОГО НОМ МАМУ ОЕ ЕАСН== 

ТМ \(5,2): ЕТ С09МТ=1: ТЕТ А=0 
ОВ М=1 105 
Е №=5 ТНЕМ 60 ТО 3700 

ОВ Т=№ ТО 4 

Е В(Т)=В(Т+1) ТНЕМ ТЕТ СОУМТ=СоуМТ+1: 60 ТО 3690 

0 ТО 3700 

ЕХТ 1 

ЕТ А=А+1: ГЕТ \(А, 2)=С00МТ: ЕЕТ УСА, 1)=А(№) 

ЕТ №=№+С00МТ-1: ЕЕТ СО0МТ=1 

ЕХТ № 

ЕМ НАЗНАЧАЕМ ПЕРЕМЕННОЙ Х$ КОМБИНАЦИЮ КОСТЕЙ И УСТАНАВЛИВАЕМ СЧЕТЧИКИ ПЕРЕМЕЩЕНИЯ 
ФИШЕК == 

ОТМ Х$(32): ТЕТ Е1=0: ТЕТ Е2=0: ЕТ ОТ$Р1=0: ГЕТ ОТ$Р2=0 

ТЕ \(1,2)<>5 ТНЕМ 60 ТО 3820 

ВЕМ ПЯТЕРКИ =============== 

[ЕТ Х$="ПЯТЕРКА <"+5ТА$ \(1,1)+"> 111!” 

ГЕТ ОТ$Р1=\(1,2)-1: ЕЕТ Е1=\/(1,1): 60 ТО 3930 

ТЕ \(1,2)<>4 АМО \(2,2)<>4 ТНЕМ 60 ТО 3830 

ВЕМ ЧЕТВЕРКИ ============== 


ЕЕТ 01$Р1=3: ТЕ \(1,2)=4 ТНЕМ ГЕТ Е1=\(1, 1) 

ТЕ \(2,2)=4 ТНЕМ ГЕТ Е1=\У(2,1) 

[ЕТ Х$="ЧЕТВЕРКА <"+(5ТВ$ \(1,1) АМО \(1,2)=4)+(5ТА$ \(2,1) АМО \(2,2)=4)+">": @0 ТО 
3930 
ТЕ \(1,2)<>3 АМО \(1,2)<>2 ОВ \(2,2)<>3 АМО \(2,2)<>2 ОВ \(1,2)=\(2,2) ТНЕМ 60 ТО 3850 
ВЕМ ФУЛЛ ================== 

ГЕТ Х$="ФУЛЛ: ТРИ <"+(5ТВ$ \(1,1) АМО \(1,2)=3)+(5ТА$ \(2,1) АМО \(2,2)=3)+"> И ДВЕ 
<"+(5ТА$ \(1,1) АМО \(1,2)=2)+(5Т8$ \(2,1) АМО \(2,2)=2)+">" 

РОН Т=1 ТО 2 

ТЕ \(Т,2)=3 ТНЕМ ЁЕТ ОТ$Р1= \(Т,2)- 
Т 

А 


)-1: 1Е т 
Е У(Т,2)=2 ТНЕМ ЕТ 0Т$Р2= \(Т,2)-1: ЕЕТ Е? =\(Т,1) 
ЕХТ: 2: 350: 193930 


ВЕМ ТРОЙКИ ========= 
<"+9ТА$ 
ЕХТ 1 

ВЕМ ПАРА 
ГЕТ А=0: 
ХТ т 

ТЕ А=0 ТНЕМ 60 ТО 39 
ТЕ А=2 ТНЕМ 60 ТО 39 
ГЕТ Е1=\У(В, 1): ТЕТ О 


УЕ” 


ЛИ ДВЕ ПАР 


[ЕТ Х$="ПАРА <"+5Т8$ 
ГЕТ А=0: РОВ Т=1 ТО 
ТЕ \(Т,2)=2 АМБ МОТ 


ТЕ \(Т,2)=2 АМО А ТН 
ЕХТ`Т 

СЕТ Х$=' 'ДВЕ ПАРЫ, <“ 

ГЕТ 01$Р1=\(А,2)-1: 

ВЕМ ИНИЦИАЛИЗАЦИЯ СУ 


ГЕТ ТОТАЕ=ТОТАЕ+ВСТ): 
ТЕ ТОТА 
ТЕ ТОТА 
ТЕ ТОТА 
ТЕ ТОТАЕ<10 ТНЕМ ЕЕТ 
ТЕ ТОТАЁЕ>9 АМО ТОТАЕ 
ТЕ СОБЕ Х$(1)<>32 ТН 
ВЕМ БОЛЬШАЯ ИЛИ МАЛА 
60 $50В 4010: ВЕТИВ 
ВЕМ ВЫБОР КОМБИНАЦ 
ТЕ РЕАУ=1 АМО 60=-1 
РАТМТ АТ 21,0; ° __ 
‚ХС то 22); 

РТ '$’ ЕСЛИ СУ М 
Е В$<>"5" АМО В$<' 
Е Н$="5” ТНЕМ 60 $0 


[>25 ТНЕМ (Е 


РОН Т=1 ТО 3: ТЕ МСТ, 


Ы ыы 


РОН Т=1 ТО 5: ТЕ \У(Т,2)=2 ТНЕМ ЕТ А = 


30 
00 
Т$Р1=\(В,2)-1 


\(В,1)+">”": 60 ТО 
5 

А ТНЕМ ЕЕТ А=Т 

Ем (ЕТ В=1 


+9ТА$ \(А, 1)+"> 
ГЕТ Е1=\(А, 1): 


2)=3 ТНЕМ ЕЕТ 0Т$Р1=\У(Т,2)-1: 


А+Т: 


3930 


ГЕТ Е1=\(Т, 1): 


ГЕТ В=1Т 


< ОТВ В, 0 
ГЕТ ОТ5Р2=\(В,2)-1: 


ГЕТ Е2=\(В, 1) 


ММЫ И МАРКЕРОВ БОЛЬШОЙ И МАЛОЙ СУММЫ== 


МЕХТ 1 
Т НТОН=З 


ГОМ=З 
<13 ТНЕМ ЕТ 10\=2 
ЕМ 60 ТО 3985 
Я СУММА 


ТНЕМ 60 ТО 3994 


РАЙТЕ, НА ЧТО ВЫ ИДЕТЕ. .... 


А, ИНАЧЕ `Х': ^; 
'Х” ТНЕМ 60 ТО 3990 
В 4010 


Т 

Т 

Т 

ВЕМ СТРИТ 

РОВ Т=1 ТО 4: ТЕ В(Т 

МЕХТ 1 

ГЕТ ОТ$Р1=(3 АМО Н(1 

Е С00Е Х$(1)=32 ТНЕ 

ЕТОВМ 

ЕТ Х$=( "БОЛЬШАЯ СУМ 

ЕТ 015Р1=(НТОН АМО 

ЕТ Е1=(8 АМО НТ@Н)+ 

ЕТОВМ 

ЕМ ПРОВЕРКА ВЫИГРЫШ 

ЕТ А=О: ТЕТ В=0 

РОН Т=1 ТО 9 

ТЕ ЕСТ)<4 ТНЕ 

ТЕ Е(Т)>10 ТНЕМ 

МЕХТ 1 

ТЕ А>2 ОВ В>2 ТНЕМ @ 

ВЕТОУВМ 

Т=1 ТО 30 

РЕАУ=2 ТНЕМ РАТА 

АМО А>2)+( "ВТОРОЙ" 

ТЕ РЕАУ=1 ТНЕМ РАТК 
КОМПЬЮТЕР! ! | " 

.01,Т: МЕХТТ 

“": ТМРОТ “СЫ 

“ ТНЕМ 60 ТО 

“ ТНЕМ 60 ТО 

=""; ТМРОТ "КО 

“ ТНЕМ 60 ТО 


ггг гэ- 


г 


ЕЕТ 


ЕТ А= 


ГЕТ Х$=" 


МА 
(9 АМО 10М): 
А ето доани ажеч 

А+1 

В=В-1 

О ТО 4575 

Т АГ 21,5; ЕШАЗН 1; 


АМО В>2)+" ИГРОК” 
Т АГ 21,5; ЕШАЗН 1; 


АМО А>2)+(”ВЫ ВЫИГРАЛИ! 


ГРАЕМ ЕЩЕ? (`У’ ИЛИ °№) 7; 


4590 
4660 
НЕЦ? ('У’ ИЛИ '№’) 
4620 


ЕТМЕ 


=6)+(2 АМО Н(1)=5): 
В(1)=6)+( “МАЛЫЙ” АМО В(1)=5)+” СТРИТ” 


=” АМО НТСН)+( "МАЛАЯ СУММА 
НТеН)+(ЕОМ АМО ЕО): 
ГЕТ Е2=0 


ГЕТ ТОТАЕ=0: ГЕТ НТ@Н=О: ТЕТ Е0\=0: РОВ Т=1 ТО 5 
>12 АМО ТОТАЕ<23 ТНЕМ 60 ТО 3995 


>22 АМО ТОТАЕ<26 ТНЕМ ГЕТ НТ@Н=2 


<>В(1+1)+1 ТНЕМ 60 ТО 3998 


ГЕТ Е1=7: ЕЁ 


“: РАЦЗЕ 100 : 


ЕТ Х$=( "БОЛЬШОЙ" АМО 


НИЧЕГО !" 


ГЕТ 01$Р2=0 


ВАТСНТ 1; 


ВАТСНТ 1; 
ПОЗДРАВЛЯЮ. " 


ЕТМЕ 


"”; [МЕ 4$ 


ТАК 1; 


ТАК 1; 


=” АМО 10\)+5ТА$ ТОТАЕ 


РАРЕН 6; 


АМО В>2) 


$ 


“ПОБЕДИЛ 


РАРЕВ 6; (“ПОБЕДИЛ 


ГЕТ Х$="ТРОЙКА 


РВТМТ АТ 21,0; "СУММА / 


"+( "ПЕРВЫЙ" 


4640 ТЕ Н$="У” ТНЕМ 60 ТО 9998 
4650 60 ТО 4590 


4660 С1$ : 


МЕ 


1" ИЛИ "” 


РИТ “ОДИН ИЛ 
ЕТ РЁАУ= 
Е РЕАУ=2 ТНЕМ 
РОТ: =]; Еб 
ЕТ 60=ТАМТ 60: 


(<>) 
= 
(<>) 
(Фр) 
(<>) 


ЕМ УСТАНОВКА 
ТМ Р(9): 
ОВ 1=1 ТО 9: 
ТЕ ЕСТ)<4 ТН 
ТЕ ЕСТ)>10 Т 
ЕХТ Т 


Е ОЕ ЕЕ ВЫ 


т 


тг 
Г 


О 
- 


РАТМТ ‘^” 
НИТЬ РЕЖИМ ИГРЫ. "``" 
ТЕ” 
ГРАЮЩИХ; ЗАТЕМ” '^" 
ЕТЕ С КОМПЬЮТЕРОМ)” ``” 
“ ЕСЛИ ХОТИТЕ ХОДИТЬ” '^" 
НАЧЕ ВВЕДИТЕ Ви 


ринит" 


ТМТ РЕАУ: Т 
60 то 


ЛИ 


ОВ А2<>2 ТН 


06 


ЕТ (В) 1: 


АРКЕР 


ВЫ МОЖЕТЕ ИЗ 


СНАЧАЛА ВВ 
ПО ЧИСЛ 
(ЕСЛИ ВЫ ИГ 
ВВЕДИТЕ 
ПЕР 
Чи" 

ДВА- 


ГРОКА?”; 


60 


ХОД 


ГЕТ А1=А1+1 


ЕМ ГЕТ А2=А2+1 


АМО Е(Т)>3 ТНЕМ ЕТ В1=Е(Т): 


НЕМ 60 ТО 5130 
НЕМ ТЕТ Р(В2)=1:ВЕТИУВМ 
Р(В2)=В2: ВЕТИВМ 


Г)<в1 АМО Е(Т)>10 ТНЕМ ЕЕТ ВЯ=ЕСТ): 
ТЕ В1=14 ТНЕМ 60 ТО 5180 
ВЕТОАМ 


0 Е(Т)>10 ТНЕМ ЁЕТ В1=Е(Т): 
Р(В2)=В2: ВЕТИВМ 


ТНЕ 
Т)>10 ТН 
1=7 ТО 9 


|. ТН 
Т: ВЕТИВ 


(Т)<>А ТН 


0 Е(Т)>3 ТНЕМ ЕЁ 


| 


РТ 


ОР 
=0: РОН Т=1 ТО 6 


ЕМ 


0 ТО 5280 


Ем ТЕТ РСТ) = 


: РОВ Т=1 106 
0 Е(Т)<В1 ТНЕМ ЁЕТ В1=Е(Т): 
(В2)=1: 


ВЕТИУВМ 


ЕТ Р(Т)=3 
)=3 ТНЕМ ГЕТ Р 


ТЕТА= 


ЕТ А=Т 
НЕМ 60 ТО 5570 


60 50В 6210 
НЕМ 60 ТО 310 


ТЕ ПЕРВЫМ, ИНАЧ 
ТЕ 60=0 ОВ 60>1 ОН 60<-1 ТНЕМ @0 ТО 4700 


ОВ ПРИОРИТЕТОВ 


ГЕТ А1=0: ТЕТ А2=0 
ВЕМ ЕСТЬ ЛИ ФИШКИ В КРАСНОЙ ЗОНЕ? 


ЕТ В1=ЕСТ): 


РЕАУ 


Е РЕАУ<1 ОН РЕАУ>2 ТНЕМ @0 ТО 4670 


ЕО "60 


ЕМ 60 ТО 5210 


ГЕТ В2=Т 


ГЕТ В2=Т 


ГЕТ В2=Т 


ГЕТ В2=Т 


ГЕТ Р(В2)=В2: ВЕТУВМ 
‚: ВЕТОВМ 

60 ТО 5380 

ЕТ А2=0: РОВ Т=7 ТО 9 

ЕМ (ЕТ А2=А2+1 
‚: ТЕ А2<2 ТНЕМ 60 ТО 5350 


ГЕТ В2=Т 


(Т)=2 


ВЕТИВМ 
ТЕ Р(7)>Т ТНЕМ 60 ТО 5640: ВЕМ НЕТ СМЫСЛА ДЕЛАТЬ СТРИТ === 
ТЕ Е1=7 ТНЕМ 60 ТО 310 
ТЕ Е1=0 АМО Е2=0 ТНЕМ ГЕТ М=1: (ЕТ Т(1)=5: ВЕТУВМ 
ТЕ Р(7)<>7 ТНЕМ 60 ТО 5640 : ВЕМ СТРИТ НЕРЕАЛЕН =========== 
РОВ 1=1 ТО 4 
ТЕ В(Т)=Е1 ТНЕМ ГЕТ М=1: ЕТ Т(1)=1: ВЕТИУВМ 
МЕХТ Т 
ТЕ Р(8)<>8 ОВ ТОТАЕ<20 ТНЕМ 60 ТО 5720: ВЕМ БОЛЬШАЯ СУММА СОМНИТЕЛЬНА 
ТЕ ТОТАЕ>23 ТНЕМ 60 ТО 5690 
РОВ 1=3 ТО 5 
ТЕ В(Т)<4 ТНЕМ 60 $0В 6210 
ВЕТИВМ 
РОВ 1=4 ТО 5 
ТЕ В(Т)<3 ТНЕМ 60 $0В 6210 
ВЕТИВМ 
ТЕ Р(9)<>9 ОВ ТОТАЕ>15 ТНЕМ 60 ТО 5800: ВЕМ МАЛАЯ СУММА СОМНИТЕЛЬНА 
ТЕ ТОТАЕ<12 ТНЕМ 60 ТО 5770 
РОВ 1=1 ТО 3 
ТЕ В(Т)>3 ТНЕМ 60 ЗВ 6210 
МЕХТ Т: ВЕТИВ 
РОВ 1=1 ТО 2 
ТЕ В(Т)>2 ТНЕМ 60 ЗВ 6210 
ВЕТИВМ 
ТЕ 015Р1=1 АМО ОТ5Р2=1 ТНЕМ 60 ТО 5860 
ТЕ 015Р1<>1 ТНЕМ 60 ТО 5980 : ВЕМ НЕТ ПАР ================== 
РОВ 1=1 ТО 5 
ТЕ В(Т)<>Е1 АМО Р(Е1)=0 ТНЕМ 60 ЗИВ 6210 
ТЕ Р(Е1)>1 ТНЕМ ЕЕТ М=4: ТЕ 1>1 ТНЕМ ЕЕТ Т(Т)=Т 
МЕХТ Т: ВЕТИВ 
ТЕ Р(Е1)>1 АМО Р(Е?)>1 ТНЕМ 60 ТО 5910: ВЕМ ДВУХ ПАР НЕТ == 
ТЕ Р(Е1)=0 АМО Р(Е?)=0 ТНЕМ 60 ТО 5940: ВЕМ ПРИНИМАЕТСЯ ДВЕ ПАРЫ И ПЕРЕБРАСЫВАЕТСЯ 
НЕПАРНАЯ КОСТЬ =============Е============ 
ВЕМ 2 ПАРЫ, ПЕРЕБРАСЫВАЕТСЯ 1 ПАРА И НЕПАРНАЯ КОСТЬ ======== 
РОВ 1=1 ТО 5 
ТЕ В(Т)<>Е? АМО Р(Е?)=0 ОВ В(Т)<>Е1 АМО Р(Е1)=0 ТНЕМ 60 $ИВ 6210 
ЕХТ Т: ВЕТИВ 
РОВ 1=1 ТО 5 
ТЕ В(Т)=Е1 ОВ В(Т)=Е? ТНЕМ 60 $0В 6210 
ЕХТ Т: ВЕТИВ 
РОВ 1=1 ТО 5 
ТЕ В(Т)<>Е1 АМО В(Т)<>Е? ТНЕМ 60 $0В 6210 
ЕХТ Т: ВЕТИВ 
ТЕ 01$Р1<>2 АМО 01$Р2<>2 ТНЕМ 60 ТО 6110: ВЕМ НЕ ТРОЙКА === 
ТЕ 015Р1=1 ОВ ОТ5Р2=1 ТНЕМ 60 ТО 6050 
РОВ 1=1 ТО 5 
ТЕ Е1=0 ТНЕМ 60 ТО 6025 
ТЕ 015Р1=2 АМО Е(Е1)>5 АМО В(Т)>Е1 ТНЕМ 60 $0В 6216 
ТЕ Р(Е1)=3 АМО В(Т)=Е1 ТНЕМ 60 $08 6210 
ТЕ Е(Е1)<6 АМО Р(Е1)<3 АМО В(Т)<>ЕЧ  ТНЕМ ЕЕТ М=1: (ЕТ Т(1) = 
ТЕ Е2=0 ТНЕМ 60 ТО 6045 
ТЕ 015Р2=2 АМО Е(Е?)>5 АМО В(Т)<>Е? ТНЕМ 60 $08 6210 
ТЕ Р(Е?)=3 АМО В(Т)=Е? ТНЕМ 60 $08 6210 
ТЕ Е(Е?)<6 АМО Р(Е?)<3 АМО В(Т)<>Е? ТНЕМ 1ЕТ М=1: 1ЕТ Т(1)=Т 
МЕХТ Т: ВЕТИВ 
ВЕМ ФУЛЛ =============== === 
ТЕ Е1=0 АМО Е? = 0 ТНЕМ 60 ТО 310 
РОВ 1=1 ТО 5 
ТЕ Р(Е1)>1 АМО Р(Е2)>1 ТНЕМ 60 ИВ 6210 
ТЕ Р(Е1)>1 АМО Р(Е?)=0 АМО В(Т)<>Е? ТНЕМ 60 ИВ 6210 
ТЕ Р(Е1)=0 АМО Р(Е?)>1 АМО В(Т)<>Е1 ТНЕМ 60 518 6210 
МЕХТ Т: ВЕТУВМ 
ТЕ 015Р1<>3 АМО 015Р2<>3 ОВ Е1>6 ТНЕМ 60 ТО 6150: ВЕМ НЕ ЧЕТВЕРКА 


9130 


РОН Т=1 ТО 


5 


ТЕ Н(Т)<>ЕТ АМО 0Т5Р1=3 ОВ В(Т)<>Е? АМО ОТ$Р2=3 ТНЕМ 60 $08 6210 

МЕХТ Т: АЕТУВ 

ТЕ НТ@Н=З ОВ ЕО\=3 ОВ 0Т$Р1=4 ОН Е1=7 АМО Р(7)=0 ТНЕМ 60 ТО 310: ВЕМ БЕЗ ПЕРЕБРОСКИ 
ТЕ НТОН=2 АМО Р(8)=0 ТНЕМ ГЕТ М=1: ЕЕТ Т(1)=5: ВЕТОВМ 

ТЕ 10\=2 АМО Р(9)=0 ТНЕМ ЕЕТ М=1: ЕЕТ Т(1)=1: ВЕТУВМ 

ГЕТ М=5: РОН Т=1 ТО 5 

ГЕТ Т(Т)=Т: МЕХТ Т: ВЕТОВ 

ГЕТ М=М+1: ЕЕТ Т(М)=Т 

ВЕТИВМ 

ТЕ МОТ НТОН АМО МТ 10М ТНЕМ ВЕТОВМ 

ТЕ Е(8)<4 АМО НТСН ОН 2Е(9)<4 АМО ТОМ ТНЕМ ВЕТОВМ 

ТЕ 01$Р1=2 АМО ОТ$Р2=1 АМО (Е(8)-НТ@Н)>3 АМО НТОН ТНЕМ НЕТУВМ 

ТЕ 01$Р1=2 АМО ОТ$Р2=1 АМО (7(9)-10М)>3 АМО ЕОМ ТНЕМ ВЕТОВМ 

ТЕ 01$Р1=1 АМО ОТ$Р2=2 АМО (Е(8)-НТ@Н)>3 АМО НТОН ТНЕМ НЕТУВМ 

ТЕ 01$Р1=1 АМО ОТ$Р2=2 АМБ (2(9)-10М)>3 АМО ЕОМ ТНЕМ ВЕТОВМ 

ТЕ ОТЗРА>НТОН АМО НТ@Н ОВ ОТЗРЛ>ЕОм АМО ЕОм ТНЕМ ВЕТУАМ 

ТЕ (Е(ЕТ)-01$Р1)<4 ТНЕМ ВЕТОВМ 

ТЕ Е2=0 ТНЕМ 60 ТО 6350 

ТЕ (Е(Е?)-01$Р2)<4 ТНЕМ ВЕТОВМ 

ТЕ Е(ЕТ)>10 АМО 2(8)<10 АМБ НТОН ТНЕМ ВЕТУВМ 

ТЕ Е2=0 ТНЕМ 60 ТО 6360 

ТЕ Е(Е?)>10 АМО 2(8)<10 АМО НТОН ТНЕМ ВЕТИУВМ 

ТЕ [(ЕТ)>10 АМО 2(9)<10 АМО [ОМ ТНЕМ ВЕТОВМ 

ТЕ Е2=0 ТНЕМ 60 ТО 6370 

ТЕ Р(Е?)>10 АМО 2(9)<10 АМО [ОМ ТНЕМ ВЕТОВМ 

0 50В 4010: ВЕТИВ 

ВЕМ ГРАФИКА = = = Е Е=Е=ЕЕЕЕЕ== 

РОВ Т=0 ТО 17: РАТМТ РАРЕН 6; АТ Т,14; “” “: МЕХГТ 

РОВ Т=0 ТО 17: РАТМТ РАРЕН 6; АТ Т, 16; СНА$ (144+Т): МЕХТ Т 

РОВ Т=0 ТО 17: РАТМТ РАРЕН 2; АТ Т,2; 7$; АТ Т,23,7$: МЕХТ 1 

РОВ Т=0 ТО 17: РАТМТ РАРЕН 4; АТ Т, 8; 7$; АТ Т,17;7$: МЕХТ 1 

РЕОТ 15,31: РОВ Т=1 ТО 4: ОВАМ 216,0: ОВАМ 0, 16: ОНАМ -216, 0: ОВАМ 0, 16: МЕХТ Т: ОВАМ 
216,0 : ОВАМ 0,16: ОНАМ -216,0 

РОН Т=2 ТО 14 ТЕР 2: РИОТ Т»*8-1, 175: ОВАМ 0,-143: МЕХТ Т:РОН Т=17 ТО 29 5ТЕР 2: РЕОТ 
1*8-1, 175: ОВАМ 0, -143: МЕХТ Т 

ТЕ РЕАУ=1 ТНЕМ 60 ТО 9070 

РАТМТ ТМК 1; АТ 2,0; "П”; АТ 3,0: "Е", АТ 4,0; "Р";АТ 5,0; "В"; АТ 6,0; "Ы"; АТ 7,0; “Й"; АТ 
ВО" ЕАО ЗАТО ГАР Ла о ОА: СЮ 

РАТМТ ТМК 2; АТ 2,30; "В"; АТ 3,30; "Т”;АТ 4,30; "О"; АТ 5,30; "Р”;АТ 6,30; "О"; АТ 
7,30; "Й"; АТ 8,30; " ";АТ 9, 30; "Й”; АТ 10,30; "Г"; АТ 11,30; “Р"; АТ 12,30; “0”; АТ 
13,30;"К”: @0 ТО 9080 

РВТМТ ТМК Т;АТ 4,0; "К”;АТ 5,0; "07; АТ 6,0; "М"; АТ 7, 0; "П”;АТ 8,0; "Б”;АТ 9,0; "Ю”; АТ 
И и вн 

РАТАТ ТМК: 2, АГ.5, 30; "ЧАТ 06.30: "ЕГХСАТ 7,30; "ЛУЗАТ 8,90: О”ЗАТ 9. 80: "ВАТ 
10, 30; "Е"; АТ 11, 30; "К" 

ТЕ 60=1 ТНЕМ РВТМТ АТ 15,0; ТМК 7; РАРЕН 0; РЕАЗН 1; "Х”; АТ 15,30; РАРЕВ 7; 

ТЕ 60=1 ТНЕМ РВТМТ АТ 15,0; РАРЕВ 7;” “;АТ 15,30; ТМК 7;РАРЕН 0; РЕАЗН 1; “Х” 

ВЕТОВМ 


ВОВОЕВ 1: 
РАТМТ АТ 3, 


ВЕМ ИНСТРУКЦИЯ ЕЕ ЕЕ 


К 6: РАРЕВ 1: РАТМТ : СЕ$ 
0; 


ЦЕЛЬ ЭТОЙ ИГРЫ СОСТОИТ В ТОМ, 


ЧТОБЫ ПРОВЕСТИ ТРИ ФИШКИ В КРАС- 


НУЮ ЗОНУ 


НА СВОЕЙ ПОЛОВИНЕ ПОЛЯ 


ДО ТОГО КАК ЭТО СДЕЛАЕТ ВАШ С0- 


ПЕРНИК. ` 
РАТМТ 


ИГРА ВЕДЕТСЯ ДЕВЯТЬЮ ФИШКАМИ. 


СНАЧАЛА ОН 


РАСПОЛОЖЕНЫ В ЦЕНТРЕ 


ПОЛЯ НА ДОРОЖКАХ, ОБОЗНАЧЕННЫХ 


О 


НИ Ома СВЕ 


В 


ЗА ОДИ 


Н ХОД ВЫ МОЖЕТЕ ПЕРЕ- 


9140 
9150 


9160 


9170 
9180 


9190 


9200 
9205 


9210 


9220 


9230 
9240 


9245 


9250 


9255 


ДВИГАТЬ ДО ДВУХ ФИШЕК. ВЕЛИЧИНА 


ХОДА 
БРОСАНИЯ ПЯТ 
60 508 9300 
РВТМТ АТ 5,0; 
“” ПОСЛЕ ПЕРВО 
ТЕ ДВАЖДЫ 
КОСТЕЙ, СКОЛ 


ЬКО 


ОПРЕДЕЛЯЕТСЯ РЕЗУЛЬТАТОМ 
КОСТЕЙ. " 


ГО БРОСКА ВЫ МОЖЕ- 
ПЕРЕБРОСИТЬ СТОЛЬКО 
ХОТИТЕ. ПРИ ВТО- 


РОМ И ТРЕТЬЕМ БРОСКАХ РАЗРЕШАЕТ- 


СЯ ИСПОЛЬЗОВАТЬ 
РАТМТ ` 
"” ВАША ЦЕЛ 
Й - СОСТАВ 
ЦИЮ, 


Ь ПРИ ПЕРЕБРОСКЕ 
ТЬ ТАКУЮ КОМБИНА- 
КОТОРАЯ ДАСТ ВАМ ВОЗМОЖ- 


ЛЮБЫЕ КОСТИ. ^ 


коС- 


НОСТЬ ЛУЧШЕГО ХОДА ФИШКАМИ. ” 


60 508 9300 
РАТМТ АТ 1, 0; 
ПРАВО 
КОМБИНАЦ И: 


НА ‚ ХОД ДАЮТ СЛЕДУЮЩИЕ 


- ДВЕ ИЛИ БОЛЬШЕ КОСТЕЙ ОДИНАКО- 


ВОГО ЗНАЧЕНИЯ 
ГАЮТСЯ ФИШКИ 
ОТВЕТСТВУЮЩИ 
:: И 


И 


.6 (ПЕРЕДВИ- 


НА ДОРОЖКЕ. ‚С С0- 


НОМЕРОМ) ; ` 
посл 
ИДУЩИХ ПОДРЯД ЗНАЧЕНИЙ 


ЕДОВАТЕЛЬНОСТЬ 


КОСТЕЙ о ФИШКА по 


ДОРОЖКЕ " 
РАТМТ 
- БОЛЬШАЯ СУ 


ОЖКЕ ““Н”” - 
“- МАЛАЯ СУ 
ТЕЙ МЕНЬШЕ 1 


Т ТАВ 17; ` 


“ВИМ””); 


МА КОСТЕЙ - БОЛЬШЕ 


22 (ПЕРЕДВИГАЕТСЯ ф 
Р “НТОН”" 
МА - СУММА ВСЕХ КоС- 


т. по ‚ДО- 


3 (ПЕРЕДВИГАЕТСЯ 


ЖКЕ ° 


К 


КОМБИНАЦИИ ПОЗВОЛЯЮТ СДЕЛАТЬ 
НА ОПРЕДЕЛЕННУЮ ВЕЛИЧИНУ : ° 
'ПАРА - 1 ШАГ” "ТАВ 15; "ТРОЙКА - 2 ШАГА” "ТАВ 13; ‘ЧЕТВЕРКА - 3 ШАГА” "ТАВ 14; 


"ПЯТЕРКА - 4 ШАГА" `ТАВ 2; "БОЛЬШОЙ СТРИТ (2-6) - 3 ШАГА" 


Т ТАВ 4; ' 


- 2 ШАГА” 


ЗАМЕТЬТЕ, ЧТО ЕСЛИ У ВАС 
ИЛИ ФУЛЛ (ПАРА+ТРОЙ 
ИМЕЕТЕ ПРАВО ПЕРЕДВИНУТЬ 


ДВЕ ПАРЫ, 


ШКИ. " 
9300 
’'’'ТАВ 11: 
"1) ВЬ 


ЕШНЮЮ ГРАН 


РАТМТ ° 
-3) 
ЕТСЯ КУРСОРО 
РАТМТ 
"4)) НОМЕРА 
ЧЕРНЫМ ПО 
’'ТАВ 16; Т 
00 508 9300 
01$: 


В НАЧАЛЕ 
НА НЕЙ 


ИГ 


ЛЕНЫ 


РАТМТ АТ 5, 


“ЗАМ 
НЕ ИМЕЕТЕ ПРАВА ХОДИТЬ 9. 
НОВРЕМЕННО ПО ДОРОЖКА 
ШКА НЕ МОЖЕТ ВЫХОДИТЬ и 


ЦУ 


ГРОК, ДЕЛАЮЩИЙ ХОД, 


, 


КОСТЕЙ 
ЗЕЛЕНОМУ, 
К 0; РАРЕВ 4; "5-": 


0; 
РЫ 


"МАЛЫЙ СТРИТ те 5) - 2 ШАГА" `ТАВ 2; "БОЛЬШАЯ СУММА (>25) - 3 ШАГА" "” 
А (23-25) - 2 ШАГА” `ТАВ 4; "МАЛАЯ СУММА (<10) - 3 ШАГА” ТАВ 2; "МАЛАЯ СУММА (10-12) 


ЕСТЬ 
КА) 


ЕЧАНИЯ” ; АТ 2, 11; 


КРАСНОЙ ЗОНЫ 


- ПРОПУЩЕННЫЙ ХОД ПРОПАДАЕТ. " 


ОТМЕЧА- 
РЕАЗН 1; 


ЗОБРАЖАЮТСЯ 
НАПРИМЕР: 


ФИШКИ УСТАНОВ- 


ТРАЛЬНЫХ  ОТМЕТКАХ. 


ТМК 7; РАРЕН 0; "Х”; 


БОЛЬШАЯ 


О\ЕК 1; ” 


ое 


РЕАЗН 0; ТМК 6; РАРЕВ 1;”.” 


ОНИ ИЗОБРАЖАЮТСЯ ТАК:”`'ТАВ 15; ТМК 0; РАРЕВ 6;СНВ$ 132; СНА$ 136; РАРЕВ 1 ° ТАВ 15; 
РАРЕВ 6; СНА$ 129; СНВ$ 130 
9260 РАТМТ ` 
ЕСЛИ ВЫ ХОТИТЕ ПРОЧИТАТЬ ЭТУ 
ИНСТРУКЦИЮ ЕЩЕ РАЗ, НАЖМИТЕ <Т>, 
ИНАЧЕ НАЖМИТЕ ЛЮБУЮ КЛАВИШУ...”: 60 $508 9300: ТЕ ТМКЕ\У$="Т” ТНЕМ 60 ТО 9110 
9270 ВОНОЕН 1: РАРЕВ 1: ТМК 6: (15$ : РВТМТ АТ 10, 0; 
"” ЕСЛИ ВЫ ИГРАЕТЕ С КОМПЬЮТЕРОМ, 
ВВЕДИТЕ “”1””, А ЕСЛИ С ПАРТНЕРОМ, 
ТО ВВЕДИТЕ ""2”".” 
9271 ТМРИТ “ВВЕДИТЕ 1 ИЛИ 2 : "; РЕАУ 
9272 ТЕТ РЕАУ=ТМТ РЕАУ: ТЕ РЕАУ>2 ОВ РЕАУ<1Л ТНЕМ 60 ТО 9271 
9275 ТЕ РЕА\У=2 ТНЕМ 60 ТО 9290 
9280 (1$ : РНТМТ АТ 7, 0; 
“” ПОЖАЛУЙСТА ИМЕЙТЕ ВВИДУ, ЧТО 
КОГДА КОМПЬЮТЕР ПРИНИМАЕТ РЕШЕ- 
НИЕ О ТОМ, КАКУЮ КОСТЬ ЕМУ ПЕРЕ- 
ОН РАСПОЛАГАЕТ КОСТИ В 
ПОРЯДКЕ ИХ ЗНАЧЕНИЙ. "'`' 


"” ЕСЛИ ВЫ ХОТИТЕ ХОДИТЬ ПЕРВЫМ, 
ТО ВЕДИТЕ "”-1”” ИНАЧЕ ВЕДИТЕ "“”1””” 
9286 ТМРИТ “ВВЕДИТЕ 1 ИЛИ -1 : ”; 60 
9287 ГЕТ @0=ТМТ 60: ТЕ 60=0 ОВ 60>1 ОВ 60<-1 ТНЕМ 60 ТО 9286 
9290. ВЕЕР“ 26:33 ВЕЕР 51950 ВЕБР” 50 ВВЕВ оооньн обоя. ВЕТУВМ 
9300 РАТМТ #1; 
ь НАЖМИТЕ ЛЮБУЮ КЛАВИШУ...”: РАУЗЕ 0: ВЕЕР .25,3: ВЕЕР .15,0:С1$ : ВЕТОУВМ 
РОКЕ 23675, 88: РОКЕ 23676, 255: ВЕЗТОВЕ 9900 
9901 РОН Т1=0 ТО (18*8-1): НЕАБ А 
РОКЕ 058 “А”+Т, А: МЕХТ Т 


9905 ВАТА 0, 8, 24, 56, 120, 88, 88, 24, 24,24, 24,24, 24, 126, 126,0: ВЕМ АЗВ=1 
9910 ВАТА 0, 0, 60, 126, 70,2, 6, 12, 12,24, 24, 48,48, 126, 126,0: ВЕМ С80=2 
9915 ВАТА 0, 126, 126, 6, 12, 24, 48, 96, 124, 126, 6, 6, 102, 124, 120,0: ВЕМ ЕЗЕ=3 
9920 ВАТА 0, 6, 14, 30, 54, 102, 102, 102, 102, 127, 127,6,6,6,6,0: ВЕМ @&Н=4 
9925 ВАТА 0, 126, 126, 96, 96, 96, 126, 126,6, 6, 6, 12, 24, 112,96,0: НЕМ 18/=5 
9930 БАТА 0, 6, 12, 24, 24, 48,48, 120, 108, 108, 102, 102, 54, 60, 24,0: ВЕМ К&! =6 

9935 ВАТА 0, 56, 124, 102, 102, 108, 108, 120, 112, 120, 108, 108, 102, 102, 102,0: НЕМ М&М=В 
9940 ВАТА 0, 102, 102, 102, 102, 102, 102, 126, 126, 102, 102, 102, 102, 102, 102,0: ВЕМ О&Р=Н 
9945 ОБАТА 0, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 126, 126,0: ВЕМ О&Н=Е 
9950 ВАТА 20, 27, 68, 27, 116, 27, 164, 27,212,27: ВЕМ ОТСЕ РЕОТ С0-080$ 
9980 ЗАМЕ "ОТСЕУ” [ЛМЕ 2: ЗА\МЕ “спг” СО00Е 64600, 768: УЕНТРУ “ОТСЕУ": УЕАТРУ “срг” С00Е: 60 


9990 НАМООМТИЕ У$В 15619: НЕМ :ЕВАЗЕ "ОТСЕУ”" 
9992 ВАМБОМТУЕ Ц$Н 15619: ВЕМ :ЗАМЕ “ОТСЕУ” ЕТМЕ 2 
ЕТ ЕАВ=0$Н 15619: ВЕМ : \УЕВТРУ “ОТСЕУ” 

ТЕ ЕВВ<>0 ТНЕМ РАТМТ ЕЕГАЗН 1; “ЕВАОВ!”: ВЕЕР 1,0: $ТОР 
993. ВЕЕР. 126: ‘ВЕЕЁ, 1520 

ВОВОЕН 7: РАРЕН 7: ТМК 0: ВАТЕНТ 0 


(<=) 
(<=) 
(<) 
> 
= 


Автостарт программы происходит со строки 2, в которой загружается символьный 
набор. 

В строке 3 происходит переключение курсора с [Ц на [С] для упрощения опроса 
клавишей, а также переключение на загруженный русско-латинский символьный набор. 

В строках 4...6 организован вывод инструкции при нажатии клавиши "\". Инструкция 
выводится при помощи подпрограммы в строках с 9100. Прочитайте ее, Вам понятнее будут 
многие моменты при отладке программы. 

После этого при помощи подпрограммы 9270 происходит задание числа играющих. 
Возможна игра "ЧЕЛОВЕК-КОМПЬЮТЕР" или "ИГРОК 1-ИГРОК 2". Это определяет 
переменная РЕАУ, соответственно имеющая значение 1 или 2. В том случае, если Вы играете 
с компьютером, можно предоставить право первого хода Вам или компьютеру. Это 


определяется переменной СО в строке 9286. В том случае, если играют два партнера, 
первым всегда ходит игрок 1. 

В строках 8...10 происходит задание УБС-графики. Это выполняет подпрограмма со 
строк 9100. 

Со строки 15 начинается инициализация переменных, участвующих в программе. 
Переменные В$ и В$ в строке 20 определяют изображение фишек на игровом поле. 

Основной цикл игры представлен в строках 70...380. Остальные строки программы (с 
2000) являются различными фрагментами и подпрограммами, необходимыми для игры. 

После прорисовки игрового поля в строках 70 и 80 и проверки условия победы в игре 
(строка 90) происходит передача хода противо-другому игроку в строке 100. 

В строках 200... 210 организован первый бросок. Значение костей изображается при 
помощи подпрограммы со строки 3500. Далее (строка 230), если бросок выполнил человек, 
выполняется подпрограмма со строки 3000 - это пауза для оценки результата и принятия 
решения о том, нужна ли переброска. Если не нужна, то программа делает скачок на строку 
310. А если нужна, то следует запрос о перебрасываемых костях: сколько их и какие будут 
перебрасываться. Далее - возврат из подпрограммы. 

В строке 231 если был ход компьютера, им выполняются действия по оценке хода и 
определению приоритетного варианта при помоши подпрограмм со строк 3600, 5000, 5500. 
Если в результате выполнения этих проверок определится, что переброска не нужна, то 
произойдет скачок со строки 234 на строку 310. Иначе программу продолжает группа строк 
235...255 это - выполнение второго броска для тех костей, которые требуют переброски. 

Строки 270...274 - это копия строк 230...234 - здесь выполняются те же действия по 
оценке результатов броска. 

Аналогично выполняется и третий бросок при помощи строк 275...295, после чего 
программа продолжается со строки 310. При помощи подпрограммы со строки 3600 
происходит выявление результативной комбинации костей, то есть той, которая приводит к 
выполнению хода игроком. 

В строке 320 выявленная результативная комбинация выводится на экран. После 
нажатия любой клавиши (строки 330,340) происходит передача хода противоположной 
играющей стороне (строки 350...380), после чего программа зацикливается на строку 70, то 
есть на повторение всех игровых действий. 

Строки 9980 и 9990 служат для самозаписи программы соответственно для 
магнитофонной и дисковой версии. Не забудьте также о строке 2, которая в случае дисковой 
версии должна быть следующей: 

2 СТЕАН 64599: ВАМООМТУЕ 158 15619: ВЕМ : 10АБ “спг”СО0Е 64600 

На этом мы прощаемся с Вами, желаем с пользой и интересом провести время за 
этой игрой, а мы пока готовим крупный сюрприз для ближайших выпусков - программный 
комплекс для самостоятельного создания адвентюрных игровых программ - Адуетиге 
Вийатоа зузет, сокращенно - АВ$. 

Вы увидите, что с его помощью можно разрабатывать и увлекательные обучающие 
программы для детей. 

Идет длительный процесс по адаптации и отладке этого пакета. Мы надеемся, что к 
следующему выпуску все работа будут закончены и мы вынесем его для широкого 
применения. 


Искренне Ваш, "ИНФОРКОМ". 


Компьютерная новелла 


(С) Матвеев Ю. А., 1993 


Стратегия капитана Кренона. 


(По мотивам программы Вере! Заг) 


Часть 1. Лунная база "Дельта". 

Скоростной космический лайнер "Викинг", следующий рейсом Земля-Венера, вышел 
на основную трассу в 0.15 по Гринвичу, когда пассажиры уже готовились ко сну. В 
двухместной каюте номер 29 при тусклом свете ночника возле обзорного экрана, 
заменявшего иллюминатор, в креслах сидели двое: седой крупный мужчина лет 
шестидесяти, одетый в серый строгий костюм, и светловолосый юноша в форме курсанта 
Высшей Космической школы. Оба молча смотрели на желто-серую горбушку удаляюшейся 
Луны. 

- Дед, а дед, - тихо прошептал юноша, не отрывая глаз от экрана. - Ты помнишь свою 
первую высадку на Луну? 

- Конечно. Это было еще в конце прошлого века. 

- Интересно было наверное, правда? 

Бывший командир Группы космических десантников Элмер Кренон медленно перевел 
взгляд на внука: 

- Интересно? Вряд ли...- и, чуть помолчав, добавил: - Скорее страшно. 

Юноша внимательно посмотрел на деда и легонько тронул его за рукав: 

- Ты обещал рассказать. 

Кренон ничего не ответил, а только поднялся с кресла и, неспеша расстегивая 
пуговицы на пиджаке, тяжело вздохнул. 

Ущербная Луна сместила в левую часть экрана и постепенно пряталась за его краем. 
Кренон снял пиджак и аккуратно повесил на спинку кресла. Потом подошел к внуку и 
положил тяжелые теплые ладони ему на плечи. 

- Ну, пожалуйста, дед, - протянул юноша. - Я давно хотел услышать эту историю. 

Кренон посмотрел на экран и тихо сказал: 

- Хорошо, только потом сразу спать. 

Юноша встал, потянулся, разминая мышцы, и с легкостью начал стаскивать с себя 
курсантскую форму. Тем временем Кренон плеснул в стакан вишневого сока из прозрачной 
пластиковой бутылки и залпом осушил его. 


Вспоминать историю высадки спасательной бригады было тяжело. Тогда он только 
принял командование десантной группой патрульного корабля "Радий" и, конечно, не 
подозревал, что судьба уготовит ему такую жестокую проверку на зрелость. Потом многие 
его хвалили за удачно проведенную операцию, но он-то знал, что, будь в его распоряжении 
хотя бы два часа лишнего времени, все могло оказаться по-другому. Не пришлось бы 
жертвовать людьми. Многие из подчиненных были его друзьями. Они заканчивали одну 
учебку, все вместе пошли служить в одно десантное подразделение, и район им достался, 
казалось бы, тихий - Луна. Экваториальная зона, сектор А-3. Некоторые были даже 
недовольны и пытались перевестись в другие десантные группы. Да и сам, молодой тогда 
еще, Кренон хоть и убеждал иных остаться, понимал, что Луна - это не огнедышащий 
Меркурий и не коварный Марс. 

Служба шла размеренно и спокойно, пока серьезно не заболел командир десантников 
Петр Ковальски. В срочном порядке его отправили на землю, а командиром патрульного 
корабля был назначен Элмер Кренон. Неприятности начались на следующий день... 


* * * 


Он разминался в спортивном зале, когда неожиданно по внутреннему телеселектору 
его вызвал радист Билли Брэг. Освободив кисти рук от ремней тренажера, Кренон поднялся 
и неспеша подошел к пульту. 

- Ну, что там у тебя? 

- Только что получили сигнал $05. - хрипло отозвался Брэг. 

- Сейчас буду. - Кренон шлепнул ладонью по выключателю и тихо выругался. Без 
Ковальски он чувствовал себя достаточно беспокойно и неуютно, словно цыпленок без 
матери курицы. 

Накинув поверх спортивного костюма китель, Кренон направился в командный отсек. 
Билли Брэга он застал возле дисплея бортового компьютера. На экране светилась карта- 
сетка района бедствия. Краем глаза Кренон заметил в верхнем правом углу экрана название 
лунной базы, с которой пришел сигнал. 

- "Дельта?" - удивленно спросил он. 

Брэг молча кивнул, переключая масштаб изображения. 

- Что могло случиться у селенологов? - вслух подумал Кренон. 

Брэг оторвался от экрана и повернулся к командиру: 

- Они не отвечают, передатчик постоянно посылает сигнал 50$ и больше ничего. 

Кренон почувствовал, как лоб покрывается испариной: 

- Объявляй общую тревогу. Да, и еще: свяжись с "Селеной" и доложи по форме. 

В то время, как Билли Брэг выполнял поручения командира, Кренон опустился в 
кресло перед компьютером и запросил файл данных на лунную базу "Дельта". 

Изучая колонки цифр, он думал о том, что могло стать причиной бедствия на этой 
тихой, забытой Богом базе. Построенная во времена второй волны колонизации и с самого 
начала отданная селенологам, база имела мощную буровую установку, небольшую, по 
нынешним временам, исследовательскую лабораторию, атомный реактор, сад с фонтаном 
под прозрачным центральным куполом и много всякого рода мелочей, необходимых для 
работы и отдыха персонала. Конструкция базы и ее основные элементы были сделаны на 
совесть. Малейшее отклонение от нормы в работе важнейших агрегатов четко 
отслеживалось центральным компьютером. Автоматизированная система контроля во главе 
с огромным вычислительным комплексом "Исаак", заслужившая самые высокие оценки на 
всех базах подобного типа, на этот раз, видимо, не сумела предотвратить бедствие. 
Вероятно, все произошло внезапно и последствия оказались необратимыми. 

Командный отсек быстро заполнили созванные по тревоге десантники. Весь экипаж 
патрульного корабли "Радий" собрался у центрального пульта управления, чтобы послушать 
указания орбитального комплекса "Селена". Выслушав сообщение Билли Брэга, оператор 
"Селены" некоторое время не выходил на связь. 

- Как всегда, - заметил Джаспер Прюн, - Теперь дебаты устроят... 

- Симпозиум соберут, - согласился с ними Леон Троцкий, который еще в школе 
космодесантников получил прозвище "Революционер" из-за своей известной фамилии. 

Однако ответ с "Селены" пришел быстро. Уверенный голос оператора внушал 
оптимизм: 

- Это Ваш район, так что действуйте по инструкции. 

К каналу связи подключился Кренон: 

- Специальных указаний нет? 

- Нет, - ответил оператор. 

- Понял, - задумчиво отозвался командир "Радия". - Отбой. 

Он медленно встал с кресла. Все в ожидании повернулись к нему. 

- Готовность номер один и по полной форме, - выдохнул Кренон. 

Десантники удивленно переглянулись. Все слышали, что “Селена" не дала 
специальных указаний. Следовательно, можно было бы не брать с собой боевых роботов, 
полный боекомплект вооружений и не надевать военные скафандры. В таких случаях обычно 
ограничивались медицинской аппаратурой и легкими скафандрами. 

- Береженого Бог бережет, так что ли? - нарушил молчание Леон Троцкий. 


- Особенно революционеров, - иронично отозвался Джим Дигриз. 

- Выполняйте приказ, - отрезал Кренон. 

Десантники стали молча расходиться. Курт Левин, - заместитель командира 
патрульного корабля, пилот первого класса, - расположился за пультом управления. Только 
сейчас Кренон посмотрел на главный экран. Лунное Море Дождей без единой капельки 
воды медленно выплывало навстречу, открывая бесконечные пространства застывшей 
миллионы лет назад магмы. До лунной базы "Дельта" оставалось около двухсот километров. 

- Включаю орбитальные двигатели, - доложил Курт Левин. 

Патрульный корабль лег на правый борт и медленно стал приближаться к поверхности 
Луны, удерживая курс на ""Дельту". 


Корабль они посадили недалеко от базы селенологов. Прозрачный центральный купол 
переливался в ослепительных лучах не по-земному яркого солнца. Служебные постройки, 
примыкавшие к куполу, выглядели обыкновенно. Никаких следов разрушений замечено не 
было. На связь по-прежнему никто не выходил. 

Кренон построил отряд в шлюзовом отсеке "Радия". Двенадцать вооруженных 
десантников в скафандрах со снятыми гермошлемами в ожидании стояли напротив него. 

- Разбиваемся на четыре группы, - начал Кренон. - Первая группа - Нельсон Смит и 
Джаспер Прюн. Ваша задача осмотреть цех переработки. Обо всех обнаруженных 
неисправностях сразу докладывать. 

Механик Джаспер Прюн утвердительно кивнул, но тут же, сняв с плеча лазерное 
ружье, продемонстрировал его на всеобщее обозрение: 

- А это тогда для чего? Гвозди забивать? 

Все засмеялись, лишь один Кренон с каменным лицом молча посмотрел на Прюна. 

- Вторая группа, - продолжил Кренон, - Вилли Брэг, Леон Троцкий и Илэйн Фрейх. Вы 
осмотрите центральный вход, ангар и прилегающие помещения. Третья группа - Дон 
Кейлони, Сларти Бартфаст и Рита Рампол. Ваша задача проверить жилые отсеки. Пойдете 
через служебный вход. Старший группы Дон Кейлони. 

Непалец Рита Рампол хотел что-то сказать, но Кренон жестом остановил его. 

- Четвертая группа - Курт Левин, Джим Дигриз и курсанты Джил и Джой. Проверьте 
запасной выход и присоединяйтесь ко второй группе. Старший - Курт Левин. Задача ясна? - 
спросил Кренон, придирчиво осматривая каждого десантника. 

Вопросов ни у кого не было. Кренон посмотрел на Нельсона Смита: 

- Боевые дроиды готовы? 

- Да. 

- Приступайте к разгрузке. Каждой группе - по дроиду. 

Смит подошел к автоматической двери, ведущей в дроидный отсек и нажал на панели 
электронного замка несколько кнопок. С мягким гудением, дверь отъехала в сторону, 
освободив проход. Из глубины помещения бесшумно вышли один за другим четыре боевых 
дроида. Десантникам пришлось потесниться: боевые машины цилиндрической формы на 
массивных стальных ногах-шарнирах заняли почти все свободное пространство. Кренон 
ободряюще кивнул на вопросительный взгляд Нельсона Смита и махнул рукой. 

- Выходим, - сказал он и закинул на плечо фотонный излучатель. 

Застегивая колпак гермошлема, Кренон прокрутил в голове все параграфы 
инструкций для спасательных отрядов и остался доволен. 

Они оставили корабль на дне небольшого древнего кратера и, разделившись на 
четыре группы, быстро добрались до базы. 

Первые опасения появились, когда они остановились напротив наглухо запертых 
шлюзовых ворот. Автоматика полностью блокировала вход и открыть двери не было никакой 
возможности. Командиры групп доложили по общей связи о том, что и у них ничего не 
получается. База молчала, сигнал 5О$ больше не поступал. В эфире воцарилась тишина. 

- Похоже, нас здесь совсем не ждут, - прозвучал в шлемофонах голос Курта Левина. - 
Командир, придется применить дронов. 

- Возможно, - задумчиво отозвался Кренон, - но лучше не тратить их заряды. У нас 


есть светосабли, давайте их и попробуем. 

Светосабля взрывного контактного действия позволяла прорубать проходы в любых 
завалах и поэтому давно была на вооружении спасательных отрядов. Практически любой, 
даже самый прочный, металл сдавался под натиском мощных электро-лазерных разрядов. 

- А что нам прикажете делать? - прозвучал недовольный голос Джаспера Прюна. - У 
нас нет с собой ни одной светосабли. 

- Я иду к Вам, - ответил Кренон. Он посмотрел на отливающий солнцем стеклянный 
колпак гермошлем Леона Троцкого. - За старшего - Троцкий. 

- Есть, - откликнулся Леон. - Билли, где будем рубить? 

- Революция, не засоряй эфир, - пошутил кто-то из десантников. 

Кренон легко преодолел несколько метров до входа в цех переработки, где его ждали 
Нельсон Смит и Джаспер Прюн. 

- А что, если у них отключена герметизационная защита - увидев приближающегося 
Кренона спросил Смит. Нас же сдует, как пылинки! 

Кренон ничего не ответил. Он вплотную приблизился к шлюзу и, отметив середину 
двери, достал из ножен светосаблю. В этот момент на связь вышел Дон Кейлони, старший 
группы, которая шла через служебный вход: 

- Командир, у нас ничего не выходит. Прошу разрешить использовать дроида. 

- Разрешаю. 

В шлемофоне что-то затрещало, затем радался звук, напоминающий взрыв хлопушки, 
а следом прогремел бас Курта Левина: 

- Уменя получилось, я в тамбуре. Гермозащита работает. Можно смело входить. 

Кренону хватило четырех ударов, чтобы прорубить внешнюю шлюзовую дверь, 
ведущую в цех переработки. Он вошел в довольно просторное помещение шлюзового 
тамбура. Сработала система герметизации и прорубленный вход закрылся прозрачной 
световой пленкой, временно защищающей базу от вакуума. Следом вошли Прюн и Смит, 
затем медленно вошел дроид. Кренон остановился перед внутренней шлюзовой дверью, 
чтобы отдышаться. Надо сказать, что работать светосаблей было нелегко и приходилось 
прилагать большие усилия для хорошего контакта сабли с металлом. 

- Старшие групп, - сказал Кренон, - доложите обстановку. 

Первым откликнулся Леон: 

- Вошли в предбанник. 

- Аналогично, - отозвался Курт Левин. 

Дон Кейлони после недолгого молчания поведал всем о том, что его дроид разрезал 
вторую перегородку и они вошли в гардеробную. 

- Что-нибудь наблюдаете? поинтересовался Кренон. 

- Ничего подозрительного, ответил Кейлони, - хотя... Черт!!! 

Послышался треск и на время все стихло. Потом все услышали дрожащий голос 
Рампола, перекрываемый шумом: 

- Внимание! Нападение на группу... - Опять треск и шум. 

- Что там у вас? 

- Дон, ответь! 

- Говорит Дон Кейлони. Нас обстреляли какие-то дроиды. Мы отступаем. 

- Говорит Кренон. Сколько их? 

- Не знаю, много. Очень много! 

- Дон, без паники... - Кренон, замахнувшись саблей, рубанул твердый металл 
перегородки. Ничего не получилось. Перегородка устояла. 

- Говорит Леон. Мы вскрыли центральный вход, я вижу с десяток дроидов, которые 
движутся к служебному входу. Меня пока не замечают. Впрочем, подождите... 

Они открыли о... - речь Троцкого оборвалась на полуслове. Эфир наполнился 
непрекращающимся треском. 

- Всем назад! - кричал в микрофон Кренон, нанося светосаблей сильнейшие удары 
упрямой перегородке. Наконец, она подалась. 

В образовавшемся проходе он увидел высокого дроида с круглой головой и 


остроносой лазерной пушкой, который очень быстро двигался в сторону служебного входа. 
Затаив дыхание, Кренон смотрел на удалявшегося робота. 

- Ого! - выглядывая из-за плеча командира, воскликнул Нельсон Смит, - откуда они 
здесь? 

Кренон отступил назад: 

- Дон, отзовись! 

- На связи, - тяжело дыша сказал Кейлони. 

- Я надеюсь, все обошлось? 

- Сларти ранен, ау нас нет даже медицинского зонда. 

- Дон, они все движутся к вам. 

- Мы отошли, - успокоил всех Кейлони. - Прячемся за своим железным болваном. 
Командир, какие будут указания? 

Кренон на секунду замешкался. Такого поворота событий он, конечно, не ожидал. 
Хорошо, что внутреннее чутье его не подвело и он полностью вооружил отряд. Но кто мог 
знать, что безобидная захолустная база селенологов буквально кишит военными дроидами. 
Конечно, на базах подобного типа всегда есть пять или шесть дроидов. Это, как правило, 
механические роботы, которые занимаются погрузкой и разгрузкой кораблей, а также 
добычей полезных ископаемых. Что здесь делают военные машины? Сомнительно, что их 
привезли с Земли. Зачем? Да и контрольную проверку ни один корабль с подобным грузом 
не смог бы пройти, а если бы это произошло, то на всех постах стало бы известно о 
существовании такой странной базы селенологов. С “Селены" никаких специальных 
указаний не было. Ясно, что там ничего не знали. Правда, военные дроиды это не их 
профиль. Вопросы нужно задавать Комитету Обороны. Тогда, какого дьявола нас не 
предупредили? Остается одно: дроидов собирали на этой базе. Причем, быстро и в тайне от 
всех. Видимо, выполняли заказ какой-нибудь могущественной военной корпорации. 

И вдруг он почувствовал, что знает, где лежит ключ к разгадке тайны лунной базы 
"Дельта". 

- Смит, - позвал Кренон. - А как управляются эти дроиды? 

Из тени развороченной шлюзовой двери появился роботехник Нельсон Смит: 

- Обычно по радиосвязи. Но, в принципе, программа может быть занесена и в 
оперативную память. 

Смита слышали все, но слово снова взял Кренон: 

- Дело в том, что этих дроидов собирали здесь. Для каких целей - не важно. Но я хочу 
сказать, что выполняя спецзаказ какой-то корпорации, селенологи вряд ли были посвящены 
в детали и не знали, как и где дроиды будут применяться, так? Поэтому готовый продукт, 
скорее всего, был без рабочей программы. 

- Возможно, - протянул Смит. 

- Кто может управлять роботами с базы? 

- Что? - Нельсон вздрогнул и посмотрел сквозь стекло гермовлема на Кренона. - 
Хочешь сказать, сами селенологи? 

- Допустим... 

- Акто тогда посылал сигнал бедствия? 

- Вот именно, - выдохнул Кренон, - я думаю, этих селенологов дроиды и убрали. 

- Выходит, бунт? 

- Да. 

- Кто же во главе? 

- Тебе видней... Мне, например, кажется, что это "Исаак" - компьютер. Больше 
некому. 

У Нельсона округлились глаза: 

- Похоже, очень похоже на правду. В комплексе "Исаак" есть передающие и 
принимающие устройства. Ему вполне под силу управлять сотней таких дроидов. 

- Хорошо, - Кренон снял с плеча фотонный излучатель. - Эту догадку мы можем 
проверить? 

-Конечно, нужно только настроиться на их частоту. 


- Займись этим, Смит. Билли Брэг, ты меня слышишь? 

- Я на связи. 

- Что с Леоном? 

- Легкое ранение, Илэйч им сейчас занимается. 

- Хорошо. Дон Кейлони! 

- Слышу тебя. 

- Пока ничего не предпринимайте. Ждите указаний. 

- Мы за границей шлюза. Нас не трогают. 

- Обращение к старшим групп! До моего особого указания всем находиться за 
пределами базы. 

- Я поймал сигнал "Исаака"! закричал Смит, работавший с личным передатчиком. - 
Все сигналы закодированы, ничего понять невозможно. Но это точно он! 

Кренон доверял Нельсону Смиту как самому себе. 

- Судя по карте, - сказал он, - через цех переработки по тоннелю мы сможем попасть в 
операторскую, а там и компьютерный центр недалеко. 

- Верно, - подтвердил Смит. 

- Так он вас туда и пустит, вмешался Джаспер Прюн, поглаживая блестящую 
поверхность военного дроида. - У него там наверняка охрана. 

- Мы их отвлечем, - уверенно сказал Кренон. - Ты видел, как они все помчались к 
служебному входу? 

Джаспер Прюн пожал плечами. Кренон снова вышел на связь: 

- Дон, ты меня слышишь? 

- Я все понял. Берем огонь на себя, - вздохнул он. 

- Дон, прошу, держитесь как можно дольше. Успеха! - заключил Кренон, а для 
остальных добавил: - группы Курта Левина и Леона Троцкого ждите указаний. Я с Прюном и 
Смитом попробую пробраться к "Исааку". 

- Мы выдвигаемся, - доложил Дон Кейлони. 

Кренон выглянул в проем и увидел, как еще несколько дроидов, словно по приказу, 
направились к служебному входу. 

- Какое у них может быть оружие? - шепотом поинтересовался Кренон у Смита. 

- Какое угодно: от слабеньких зикеров до мощных лазерных установок. 

В эфире опять что-то затрещало и послышались легкие хлопки. Стало ясно, что у 
служебного входа началась схватка. Кренон внимательно осмотрел цех переработки, 
который предстояло пересечь, чтобы войти в тоннель. По центру цеха располагался 
огромный конвейер, который непрерывно работал. Дальше он видел мощную буровую 
установку, а за ней вход в заветный тоннель, ведущий к цели. Вдоль конвейера 
располагались процессоры, которые перерабатывали поступающий с конвейерной линии 
грунт. Повсюду были разбросаны груды щебня и остатки обработанных ископаемых. 

Кренон махнул рукой и, пробежав вперед несколько шагов, остановился под 
прикрытием конвейера. Следом примчались Прюн и Смит. Военный дроид немного 
поотстал, зато надежно защищал их с тыла. Шум в эфире прекратился и десантники 
отчетливо услышали чей-то стон. 

- Докладывает Сларти Бартфаст. Первая атака отбита. Кейлони ранен. Рита Рампол 
убит. 

- Группы Троцкого и Левина вперед! - срывающимся голосом скомандовал Кренон. 

- Осторожней, командир! 

Кто это сказал, Кренон так и не понял: ослепительный яркий, чуть голубоватого цвета 
луч пронесся слева и ударился в процессор, рассыпавшись фонтаном искр. Стреляли из 
тоннеля. Конечно, не все дроиды противника ушли к служебному входу. Прюн был прав. 
"Исаак" обеспечил себе надежную защиту. 

Совсем рядом прошипел еще один луч. Кренон рванулся вперед и, преодолев 
несколько метров свободного пространства, спрятался за грудой щебня. 

В эфире все трещало, стреляло и взрывалось. Были слышны чьи-то крики и стоны. 
Кренон заметил, что справа от него в коридоре, ведущем к нейтральному входу, где 


находилась группа Леона Троцкого, скопилось с десяток неприятельских дроидов. Часть 
роботов отделилась от остальных и двигалась теперь к буровой установке 

- По-моему, это к нам, - заметил Джаспер Прюн, который взобрался на ленту 
конвейерной линии, чтобы оценить обстановку. 

Кренон не видел, что произошло у конвейера - ему мешала гора щебня, за которой он 
прятался, но он отчетливо услышал крик Смита: 

- Ну, иди сюда, гад! 

Яркие вспышки озарили весь цех. Металл и камни плавились под натиском 
смертоносных лучей. Этот кошмар продолжался несколько секунд, но Кренону показалось, 
что прошла целая вечность. Когда все стихло, он увидел андроида двухметрового роста с 
лазерным пистолетом в железной руке. "Здесь еще и андроиды есть", - только и успел 
подумать Кренон, когда луч лазера расплавил добрую половину груды щебня в полуметре от 
него. Он несколько раз выстрелил в сторону андроида, но, похоже, промахнулся. 
Необходимо было сменить укрытие, иначе в следующий раз, вместо этой бурой корки 
оплавленного камня, будет лежать он сам. Кренон бросился к тоннелю, который казался 
таким близким и ему было уже все равно, что совсем недавно оттуда стреляли. В глазах 
черным пятном стояла вспышка луча, бившего в щебень. Кто-то уже бежал за ним. Кренон 
обернулся. Это был Джаспер Прюн. В эфирной многоголосице было невозможно разобрать, 
что кричал ему механик. Из глубины тоннеля под ноги ударил луч, но на этот раз Кренон 
успел выстрелить ответной очередью. Где-то в глубине коридора вспыхнул голубым 
пламенем патрульный дроид и с грохотом разлетелся на куски. 

В мимолетном затишье Кренон вдруг разобрал слова Прюна: 

- Смита убили. Но он положил трех дроидов. 

Комок подкатил к горлу. Пытаясь справиться с неприятным ощущением, Кренон 
прокричал в микрофон: 

- Все группы к служебному тоннелю! 

Отозвался, почему-то, только один Леон Троцкий: 

- Яу входа в цех переработки. 

- Аостальные? 

- Билли Крэг убит, а Илэйн Фрейх тяжело ранен и уже не может идти. Он 
отстреливается у входа в ангар. 

- Где Курт Левин? - спросил Кренон. 

- Яего не видел, - ответил Леон. 

Сквозь шум и свист в шлемофоне отчетливо прозвучал голос Курта: 

- Яне могу пересечь ангар. Веду круговую оборону. 

- Где твои люди? 

- Курсанты у соседнего лунохода, а Джим Дигриз с военным дроидом направился к 
вам. 

- Посмотри, там где-то Илэйн Фрейх. Он ранен. Помоги ему, - подключился к 
разговору Леон Троцкий. 

- Ладно. А, черт! Ах ты, электронный выродок,... 

Курт Левин больше не отвечал. Кренон и Прюн уже шли по тоннелю. Сзади, принимая 
на себя основной огонь, двигался военный дроид. 

Сквозь перекрестный огонь в тоннель проник Леон Троцкий, неизвестно как сумевший 
предолеть этот страшный путь. 

Кренон понимал, что основной удар приняли на себя группы Курта Левина и Дона 
Кейлони и им удалось оттянуть часть дроидов. 

Дверь операторской была заперта изнутри. Кренон решил использовать один из 
четырех мощнейших зарядов своего боевого робота. Вспышка, фейерверк огня и двери как 
не бывало. 

Дроид въехал в образовавшийся проход. Следом вошел Кренон, а Джаспер Прюн не 
успел. С противоположной стороны раздался выстрел. Шипящий луч ударил в грудь Прюну и 
тот успел лишь вскинуть лазерное ружье, когда прозвучал еще один выстрел. Джаспер Прюн 
упал навзничь с прожженой насквозь грудью. 


Кренон едва успел отскочить в сторону, как из бокового коридора, ведущего в 
компьютерный центр, ударил встречный луч. Заряд лазера приняла на себя броня боевого 
дроида десантников. Узкий коридор наполнился дымом. 

В этой сумасшедшей свалке трудно было разобраться. Их зажали со всех сторон. 
Сразу три огромных дроида вели непрерывный огонь и Кренону пришлось прятаться в 
операторской. Улучшив момент, он попытался связаться с остальными, но ему никто не 
ответил. Лишь один раз, откуда-то, словно с далекой Земли, до него донесся слабый голос 
Дона Кейлони, которого он уже давно мысленно похоронил: 

- Командир, мертвые не простят, если мы не победим. 

Послышалось ему это или нет, но он почувствовал второе дыхание. Потратив всю 
обойму на дроида, охранявшего вход в компьютерный центр, Кренон ворвался внутрь. 
Посередине зала, мигая лампочками и переливаясь всеми цветами радуги, мирно гудел 
компьютер "Исаак". Кто бы мог подумать, что эта машина сумеет принести столько бед. 
Кренон перезарядил фотонный излучатель и начал методично расстреливать управляющие 
консоли компьютера. С противоположного конца зала к нему приближался дроид с лазерной 
головой. Кренону показалось, что "Исаак" буквально раскалился, предчувствуя свой близкий 
конец. И теперь командир десантников понимал, что этот единственный дроид последняя 
надежда компьютера. Он представил себе, как электронная душа "Исаака" переселяется в 
военного дроида. И вот уже компьютер - не беспомощная железяка, набитая микросхемами, 
а грозный и опасный противник. Да вот же он: совсем рядом! 

"О чем это я?" - одернул себя Кренон, уворачиваясь от лазерного луча, - по-моему, 
начинаю сходить с ума". Он с удивлением отметил, что вот уже несколько минут его не 
покидает желание прекратить стрельбу, да и вообще бросить фотонный излучатель на пол. 
Ему стало страшно. Дроид был совсем близко. Но прятаться за "Исааком" Кренону почему- 
то совсем не хотелось. Он хорошо видел, как шарообразная голова дроида поворачивается 
в его сторону, лазерная пушка смотрела прямо в лицо. 

- Не-е-т! - закричал Кренон и в последнее мгновение успел отпрыгнуть в сторону. 

Дроид дернулся следом и выстрелил. Лазерный луч, шипя, стал вгрызаться в 
непрочную обшивку "Исаака". Кренон видел, как плавились электронные мозги агрессора и 
как тут же застыл без движений вражеский дроид. Это была победа! Раб сам убил своего 
хозяина. Мгновение спустя в зал ворвался Леон Троцкий: 

- Неужели конец? 

- Конец, - выдохнул Кренон. 

В гермошлемах затрещало и на связь вышел Курт Левин: 

- Леон, ты еще спрашиваешь? Иди и посмотри, сколько вокруг меня собралось 
застывших истуканов. 

У Кренона не было сил даже улыбнуться. 


* * * 


Когда Элмер Кренон закончил свой рассказ, его внук еще долго лежа в постели 
смотрел в потолок и молчал. Потом он спросил: 

- Дед, а сколько человек вас осталось тогда в живых? 

- Пять человек: я, Леон Троцкий, Курт Левин, Джим Дигриз и Дон Кейлони. 

- Авы узнали, почему компьютер "Исаак" взбунтовался? 

- Когда вскрыли черный ящик, то выяснилось, что переполненный военной 
информацией, компьютер просто не выдержал экспериментов этих, так называемых, 
"селенологов". Почему это произошло, мы так и не узнали, потому что дроид очень сильно 
повредил даже черный ящик. Мы можем лишь догадываться, какая каша заварилась в 
недрах базы перед нашим прибытием, только с той поры компьютеры "Исаак" были сняты с 
производства. 

- Авы еще летали вместе? 

- Со времен "Дельты" мы стали неразлучными друзьями и побывали в таких 
передрягах, что события на лунной базе покажутся детской забавой. 

- Это когда? -У внука загорелись глаза. 


- Ну-у, - протянул Кренон, - например, в системе Альфа Центавра, когда мы 
наткнулись на поселение совершенно чуждых нам существ. 

- Дед, расскажи! 

- В следующий раз, - усмехнулся Кренон. - Давай спать... 


АВТОРСКАЯ ПРОГРАММА 


Развивая инициативу, объявленную в прошлом выпуске “РЕВЮ", мы начинаем 
публикацию заявок на авторское право по программным и аппаратным разработкам для 
домашних персональных компьютеров системы "Синклер-Спектрум“". 

"ИНФОРКОМ" рассчитывает, что кроме чисто "“заявочного" характера этот раздел 
будет служить еще и справочным для тех, кто хочет и может сам что-то создать. Здесь Вы 
можете увидеть над чем работают Ваши коллеги, может быть найдете полезные идеи и для 
себя. 

Мы надеемся, что публикации этого раздела явятся своеобразным генератором 
новых идей. 

Раздел открыт для Вас, уважаемые авторы. 


1. СЕРВИСНЫЕ ПРОГРАММЫ (УТИЛИТЫ). 


ЗАЯВКА: УОО1. 

ПРОГРАММА: 1МЗТАЦ( (инсталлятор). 

АВТОР: В. Кутин, г.Екатеринбург. 

ДАТА РАЗРАБОТКИ: март 1993 г. 

ЯЗЫК ПРОГРАММИРОВАНИЯ: Ассемблер. 

НАЛИЧИЕ ЗАЩИТЫ: нет. 

ДОКУМЕНТАЦИЯ: - не указано. 

КРАТКОЕ ОПИСАНИЕ: 

Программа позволяет создать дисассемблер под тот адрес, который нужен, при 
необходимости встроит в дисассемблер и монитор. Полученным дисассемблером можно 
пользоваться независимо от инсталлятора. Он обладает следующими особенностями: 

- особая компактность; 

- цветность; 

- озвученность; 

- многооконность (4 окна для одновременной работы с разными фрагментами); 

- наличие ОЗРИАСЕ-системы для мониторинга программ, написанных в области 
экрана или в области системных переменных; 

- 16 функций монитора; 

- 16 функций дисассемблера; 

- имеются процедуры, написанные специально для хаккеров. 


* * * 


ЗАЯВКА: УО002. 

ПРОГРАММА:ТУВАВО-СОРУ (копировщик) 

АВТОР: В. Кутин, г.Екатеринбург. 

ДАТА РАЗРАБОТКИ: июль 1993 Г. 

ЯЗЫК ПРОГРАММИРОВАНИЯ: Ассемблер. 

НАЛИЧИЕ ЗАЩИТЫ: нет. 

ДОКУМЕНТАЦИЯ: - не указано. 

КРАТКОЕ ОПИСАНИЕ: 

Внешне выглядит, как ТУАВО СОМР, 2Х-СОРУ, ТЕ-СОРУ, но имеет ряд преимуществ: 
- работа с двумя скоростями - стандартной и аналогичной ПЗУ-90. 
- в отличие от ТУВВО-СОМР имеет функцию \ЕНРУ; 

- выдает информацию о компрессии блоков в процентах; 

- имеет современное оформление (стилизованный шрифт); 

- работает на тех машинах, на которых ТУВВО СОМР не работает; 
- особо полезна для машин с ПЗУ-90. 


ЗАЯВКА: УО003З. 

ПРОГРАММА: МЕСА-СЕМ (генератор/редактор спрайтов) 

АВТОР: Д. Палтусов, г.Екатеринбург 

ДАТА РАЗРАБОТКИ: апрель 1993 г. 

ЯЗЫК ПРОГРАММИРОВАНИЯ: Ассемблер. 

НАЛИЧИЕ ЗАЩИТЫ: нет. 

ДОКУМЕНТАЦИЯ: - не указано. 

КРАТКОЕ ОПИСАНИЕ: 

Предназначена для создания спрайтов любого размера (по вертикали - в пикселах, 
по горизонтали - в знакоместах). Имеет развитую систему меню, удобна в работе, возможно 
управление джойстиками (Зтсат и Кетр$оп), работает с группой спрайтов, результаты 
сводит в файл, удобный для использования в пользовательской программе ("подшивает" 
файл-указатель размещения спрайтов). 


ЗАЯВКА: УО004. 

ПРОГРАММА:СЕМЕВАТОВН (генератор/редактор спрайтов) 

АВТОР: Д.Палтусов, г.Екатеринбург. 

ДАТА РАЗРАБОТКИ: март 1992 г. 

ЯЗЫК ПРОГРАММИРОВАНИЯ: Ассемблер, БЕЙСИК 

НАЛИЧИЕ ЗАЩИТЫ: есть. 

ДОКУМЕНТАЦИЯ: не указано. 

КРАТКОЕ ОПИСАНИЕ: 

Рассчитан на начинающих программистов, позволяет создавать спрайты 16 Х 16. 
Готовые спрайты можно использовать как из машинного кода, так и из Бейсика 
("зашиваются" в область ЧОС). Возможно управление джойстиком (Зтс!ат). 


* * * 


ЗАЯВКА: УО005. 

ПАКЕТ:СОМЗТАУСТОВ 

АВТОР: Д.Палтусов, г.Екатеринбург. 

ДАТА РАЗРАБОТКИ: сентябрь 1992 г. 

ЯЗЫК ПРОГРАММИРОВАНИЯ: Ассемблер. 

НАЛИЧИЕ ЗАЩИТЫ: нет. 

ДОКУМЕНТАЦИЯ: - не указано. 

КРАТКОЕ ОПИСАНИЕ: 

Пакет процедур, достаточных для создания игровой программы - карточной игры. 

Состав пакета: 

ОРЕМОАЧМ - демонстрационная карточная игра, написанная с помощью 
"конструктора". 

СОМЗТВОСТОРН - блок подпрограмм в машинном коде. 

ТХТ.РИ - текстовый файл программы ОРЕМРАЦМ, написанный под ассемблер "7ЕЧЗ". 
Позволяет изучать логику работы игры и технологию применения "конструктора". 


* * * 


ЗАЯВКА: УО06. 
ПАКЕТ:МУЕТЕОТ УТЫТУ1 
АВТОРЫ: Д.Палтусов, В.Кутин, г.Екатеринбург. 


ДАТА РАЗРАБОТКИ: апрель 1992 г. 

ЯЗЫК ПРОГРАММИРОВАНИЯ: Ассемблер. 

НАЛИЧИЕ ЗАЩИТЫ: есть. 

ДОКУМЕНТАЦИЯ: - не указано. 

КРАТКОЕ ОПИСАНИЕ: 

Аналог аниматора РАМТА \$1ОМ (для 1ВМ совместимых машин). Служит для создания 
мультфильмов в четыре этапа: 

- определение формата кадра; 

- создание фаз анимации; 

- моделирование экранного изображения; 

- компиляция мультфильма. 

В пакет входит мощный компилятор, позволяющий сгенерировать файл, независимый 
от материнской программы под любой адрес загрузки и программа ЧУТШИТУТ для 
"вырезания" исходного спрайта из заставок, созданных в других графических редакторах. 


* * * 


2. ПРИКЛАДНЫЕ ПРОГРАММЫ 
Заявок нет. 
3. ИГРОВЫЕ ПРОГРАММЫ 


ЗАЯВКА: ИО01. 

ПРОГРАММА: ЗНААЕНОГОЕВ 

ЖАНР: ТРАОПОМАЕ/МАМАСЕМЕМТ 

АВТОРЫ: Д.Палтусов, В.Кутин, г.Екатеринбург 

ДАТА РАЗРАБОТКИ: август 1992 г. 

ЯЗЫК ПРОГРАММИРОВАНИЯ: Ассемблер. 

НАЛИЧИЕ ЗАЩИТЫ: есть. 

КРАТКОЕ ОПИСАНИЕ: 

Компьютерный аналог известной за рубежом настольной игры (освещалась в журнале 
"Наука и жизнь"). 

Количество играющих - до 4-х человек, за них может играть компьютер по одному из 
двух возможных алгоритмов. 

Цель игры - повышение состояния за счет рациональной игры с акциями на бирже. 

Управление: клавиатура, СУВЗОВ, ЭМСЬАВ, КЕМРЗТОМ. 

Экранный интерфейс: типа "ААТЗТУО!О". 


* * * 


ЗАЯВКА: ИО02. 

ПРОГРАММА: ВАЗЕ 

ЖАНР: РУ77ЕЕ/ЗТВАТЕСУ 

АВТОРЫ: Д.Палтусов, В.Кутин, Р.Мельников, г.Екатеринбург. 

ДАТА РАЗРАБОТКИ: Июнь 1992 Г. 

ЯЗЫК ПРОГРАММИРОВАНИЯ: Ассемблер. 

НАЛИЧИЕ ЗАЩИТЫ: есть. 

КРАТКОЕ ОПИСАНИЕ: 

Тема игры: освобождение космической базы, захваченной пришельцами. 

Логика работы: противник уничтожается, будучи запертым в безвыходном 
пространстве. 

Экранный интерфейс - типа "ВОЧЕРЕН ВАЗН" и "ВОСКРОРО". 

Игра многоуровневая и имеет встроенный редактор уровней, позволяющий развивать 
ее далее. 

Управление: клавиатура, СУВЗОВ, ЭИМСЬАВ, КЕМРЗТОМ. 


Внимание, СИНКЛЕРИСТЫ! 


То, о чем многие месяцы просят некоторые наши читатели, наконец свершилось! Мы 
объявляем о дне рождения нового журнала, посвященного играм для 1ВМ-совместимых 
компьютеров, а также всему, что с ними связано. 


1 января 1994 года выйдет в свет 
первый номер журнала "РС-РЕВЮ" 


Папой этого издания будет "ИНФОРКОМ", а мамой - новая фирма, которую мы сейчас 
регистрируем - акционерное общество закрытого типа "ИНФОРКОМ - ПРЕСС". 

Наших старых, добрых и верных читателей и почитателей просим не беспокоиться. 
День рождения "РС-РЕВЮ" не станет похоронным для "7Х-РЕВЮ", мы работали и будем 
работать над улучшением его содержания и не только не собираемся сворачивать это дело, 
но и будем развивать его дальше. Более того, мы рассчитываем на то, что и многие из Вас 
подключатся к созданию и распространению этого журнала. 


ЧТО ТАКОЕ "РС-РЕВЮ"? СОСТАВ "РС-РЕВЮ" 


1. "РС-РЕВЮ" будет выпускаться и 
распространяться электронным способом. Уход 
от полиграфии снимет массу преград с его 
свободного распространения. 

2. Планируется выпускать по одному 
номеру ежемесячно. Объем каждого выпуска - 
2,0...2,5 мегабайта. В заархивированном виде 
объем выпуска составит 1080 К в расчете на то, 
что он будет поставляться на одной дискете НО 
(1,2М) или на трех дискетах ОО (3Х360К) по 
выбору заказчика. 

3. "РС-РЕВЮ" 
защиты 


будет поставляться без 
от копирования. Мировая практика 
показала, что самая лучшая "защита" - это 
отсутствие защиты, но при оперативном 
обновлении информации. При таком подходе 
выигрывает и издатель и потребитель. 

4. Журнал готовится так, чтобы с ним 
можно было работать на 1ВМ-совместимых 
машинах любого класса. Единственное 
ограничение - графические иллюстрации 
рассчитаны на мониторы УСА. Пользователи, не 
имеющие их, смогут работать с журналом, но не 
смогут просматривать сопровождающие 
картинки. 

5. У читателя будет возможность 
распечатать любые понравившиеся ему статьи 
журнала на имеющемся у него оборудовании. 

6. "РС-РЕВЮ" будет распространяться 
через сети дистрибуторов. Порядок 
распространения следующий: “ИНФОРКОМ- 
ПРЕСС" направляет ограниченное количество 
мастердисков своим дистрибуторам по регионам 
с лицензией на неограниченное копирование и 
распространение. Локальные — дистрибуторы 
могут сами продавать выпуски "РС-РЕВЮ" на 
своих дискетах или копировать журнал на дискету 
заказчика, а могут создать свою 
дистрибуторскую сеть, в этом случае они станут 
Генеральными дистрибуторами. 


1. Обзоры новейших игровых программ с 
иллюстрациями. 

2. Исследование и анализ известных и 
широкораспространенных игровых программ. 

3. Переписка с читателями. Каждый, кто 
любит игровые программы, сможет написать о 
своих открытиях и проблемах. Любое грамотно 
и интересно написанное письмо будет 
опубликовано для обсуждения. 

4. Обзоры зарубежной прессы: интервью 
с выдающимися программистами и издателями, 
обзоры новых аппаратных средств, 
расширяющих возможности стандартной 
машины, рассказы об известных фирмах. 

5. Раздел "Компьютерная новелла". 

6. Игровые этюды. К каждому номеру 
журнала мы будем прилагать отгруженные 
модули состояния тех или иных известных игр, 
представляющие собой некий этюд (по типу 
шахматного), решение которого доставит 
читателю удовольствие. Лучшие решения будут 
поощряться ценными призами. 

7. Рекламный блок. Этот блок не займет 
более 10% объема журнала и, если получит 
достойное развитие, позволит значительно 
снизить Ваши затраты на получение отдельных 
выпусков. 

6. Справочный блок. В него войдут: 

- указатель наших дистрибуторов (люди 
во всех уголках страны должны знать, к кому им 
надо обращаться для приобретения очередного 
выпуска); 

- указатель игр (для быстрого поиска, где 
и когда освещалась та или иная игра); 


- указатель авторов (для фиксации 
авторских прав наших внештатных 
корреспондентов, статьи которых будут 


публиковаться в журнале); 

- указатель самых низких цен по фирмам 
г. Москвы на радиоэлектронную продукцию на 
текущий месяц. 


Итак, для создания собственной первичной сети Генеральных дистрибуторов мы 
объявляем ТЕНДЕР на распространение "РС-РЕВЮ". Тендер - это как бы закрытый аукцион 
и он применяется в тех случаях, когда открытый аукцион провести невозможно. 

1. ТЕНДЕР завершится к 15.12.93 

2. Подать заявку каждый желающий может уже сейчас. Заявка подается в 
произвольной форме, в заявке Вы должны указать МАКСИМАЛЬНО ВОЗМОЖНУЮ ДЛЯ ВАС 
цену, по которой Вы готовы принимать мастердиск одного выпуска журнала для 
лицензированного копирования и распространения, а также форму оплаты (нал., б/нал.). 
При определении экономически обоснованной максимальной цены ориентируйтесь на свои 
возможности по распространению копий, а также на возможность организации Вами 
региональной дистрибуторской сети. 

Обращаем Ваше внимание на то, что указание вами предельно допустимой цены НИ К 
ЧЕМУ ВАС НЕ ОБЯЗЫВАЕТ. В 99 случаях из 100 Вам придется платить значительно меньше, 
в данном случае Ваша цифра явится только свидетельством серьезности намерений и 
наличия потенциальных возможностей как будущего дистрибутора, что нам и необходимо 
знать при создании первичной сети. 

3. 15.12.93 мы отберем 100 наиболее весомых заявок и установим единую цену 
мастердиска. Она будет равна размеру самой слабой из ста отобранных заявок. 

4. Все победители ТЕНДЕРА получат извещение с указанием установленной цены и 
дальнейшие указания. 

5. Итоги ТЕНДЕРА будут объявлены в последнем выпуске "7Х-РЕВЮ" этого года. 

ПРИМЕЧАНИЕ: 

1. Если на ТЕНДЕР поступит менее 100 заявок, ТЕНДЕР считается несостоявшимся и 
мы примем решение об изменении порядка распространения "РС-РЕВЮ". 

2. Всех держателей "Зеленых пакетов", заинтересованных в распространении "РС- 
РЕВЮ”", просим обратиться к нам по телефону или письмом. Им, как уже 
зарегистрированным дистрибуторам, будут предоставлены некоторые льготы. 


5сап, ОСН & зрейспеск бу МОК, Василий Кормилицын 155ие #20: Айеп шуазюп 


РЕВЮ 
СХ - яловз 


"ИНФОРКОМ" 121019, Москва, Г-19, а/я 16 


СПЕКТРУМ в школе 


Здравствуйте, дорогие друзья! 

Так уж повелось в последнее время на наших страницах, предназначенных для 
школьников, что мы играючи осваиваем интересные численные методы решения 
математических уравнений, и сегодня мы хотели бы предложить Вам еще одну игру, из 
которой вытекают совсем не игровые последствия. 

Скажите, что Вы подумаете о человеке, который предложит Вам решить ОДНО 
уравнение с двумя неизвестными? Наверное, что у него, как сейчас говорят, "крыша 
поехала". А если это будет одно уравнение с пятью неизвестными? Это невозможно, 
скажете Вы? А если он Вам скажет, что его не интересует абсолютно точное решение и его 
устроит решение с какой-то допустимой погрешностью? О, это совсем другое дело - тогда 
можно как-то попробовать УГАДАТЬ более-менее приличное решение, особенно если это 
игра. 


Итак, возьмем для игры следующие значения: 
Х=5; \=2; 
Составим из них уравнение, например такое: 


Х + Х>\ + Х*Х +\У - 44 =0 


И предложим его решить кому-либо из знакомых, не открывая истинных значений Хи 
У. Единственное, что можно подсказать - так это то, что Х находится в пределах от 0 до 20, а\ 
- ОТО до 10, и пусть он теперь попробует решить такое уравнение. 


Что будет делать Ваш партнер? Во-первых, он попробует взять в качестве первого 
приближения средние значения Х и\У из их возможного интервала и посмотреть, что из этого 
получится: 

Х= 10; У=5 

10 +50 + 100 + 25 - 44 = 139 

Мы получили "невязку, равную 139, поскольку не угадали Хи\у\. 

Надо их корректировать. Поскольку "невязка" больше нуля, значит мы где-то 
перебрали. Ударим опять посередине: 

Х=5; \= 2.5. 

Получим: 

5+ 12.5 + 25 +6.25 - 44 =4.75 

"Невязка" стала значительно меньше, значит, мы на верном пути. Попробуем еще раз 
уменьшить Хи\. 

Х= 2.5; \= 1.25 

2.5+3.13+6.25+1.56-44 = -30.56 

На сей раз мы ушли не вту сторону. Попробуем еще раз и опять посередине: 
Х=3З.75; \= 1.85 

3.75+6.98+14.06+6.98-44 = - 12.23 

Снова "недолет", стрельнем еще последний разок и пока хватит. 


Х=4.38; \ = 2.18 

4.38+9.55+19.18+4.75-44 = - 6.14 

Итак, мы получили результат: 

Х=4.38,; а \=2.18 
Истинный же результат, как мы помним, был: 
Х=5, а \=2. 

Выходит, мы решили задачу с точностью до примерно 12 процентов. Хорошо это или 
плохо? Ну, во-первых, это еще не предельная наша точность, ведь считали-то мы на 
бумажке, а если применить компьютер, то ее можно бы и повысить и как это сделать, мы 
еще покажем. А во-вторых, надо подумать, где такие расчеты могут использоваться? 

Оказывается, они могут применяться, как правило, в двух случаях. Во-первых, в 
технике, когда какие-то параметры конструкции неизвестны или известны плохо. ИХ, 
конечно, можно устанавливать с помощью испытаний, экспериментов и т.п. и так и делают, 
но это довольно дорого, трудоемко и долго. Такой расчет позволяет во много раз снизить 
затраты на испытания и сэкономить месяцы и годы. К тому же, как правило, все технические 
устройства имеют не менее, чем 100-процентный запас надежности и точность наших 
расчетов вовсе не так уж и плоха. 

Вторая область, когда приходится решать уравнения, в которых неизвестных больше, 
чем самих уравнений - экономические расчеты, типа того, как организовать 
транспортировку пива, нефти и подсолнечного масла между десятью регионами, спрос в 
которых на эти продукты точно не известен, но затратить при этом минимум средств на 
перевозку, хранение и обслуживание цистерн. В этих расчетах точность порядка 12 
процентов - просто блестящая. В рыночной экономике надо уметь прогнозировать 
результаты своих действий. 


Итак, мы умеем теперь решать уравнения с большим количеством неизвестных, хотя 
вопросов еще осталось немало. Во-первых, как приспособить к этому делу компьютер, а во- 
вторых, надо ему дать четкий алгоритм, потому что мы с Вами "стреляли" по собственному 
разумению - чуть ближе, чуть дальше, а компьютеру надо точно объяснить, куда "стрелять" в 
поисках нужного решения. 


Давайте посмотрим на графике (рис. 1), как мы двигались к решению, начиная от 
Х=10, У=5. 
у 
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Как видите, мы все время "бегали" по одной прямой, пока не нашли на ней точку, 
близко лежащую к истинному решению. Да это и не удивительно, ведь мы все время делили 
отрезок пополам. Но так дело не пойдет. Это хорошо, что у нас только два неизвестных и 
наш график имеет две координаты Х и У (его можно изобразить на даже на плоскости). А 
если бы неизвестных было штук пять? Вы не представляете, что такое пятимерное 
пространство? Мы тоже не представляем, и как попасть прямой линией в таком 
пространстве в нужную точку? Это действительно трудно представить. 

Для того, чтобы "освободить" себя от блуждания по одной прямой и выйти за ее 
пределы (например так, как показано на Рис. 2), надо "отпустить" Х и \У от необходимости 
делить отрезок пополам при поиске нового приближения и разрешить компьютеру самому 


выбирать, какое приращение на Х и \ он будет делать на каждом шагу. Можно даже 
разрешить ему это делать случайным образом. Пусть бегает где хочет, все равно мы 
примем только те его шаги, которые ведут к уменьшению "невязки", а все прочие отбросим. 

Так наш компьютер “выйдет" за пределы роковой прямой. Если у нас пять 
неизвестных, то он начнет "блуждать" в пятимерном пространстве, медленно но верно 
подходя к приемлемому (хоть и не точному) решению. 


Такой метод расчета известен в математике под названием "случайного" поиска. 

Наметим алгоритм: 

1. Ввод уравнения. 

2. Ввод предельных значения неизвестных. 

3. Выбираем первую точку в качестве средней между предельными значениями 
неизвестных. 

4. Расчет "невязки". 

5. С помощью генератора случайных чисел определяем "приращение" для каждой из 
координат. 

6. Получаем новую точку. 

7. Проверяем, не выходит ли она за пределы допустимых значений по координатам. 
Если да, то возвращаемся нап. 5. 

8. Рассчитываем "невязку" и сравниваем ее с предыдущей "невязкой". Если она по 
абсолютной величине больше, чем предыдущая, то такой шаг нам не нужен, возвращаемся 
на п. 5. 

9. Делаем новый шаг в том же "направлении", что и предыдущий случайный шаг. 
Теперь нам генератор случайных чисел не нужен, не стоит тратить время на случайный 
поиск направления, раз мы его уже нашли. 

10. Проверяем не вышли ли мы за пределы допустимой области. Если да, то возврат 
на п. 5 (снова включаем случайный поиск). 

11. Проверяем значение "невязки". Если она возросла, то шаг отменяется и 
возвращаемся на п. 5 для поиска нового направления, а если уменьшилась, то 
возвращаемся на п. 9 и шагаем в том же направлении еще раз. 

Можно сделать кое-что еще. Во-первых, мы имеем здесь бесконечный цикл, поэтому 
надо предусмотреть окончание расчетов и выход из него по достижении какого-то значения 
"невязки". 

Во-вторых, можно ускорить работу, если после удачного шага делать следующий шаг 
в том же направлении например в два раза длиннее. А после неудачного шага не бежать 
сразу к случайному определению нового направления, а попробовать шагнуть еще раз туда 
же, но в десять раз короче. 

Можно повысить надежность наших расчетов, запуская одну и ту же программу 
несколько раз. Поскольку у нас неизвестных больше, чем количество уравнений, то может 
быть получено много разных пар Х и\У, которые удовлетворяют решению задачи. Определив 
случайным образом несколько таких пар, можно подумать и выбрать среди них 
оптимальную. 

Можно предложить еще множество разных усовершенствований и ухищрений и 
каждый, кому понадобится использовать метод случайного поиска для решения своей 
задачи сможет доработать его так, как ему надо. 

От себя же добавим, что у метода случайного поиска, хоть он и работает довольно 
медленно, есть одна интересная особенность. Дело в том, что при применении других 
численных методов расчет хоть происходит и быстрее, но, встречаются ситуации, когда он 
заходит в тупик. Математики говорят, что расчёт "попал в яму" или "в овраг", и обычными 
способами из такого оврага не выбраться. А с помощью случайного поиска - пожалуйста. 
Поэтому применяют иные, быстроработающие методы, но когда оказывается, что "невязка" 
начинает уменьшаться слишком медленно, то подключают случайный поиск и он выводит из 
тупика. 

Представьте себе, что на неровную холмистую лужайку бросили мяч. Ваша задача - 


закатить его в самую низкую точку этой лужайки (минимальная невязка). Если он попал на 
холм, то он бодро покатится туда, куда надо (работает быстрый численный метод), но если 
по пути он закатится в какую-либо ямку, рытвину или овраг - дело плохо, сам он оттуда не 
выкатится. Его надо "встряхнуть", еще раз подкинуть, чтобы он мог катиться дальше - это и 
сделает вовремя подключенная процедура случайного поиска. 


10 НЕМ **х Метод случайного поисках** 
20 ОЕР ЕМ А(Х,\У) = Х+Х»У+Х»Х+У»Уу - 44: ВЕМ Ваше уравнение. 
30 (ЕТ хмах = 20: [ЕТ хип 


=0: [ЕТ утах = 10: 1ЕТ ут1п=0: АЕМ ввод граничных условий. 
40 ТЕТ х=(хтах+хт1п)/2: 1ЕТ у=(утах+ут1п)/2: АВЕМ исходная точка поиска 
45 60 50В 400:ВЕМ расчет невязки. 
48 ТЕТ 9111 = а91г: НЕМ запомнили невязку. 
49 @0 508 300: ВЕМ печать. 


50 [ЕТ хзфер = (хмах-хт1п)/10: ТЕТ узфер = (утах-ут1п)/10: АЕМ стандартный шаг поиска. 
60 60 50В 500: ВЕМ определение случайного направления. 
у 
1 


70 ТЕТ х1=х+ах: [ЕТ у1=у+ду: КЕМ Поиск новой точки. 

80 ТЕ х1 > хмах ОВ х1 < хит ОВ У1 > утах ОН У1 < ут1п ТНЕМ 60 ТО 60: ВЕМ При выходе за 
границы зоны надо повторить поиск новой точки. 

90 (ЕТ х=х1: [ЕТ у=у1: АЕМ переход новой точке. 

100 60 5ИВ 400: ВЕМ расчет новой невязки. 

110 ТЕ АВЗ(а1т) < АВЗ(91т1) ТНЕМ @0 ТО 130 

120 ГЕТ х=х-ах: ТЕТ у=у-ау: 60 ТО 60: ВЕМ если невязка оказалась больше, чем была, то эта 
точка нам не нужна. 
130 ТЕТ 9111 = 917: ВЕМ запомнили новую невязку. 
140 60 5ИВ 300: ВЕМ печать 
150 ТЕ АВУ(9111) < 1.0 ТНЕМ $ТОР: ВЕМ если достигнута заданная точность, то конец работы. 
160 60 ТО 70: АЕМ Возврат для следующего шага. 

300 РВТМТ "Х= ”;х; ТАВ 10; "У= ";у; ТАВ 20; "БТЕЕ= "; 9111 


310 ВЕТИУВМ 

400 ЕТ @1Р = Е№М А(х, у) 

410 ВЕТУВМ 

500 ТЕТ Чх=хзфер»(2»*НМО-1):ЕЕТ ду=узфер* (2*ВМ0-1) 
510 ВЕТИВМ 


Примечание. Здесь мы используем не функцию ВМО, а 2*АМО-1. Это сделано потому, 
что ВМО дает результат в диапазоне 0...1, а нам нужно в диапазоне -1...+1, иначе наш поиск 
будет не случайным, а все время будет уводить нас вправо и вверх. 

В строке 50 мы задали параметры х\ер и уер - это как бы сила того толчка, с 
которой застрявший мяч выбрасывается из ямки. Мы взяли эту величину, равной одной 
десятой размеров "игрового поля". Если взять мало, то силы может и не хватить и мячик не 
найдет более удачного продолжения своему пути, а если взять слишком много, то он будет 
слишком долго метаться по игровому полю, а то и вообще выходить за его пределы. Можно 
подобрать эту величину экспериментально, а можно и сделать ее плавающей, в 
зависимости от того, как близко к финалу мы подошли. 

Проведя расчеты по приведенной выше программе мы получили следующую тректорию 
поиска. 

Невязка 
141 

78 

-7.5 
-4.9 
-1.7 
-1.2 
0.66 


График поиска показан на рис. 2. 


ь 2.5 5.0 7.5 х 


Результат очень близок к задуманному. Но для проверки его точности мы еще пять раз 
повторили поиск и получили еще пять возможных ответов. 


Как видите, здесь результаты уже не столь близки к задуманным, но зато мы можем 
сузить диапазон "возможных" значении для Хи\У. Например так: 

ХМАХ = 6: ХММ =0: 

УМАХ =6: УММ =0 

И теперь "прогон" программы еще восемь раз дал другую серию результатов: 


2.51 
25% 

А теперь, в заключение этой статьи, мы предлагаем Вам пару легенд, из которых Вы 
поймете, что такие "детские игры" могут в реальной жизни приводить к экономии тысяч 
рублей личных и миллиардов рублей государственных денег. 


1. 

Дело было почти 20 лет назад. СССР произвел запуск очередной межпланетной 
станции в дальний космос. Как на грех, сразу после пуска выясняется, что одна из 
ответственнейших систем вообще не работает. Причем, пока она и не нужна, а вот когда 
через несколько месяцев станция дойдет до конечной цели своего путешествия, то без нее 
не обойтись. Но меры можно предпринимать только сейчас, потом будет поздно. Надо что- 
то срочно делать. 

Было несколько путей выхода из создавшегося положения и окончательный выбор 
решения лег на плечи молодого специалиста, стаж работы которого был около двух лет. 
Поставили срок - три дня и поручили обосновать принятое решение необходимыми 
расчетами. 

Уже через под-дня грубых расчетов оказалось, что предсказать, что даст то или иное 
решение можно только решив пару уравнений размером в пол-страницы, в котором к тому 
же было пять неизвестных параметров. Конечно, эти параметры можно было "вытаскивать" 


ставя практические эксперименты, но на это нужны были бы годы и такая работа оказалась 
бы на уровне десятка кандидатских диссертаций. 

Беглый поиск в технической библиотеке показал, что можно попробовать воевать с 
таким уравнением. Еще пол-дня ушло на изучение основ вариационного исчисления и 
теории оптимального управления, а еще через два дня после отсева всего лишнего, 
почерпнутого из научных трудов, родился алгоритм, немного похожий на предложенный 
Вам. Решение было найдено и подтверждено расчетами, благо ЭВМ ЕС-1022 в те годы уже 
существовала. 

Дело оставалось за малым - защитить это решение перед Государственной 
комиссией и убедить ее в правильности предложенных мероприятий. 

Начальника отдела чуть не хватил удар, когда он увидел, что решение получено из 
двух уравнения с кучей неизвестных. Его реакцию словами не передать, и вот тогда и 
началась игра, которую мы Вам описали в самом начале. Задумывались числа, 
составлялись уравнения, а молодой специалист "угадывал" то, что задумал начальник. 
Пришло еще более высокое руководство и увлеченно включилось в игру. Одним словом, 
вдоволь наигравшись, они вынуждены были перекреститься и согласиться на рискованное с 
их точки зрения решение. Их поддержка на заседании Госкомиссии решила дело. Конечно, 
вопрос о том, каким путем решалось уравнение там не поднимался. Военные - люди 
серьезные, им не до таких мелочей. Им важно знать, что будет и как будет и кто будет 
отвечать, если все будет не так, а иначе. 

Можно ли использовать положительные результаты кабинетной игры в обоснование 
сложных расчетов для ответственной техники? Во всяком случае, акты и протоколы были 
подписаны и ответственность легла на плечи отважных начальников - их убедила именно 
игра! 

Через четыре месяца после этого станция полностью выполнила поставленную перед 
ней задачу, а поведение всех систем по данным телеметрической информации совпало с 
расчетным с точностью до полутора процентов, так были спасены миллиарды 
государственных рублей, затраченных на программу полета. Восторги молодого 
специалиста по этому поводу можно не описывать, а отважные начальники лукаво 
усмехались, принимая поздравления на самом высоком уровне. 


История получила, кстати, неожиданное продолжение. Мы ведь сказали, что в 
уравнение входило много неизвестных параметров, для определения которых требовались 
длительные и дорогие испытания техники. Но раз уж приближенное решение было найдено, 
то интересно стало поглядеть и на то, чему эти параметры оказались равны. Так вот, два из 
них оказались настолько далеки от того, что предсказывала теория, что это вызвало массу 
сомнений. Раз за разом случайным поиском искались новые решения, но эта два параметра 
все равно отличались от теории раза в два. Впоследствии, когда экспедиция закончилась 
успешно и подтвердила расчет, стали проверять теорию и выяснили, что в ее основу была 
положена модель начала 60-х годов, которая успела устареть. Скорректировав модель и 
построив новую теорию, с удивлением обнаружили, что эти параметры оказались почти 
такими, как показало решение уравнения со многими неизвестными. 


2. 

Год 1990-ый. Только что появился на свет "ИНФОРКОМ" и сразу предложил своим 
клиентам первый десяток методических разработок. 

Встал щепетильный вопрос определения цены на каждую. Большую цену назначить 
нельзя. Деньги, затраченные на их подготовку и печать не вернутся и фирму ждет 
мгновенная смерть. Малую цену назначить нельзя, ибо если спрос превысит очень 
ограниченные физические возможности коллектива, то не хватит подготовленного тиража, 
не хватит сил и времени на транспортировку и отправку, не хватит места для хранения, 
сорвется подготовка новых работ. Пойдут срывы заказов, потеря доверия клиентов и в итоге 
тоже смерть. 

Два десятка неизвестных (цена на каждую из разработок и их тиражи) вошли в 


несколько уравнений, увязывающих физические возможности коллектива, полиграфические 
мощности дружественного предприятия, почтовые возможности дружественного отделения 
связи и потенциальные финансовые возможности неизвестных будущих клиентов. 

Расчет проводился на этот раз уже не на ЕС-1022, а на "Спектруме", что намного 
удобнее, по той же известной теперь Вам методике и в результате его были получены цены, 
которые надо назначить на ту или иную разработку и примерный ожидаемый тираж (для 
каждой - свой). По прошествии года исключительно ради интереса было проведено 
сравнение того, что дал компьютер с тем, что оказалось на самом деде. Самая грубая 
ошибка составила всего 35 процентов. Так еще раз удачно сработала эта увлекательная, но 
очень полезная игра. 


В заключение хочется еще раз напомнить тем, кто нас читает - игра дело серьезное! 
Играйте на здоровье, но старайтесь при этом одновременно и обогащаться знаниями - кто 
знает, когда это пригодится! 


УМСЁЕАВ ГОСО 


(Продолжение) 
Начало см. на с. 69-74, 90-95, 178 - 182. 


7. И снова об обработке списков. 


Мы уже видели с Вами некоторые процедуры, выдающие какой-то результат и 
назвали их операциями. С помощью команды ОЧТРУТ Вы можете сами создавать такие 
операции. В этом случае команда ОЧТРУИТ определяет то значение, которое должно быть 
возвращено в качестве результата. Например, если мы хотим создать процедуру, которой 
нам не хватает в стандартной версии ЛОГО, такую, которая будет вычислять разность двух 
чисел аналогично тому, как процедура ЗУМ вычисляет их сумму, то мы делаем так: 


ТО ОТЕРЕНЕМСЕ: МУМ1: МУМ2 
ОУТРУТ ММ - :№М2 
ЕМО 


и тогда: 

РАТМТ ОТРЕЕЕВЕМСЕ 7 5 
даст результат: 
2 


Когда ЛОГО встречает команду ОЧТРЧУТ, он передает то значение, которое находится 
справа от слова ОЧТРУОТ и останавливает процедуру. Поэтому ГИЕЕЕАЕМСЕ 7 5 имеет 
значение 7-5. 

Вы можете в одной процедуре иметь несколько команд ОЧТРЧУТ, но в этом случае они 
должны стоять в разных ветвях |, поскольку первая же встреченная команда ОЧТРИТ 
прервет исполнение процедуры, действительно, нам ведь нужен только один результат ее 
работы. 

Например, Вы можете сделать так, чтобы процедура вычисления разности двух чисел 
всегда выдавала положительный результат. Для этого надо, чтобы оба числа сравнивались 
между собой и из большего вычиталось меньшее. 


ТО ОТЕРЕНЕМСЕ :МУМТ :ММ2 
ТЕ :МУМ1> :ММ2 [О0УТРУТ :МУМ1-:ММ2 ] 
ОУТРУТ :№М2 - :№ММ1 
ЕМО 
РВТМТ ОТЕРЕВЕМСЕ 10 3 
7 
РАТМТ ОТЕРЕВЕМСЕ 2 6 
4 


Можно, конечно, было записать и так: 
ТЕ МОМ1> :МУМ2 [ОУТРУТ :МУМ1-:МУМ2 [ОУТРУТ :МУМ2-:МИМ1] 


но в этом нет особой необходимости, если исполняется первая команда ОЧТРЧУТ, то и 
процедура закончится, а до второй команды ОЧТРЧУТ дело и не дойдет. 

Точно так же можно сконструировать и процедуру, выдающую по команде ОЧТРОТ 
слово или список. Например, мы хотим узнать, начинается ли слово с гласной буквы или нет. 
Если да, то в качестве артикля перед ним надо ставить по правилам английской грамматики 
не "А", а "АМ". 

Поскольку нас интересует только первая буква в слове, то неплохо проверить, не 
является ли слово пустым списком. 

Вот пример, который выдает значение "АМ", если слово начинается с гласной, или 
выдает "А", если слово начинается с иной буквы или выдает пустой символ, если слово - 


пустое. 


ТО АНТТСЕЕ :АМОВО 


А 
ТЕ ЕМРТУР :АМОВО [О0ТРИТ ^ 
Т 
0 


[И 


Е МЕМВЕН? ЕТАЗТ :АМОВОГА 
ОТРУТ “А 


ТО Ц [ОЦТРИТ “АМ] 


ЕМО 


Попробуйте сами изменить процедуру АВТ!СЕЕ так, чтобы она могла работать не 
только с прописными, но и со строчными буквами тоже. Бывают случаи, когда операциями 
надо пользоваться очень осторожно. Прежде всего, некоторые операции могут иметь 
побочные эффекты, т.е. они могут вести себя как команды. Например, мы можем создать 
операцию, которая запросит имя пользователя и выдаст первое из введенных в нее слов в 
качестве результата. 


ТО СЕТМАМЕ 
РВТМТ [\МНАТ 15 УОУН МАМЕ] 
ОУТРУТ РТАЗТ НЕАБЕТЗТ 
ЕМО 


Поэтому: 
МАКЕ “\УОУ СЕТМАМЕ 
даст сообщение 
МНАТ 15$ УООВ МАМЕ 
и будет ждать ввода с клавиатуры, прежде чем передаст первое прочитанное слово в 
качестве результата операции. Все это выглядит достаточно просто, но что будет, если Вы 
попробуете: 
РАТМТ СЕТМАМЕ 
Обратите внимание на то, что внутри процедуры СЕТМАМЕ тоже имеется команда 
печати РАМТ. ЛОГО вычисляет результат работы процедуры справа налево и потому 
сначала исполнит СЕТМАМЕ, а затем передаст результат команде РАМТ. 
То же самое произойдет и в команде: 
РАТМТ ЗЕМТЕМСЕ “НЕГО СЕТМАМЕ 


Здесь и СЕТМАМЕ и "НЕЦШО обеспечивают входные данные для команды ЗЕМТЕМСЕ, 
которая передает свой результат команде РАМТ. 
Попробуйте: 


РВТМТ (ЗЕМТЕМСЕ СЕТМАМЕ “АЕТАЗ СЕТМАМЕ) 


и посмотрите, получится ли в итоге именно тот результат, которого Вы ждете. 
Второй момент, о котором нужно всегда помнить, заключается в том, что всякий раз, 
когда вызывается исполнение операции, она работает, как в первый раз. 


РАТМТ ОТЕРЕВЕМСЕ 7 5 


2 
РАТМТ ОТЕРЕВЕМСЕ 7 5 
2 


Так все и должно быть и ничего иного мы и не ждем (но при многократных повторных 
вычислениях на это уходит много времени). Сколько бы раз Вы не вызывали СЕТМАМЕ, эта 
процедура всегда будет делать запрос и ждать ввода с клавиатуры. Если же Вам надо 
запомнить то имя, которое было введено в самый первый раз, то Вам надо присвоить его 
символьной переменной и обращаться к ней всякий раз, когда Вам будет необходимо: 


МАКЕ ”УОУ СЕТМАМЕ 
РАТМТ ЗЕМТЕМСЕ “НЕЁЕО :У%09 
РВТМТ ЗЕМТЕМСЕ [Т АМ СЁЕАО ТО МЕЕТ %0у]: У09 


Уровни процедур. 
Когда одна процедура вызывает другую, мы говорим, что мы перешли на второй 
уровень процедуры. Если и эта процедура, в свою очередь, вызывает еще одну, то это уже 
третий уровень и т. д. Вот, например, три процедуры: 


ТО РНОСТ 
РАТМТ [Е Е\МЕЕ 1] 
РВОС2 
ЕМО 
ТО РНОС2 
РАТМТ [ЕЕ\УЕЕ 2] 
РВОСЗ 
ЕМО 
ТО РНОСЗ 
РВТМТ [1ЕМЕЁ 3] 


ЕМО 


Здесь РАОСТЛ - это первый уровень. Когда она вызывает РРОС2, мы переходим на 
второй уровень. Когда же она вызывает РВОСЗ, то это уже третий уровень, после чего Вам 
надо выполнить три команды ЕМО, ЭТОР или ОЧТРЧОТ, прежде чем мы вновь вернемся на 
верхний уровень (нулевой уровень). 

Нулевой уровень в ЛОГО - это командный уровень, именно на нем Вы находитесь, 
когда перед Вами на экране изображено приглашение "?". Есть и специальная команда 
ТОРЕЕМЕЕ, которая позволяет сразу вернуться на верхний уровень, независимо от того, где 
Вы находитесь. Впрочем, этой командой пользоваться не рекомендуется, разве что в случае 
крайней необходимости. 

Уровень, на котором Вы находитесь, никак не зависит от содержания тех процедур, 
которые Вы исполняете, а зависит только от того, сколько процедур, вложенных друг в 
друга, Вы исполнили. Представьте себе, что каждая встреченная на Вашем пути процедура - 
это ступенька вниз, а каждая встреченная команда ЕМО, ЭТОР или ОЧТРЧУТ - это ступенька 
вверх. Поэтому, если находясь на самом верхнем (командной) уровне Вы вызовете РВОСЗ, 
то перейдете на первый уровень, хотя по своему содержанию РРОСЗ устроена так, что 
выдаст сообщение <1Е\ЕЕЗ>. 

Интересны реккурентные процедуры. Они могут уходить в глубину на очень много 
уровней. 


ТО БОЕЕМЕЕ :№ 
РАТМТ ЗЕМТЕМСЕ “ЕЕУЕЕ :№ 
ТЕ :№<1ОГрОЕЕМЕЕ :№+1] 
ЕМО 


Тогда команда ООТЕ\МЕЕ1 даст следующую печать: 
ОВ К, Г, 
БЕ\ЕТ,2 
ОВ К, [,3 
БЕ\УЕТ.4 
ОВ К, [5 


ОВАЕТ,6 
ГО\ЕТ, 7 
ОВАЕТ,8 
ОВАЕТ.9 

Когда же, в конце концов, М станет равно 10, мы выполним команду ЕМО на 9-ом 
уровне, потом на 8-ом и так далее до верхнего уровня, в этом можно и убедиться самому, 
если изменить ООГЕМЕЕ так: 


ТО БОЕЕМЕЕ :№ 
РНТМТ ЗЕМТЕМСЕ -ЕЕУЕЕ :№ 
ТЕ :№10 [БОЕЕМЕЕ: +1] 
РНТМТ “ЕТМТЗН 

ЕМО 


ВОГЕМЕЕ 1 
[ ВЕ, [1 


1 
ОВАЛЕТ, 2 
18, у 
Г Ектет 
18, \/ Ву 
ОВАГЕ1,4 
18, у 
Г ЕКтет 
18, \/ Ву 
1 
1 
1 
1 


ПРАГЕ, 6 
ОВАГЛЕТ, 7 
ОВАЕТ,8 
ПВУЕТ,9 


`фоф‚ф„‚„О„оФОоФ 


Глобальные и локальные переменные. 
Когда слово используется в качестве входного параметра в процедуру (при 
определении процедуры), тогда при вызове процедуры это слово должно принимать то 
значение, которое было задано при вводе. Простой пример: 


ТО ЗАУМИМ :№ 
РВТМТ ЗЕМТЕМСЕ [№ 1$] :№ 
ЕМО 


И тогда: 
ЗАУМОМ 5 
дает ожидаемый результат: 
№ 15: 5 
Теперь попробуйте так: 
МАКЕ "№ 7 
ЗАУМОМ 5 
№155 
А теперь попробуйте: 

РАТМТ № 

На этот раз результат будет неожиданным - 7. ЛОГО запомнит то значение, которое 
имела переменная М до вызова процедуры и отложит его до тех пор, пока процедура не 
закончится. 

Итак, мы можем считать, что переменная М в процедуре ЗАУМУМ является локальной 
для данной процедуры, т.е. ЗАУМУМ имеет свое собственное значение М, которое может 
быть использовано только внутри этой процедуры. Те же слова, которые не указаны при 
определении процедуры в качестве ее параметров, являются глобальными (т.е. значения 
этих переменных одинаковы во всех частях программы). Отсюда вытекает одно важное 
следствие для того случая, когда используем несколько уровней вложения процедур. Мы 
покажем его на примере трех процедур РВОС1, РВОС2, РАВОСЗ. 


ТО РВОСЛ : 

РВТМТ ЗЕМТЕМСЕ “РВОСЛ : ММ 

РВОС2 5 

РВТМТ ЗЕМТЕМСЕ [РВОСЛ АСАТМ] :М№М 
ЕМО 
ТУ РЕОС Е. 3 

РВТМТ ЗЕМТЕМСЕ “РВОС2 : ММ 

РВОСЗ 7 

РВТМТ ЗЕМТЕМСЕ [РВОС2 АСАТМ] : ММ 
ЕМО 
ТО РВОСЗ : 


РАТМТ ЗЕМТЕМСЕ “РВОСЗ :МОМ 
ЕМО 


Здесь процедуры 1 и 2 печатают значение своего параметра прежде, чем вызывать 
следующую процедуру, поэтому: 

РВОСТ 3 
ВОС2 5 
ВОСЗ 7 
ВОС2 АСАТМ 5 
ВОС1 АСАТМ 3 

Итак, ЛОГО "помнит", какому уровню процедур, какое значение МУМ соответствует. 
Проще всего, по-видимому, представлять себе локальные переменные, как совершенно 
новые переменные, когда Вы находитесь внутри процедуры, несмотря на то, что они могут 
иметь то же имя, что и переменные, встречающиеся вне этой процедуры. 

Если локальная переменная изменяется внутри процедуры, то это не имеет никаких 
эффектов на все одинаковые переменные вне этой процедуры. Если же изменяется 
глобальная переменная, то это изменение действует всюду, например: 

ТО ТЕЗТ :МИМ 
МАКЕ “МОМ :ММ+1 
РВТМТ ММ 
МАКЕ “ОТНЕВ :ОТНЕВ+1 


Р 
Р 
Р 
Р 


ЕМО 
АКЕ “ММ 5 
АКЕ “ОТНЕВ 7 
Е и. 5 
6 
РНАТМТ : ММ 
5 
РНТМТ :ОТНЕВ 
8 


Это имеет важное значение для рекурсии, Вы можете положиться на ЛОГО, когда он 
закончит рекуррентную процедуру в том смысле, что ЛОГО "помнит", где он был и каковы 
были там значения локальных переменных. 


Команда ОЧТРЧУТ для реккурентных процедур. 

Вы можете использовать процедуры рекуррентно, поставив в команду ОЧТРУЧТ имя 
самой этой же процедуры, но если Вам надо, чтобы эта процедура все-таки закончилась и 
при этом выдала бы какой-то результат. Вам надо иметь еще хотя бы один ОЧТРЧУТ, в 
котором не происходит реккурентного вызова этой процедуры еще раз. 

Чтобы все это стало ясным, мы изменим ранее использованную процедуру СЕТМАМЕ 
так, чтобы она запрашивала имя пользователя и выдавала бы первое слово введенного 
имени, если это возможно, а если нет, то печатала бы соответствующее сообщение и 
вызывала бы саму себя для повторения попытки. Правда, имейте в виду, что это приведет и 
к повторной печати запроса. Мы не будем здесь пользоваться конструкцией НА$ЗТ 
ВЕАОБЦЫЗТ. 

Поскольку оператор НЁАЗТ не любит пустые списки (и это естественно) и потому 
сначала проверим, не является ли введенный список пустым, а только потом будем к нему 
применять оператор ЕВ$Т. 


ТО СЕТМАМЕ 
РАТМТ [ПОЖАЛУЙСТА НАЗОВИТЕ ВАШЕ ИМЯ] 
МАКЕ “УОУ ВЕАБЕТЗТ 
ТЕ ЕМРТУР :УОУ[РАТМТ[ХОТЯ БЫ ОДНО ИМЯ У ВАС ДОЛЖНО БЫТЬ] 
МАКЕ “УОЦ ЕТНЗТ :\00 
ТЕ МОМВЕВР : УОУ[НОМЕР ВМЕСТО ИМЕНИ БЫВАЕТ ТОЛЬКО У ЗАКЛЮЧЕННЫХ ] ОПТРУТ СЕТМАМЕ] 
ОЦТРУТ :У09 
ЕМО 


Это же можно проиллюстрировать на примере процедуры, входными параметрами 
которой будут число и слово, а в качестве результата будет слово, в которое будут вводить 


столько символов, сколько указано входным числом. Итак: 
ОТАВТ 5 “АЕСУВЗТУЕ 

выдаст 

ВЕСОВ. 

Если :М - это число, а ЛММ/ОВАО - входное слово, то мы хотим получить от него :М 
первых символов. Теперь мы можем выделить из слова первый символ. После этого можно 
рекуррентно вызывать процедуру ЗТАРТ до тех пор, пока еще не будут выданы :№-1 
символов от оставшейся части входного слова 1М\М/ОВО, т.е. 

ОТАВТ :№-1 ВИУТЕТА$Т :ТАМОВО, 


а затем поместить первый символ в новое слово: 
МОВВ РТВЗТ :ТММОНО 
ОТААТ :№-1 ВУТЕТВУТ :ТАМОНО, 


после чего выдать его в качестве результата с помощью ОЧТРУИТ. 

Пока все идет хорошо, но встает традиционный вопрос: "Где же остановить 
рекурсию?" Поскольку М постепенно уменьшается и указывает на то, сколько еще символов 
мы хотим получить, то остановиться надо тогда, когда :М равно нулю и выдать "пустое 
слово" для обеспечения перехода ЗТАЛНТ вверх на предыдущий уровень. 


ТО $ТАНТ :№ :1ММОВВ 
ТЕ :М№= [0 О0ТРИТ" ] 
ОУТРУТ МОНО ЕТАЗТ :ТМОВО 
ОТАВТ :№-1 ВУТЕТВУТ :ТМОНО 


ЕМО 
РВАТМТ 5ТАВТ 5 “ВЕСИВУТУЕ 
ВЕСОВ 
Давайте проследим ход работы процедуры с помощью следующей таблицы (табл. 1): 
Таблица 1 
Уровень :М : ТМИОВО ЕТВСТ ВОТЕТВСТ ОПТРОТ 
: ТМИОВО : ТММОВО 
т Б ВЕСОВСТУЕ В ЕСОВСТУЕ 
2 4 ЕСОВСТУЕ Е СОВУТУЕ 
3 3 СОВУТУЕ С ОВСТУЕ 
4 2 ОВСТУЕ в] СТАЕ 
5 ий ВСТ\Е В СТУЕ 
6 0 ь 
5 1 СТАЕ В в=МОВО"В" 
4 2 ОВСТУЕ Е ОВ=МОВО"О"В 
3 3 СОВСТУЕ С. СОВ=ИОВО"С" ОВ 
2 4 ЕСОВСТУЕ 8] ЕСОВ=МОВО"Е"СОВ 
1 5 ВЕСОВСТУЕ В ВЕСОВ=МОВО"В"ЕСОВ. 


Вложенные списки. 
В качестве элементов списков в ЛОГО тоже могут быть списки. В этом нет ничего 
удивительного. Если мы составим список того, что лежит у нас в кармане, то можем 
получить: 


[МОНЕТА КАРАНДАШ ЛАСТИК СПИСОК ПОКУПОК] 


Обратите внимание на то, что объекты, входящие в список покупок вовсе не являются 
элементами списка того, что лежит у нас в кармане, таким образом, список содержимого 
кармана имеет 4 элемента, несмотря на то, что список покупок сам является списком: 


[ХЛЕБ МОЛОКО МЯСО МАРКИ] 


а ХЛЕБ не является вещью, находящейся в кармане. 
Более того, ЛОГО даже допускает создать такой список содержимого кармана: 


[МОНЕТА КАРАНДАШ ЛАСТИК [ХЛ 


т 


'Б МОЛОКО МАСЛО МАРКИ] ] 


и в этом списке по-прежнему всего 4 элемента, несмотря на то, что четвертый 
элемент представляет из себя список из 4-х элементов. 
Сколько же элементов в следующем списке? 


т 


[[ХЛЕБ МОЛОКО МАСЛО МАРКИ] [ДЖЕЙН ДЭВИД РОЗМАРИ] [СТИРКА ГЛАЖКА] 
[8 МАЯ 20_ИЮНЯ 1_ИЮЛЯ 10_СЕНТЯБРЯ 23_НОЯБРЯ] ] 


В этом списке 4 элемента. Все они - тоже списки. Проще было бы дать им имена: 


[ПОКУПКИ ДРУЗЬЯ ЗАБОТЫ ДАТЫ] 


Вы составили такой список для себя, теперь Вы можете составить аналогичный 
список для друга и еще раз для кого-то и тогда получите список списков: 


[МОЙ ТВОЙ ЧУЖОЙ] 


Здесь МОЙ - это [ПОКУПКИ ДРУЗЬЯ ЗАБОТЫ ДАТЫ1, точно так же ТВОЙ и ЧУЖОЙ. Так 
можно продолжать и дальше, вкладывая список один в другой, но наверное стоит 
остановиться и предоставить такую работу ЛОГО. 


Процедуры создания списков 
Мы уже использовали команду ЗЕМТЕМСЕ для того, чтобы создать список из двух и 
более элементов, которые могут быть словами или списками. Эта команда объединяет их в 
один список, снимая внешние квадратные скобки и переписывая весь список заново. 
Например: 


(ЗЕМТЕМСЕ [ВОТ ВАМ][ПРИМЕР ДЕЙСТВИЯ] [ОПЕРАТОРА ЗЕМТЕМСЕ]) 


выдает в качестве результата: 
[ВОТ ВАМ ПРИМЕР ДЕЙСТВИЯ ОПЕРАТОРА ЗЕМТЕМСЕ] 


Сейчас же мы с Вами рассмотрим три новых оператора, по-разному создающих 
списки. 

ЕРОТ (это Ризт РОТ). Имеет два входных параметра. Второй параметр - список. 
Команда ЕРИТ создает новый список, в котором первый элемент берется из первого 
входного параметра, а остальная часть списка из второго. 

Например: 

ЕРИТ “РАЗ[ДВА ТРИ ЧЕТЫРЕ] 


выдаст список: 
[РАЗ ДВА ТРИ ЧЕТЫРЕ] 


В отличие от ЗЕМТЕМСЕ здесь не происходит слияния внешних квадратных скобок при 
объединении списков, например: 
ЕРИТ [РАЗ ДВА[ТРИ ЧЕТЫРЕ] 


дает: 
[[РАЗ ДВА] [ТРИ ЧЕТЫРЕ] 


Можете считать, что ЕРИТ берет свой первый параметр и ставит его в первую позицию 
второго параметра. 


Другой оператор, который мы рассмотрим, - это ПРУТ (Ёа${ РОТ). Он работает 
совершенно аналогично, но с одним исключением. Первый параметр ЁЕРУТ ставится 
последним элементом в списке, выраженном вторым входным параметром. 


ГРИТ [ПОСЛЕДНИЕ СЛОВА] [ЭТО] 


дает: 


[ЭТО [ПОСЛЕДНИЕ СЛОВА] ] 


Третий оператор - М$Т. Он имеет два или более входных параметров и выдает их в 
виде списка, независимо от того, являются ли они списками или словами. 


ЕТ$Т "БАНК [ХЛЕБ МОЛОКО МАСЛО МАРКИ] 


имеет два входных параметра и выдает список следующего содержания: 
[БАНК [ХЛЕБ МОЛОКО МАСЛО МАРКИ] 


Если МЗТ имеет более двух входных параметров, то они должны быть заключены в 
круглые скобки. 


(ЕТЗТ “БАНК [ХЛЕБ МОЛОКО МАСЛО МАРКИ] [ДЖЕИН ДЭВИД РОЗМАРИ]). 


выдает список: 
[БАНК [ХЛЕБ МОЛОКО МАСЛО МАРКИ] [ДЖЕИН ДЭВИД РОЗМАРИ]] 


т. 


Можете полагать, что команда МЗТ просто берет все свои параметры и ставит вокруг 
них дополнительную пару квадратных скобок. 

ВНИМАНИЕ! Когда МЗТ используется более, чем с двумя параметрами и один из них 
равен самому списку М$Т, то в этих случаях оператор не всегда работает правильно. Он 
также может вызвать проблемы, если включен в квадратные скобки при операторе ВЕРЕАТ 
или в список Е. Очень сложные конструкции, таким образом, следует создавать постепенно. 


Сортировка чисел. 

Теперь мы посмотрим, как можно использовать списки для создания сложных 
структур данных и для некоторых других практических целей. Сначала мы рассмотрим 
вопрос сортировки последовательности чисел, введенных с клавиатуры, сортировка данных 
это очень важный вопрос, в котором проявляется мощь компьютеров. Существует много 
методов для выполнения сортировки, но мы остановимся на одном из них. 

Мы будем хранить числа в структуре, называемой "деревом". На рис. 1 показан 
пример такого дерева. 


. 
ий № 
3 8 
й Х 
2 5 
Й 
д 
Рис. 1 


Если не очевидно, почему эта структура получила такое название, переверните 
рисунок вверх ногами. Каждое обведенное число называется "узлом", в каждом из узлов 
дерево может ветвиться (максимум на две ветви). 

Посмотрите, как это организовано. Возьмем, например, число 6 и введем его в наше 
дерево. Начнем с вершины и в каждом узле будем сравнивать наше число с тем, что 


содержится в данном узле. Если наше число меньше, то из узла пойдем по левой ветви, а 
если больше - то по правой. 

Представим, что число 6 помещается на вершину дерева, поскольку 6<7, то идем вниз 
по левой ветви к числу 3. Здесь у нас 6>3 и продолжаем путь по правой ветви к числу 5. Раз 
6>5. то и здесь надо пойти по правой ветви, но на сей раз у нас правой ветви нет и ее надо 
сделать. Просто пририсуем правую ветвь к узлу 5 и поставим в ее конце узел 6. 

Итак, каждый узел может иметь две ветви, одну влево для чисел, которые меньше, чем 
значение в узле и одну вправо для чисел, которые больше, чем значение в узле, простой 
вопрос "наше число больше, чем значение в узле или меньше?" определяет, по какой ветви 
нам идти. 

Точно так же можно построить дерево и для списков. Каждый узел может быть 
представлен списком из трех элементов. 

Средний элемент - это номер узла, а два других элемента - тоже списки. Первый 
элемент определяет левую ветвь дерева, а последний - правую, каждая ветвь 
выстраивается аналогично. Если из узла ветвь не исходит, то ей соответствует пустой 
список. Таким образом, пустые списки служат как бы маркерами, показывающими, что мы 
дошли до конца данной ветви. 

Вы, наверное, не удивитесь, когда узнаете, что такие конечные узлы называют 
"листьями", а исходный узел - "корнем". 

Дерево для структуры списков показано на рис. 2. 


Рис.2 


В тех узлах, где список не пустой, стоит “точка" [.] и стрелка, показывающая 
содержимое данного списка, поэтому несмотря на то, что списки находятся один внутри 
другого, такой "развернутый" вид действительно демонстрирует похожесть на настоящее 
дерево. 

Давайте еще раз посмотрим, как число б вписывается в это дерево. Рассмотрим 
корневой узел на вершине диаграммы, он имеет 3 элемента, из которых средний - число 7. 
Новое число 6 меньше и потому мы идем по левой ветви, рассматривая левый список. Этот 
список имеет средний элемент, равный 3. Поскольку 6 больше, то мы ищем правое 
продолжение, новый список имеет средним элементом 5. Раз 6 больше, чем 5, мы ищем 
опять правое продолжение. На этот раз список пуст, мы дошли до конца ветви и теперь 
нашли место, в которое должно быть помещено число 6. Поскольку это последняя точка, то 
мы отмечаем ее пустыми списками: [[]6[1]. 

Итак, существуют только два правила для того, чтобы поместить новое число в 
дерево. 

1) Если число помещается в узел, в центре которого уже есть число, то эти числа 
сравниваются и, если новое число меньше, то оно помещается в начальный список, а если 
больше, то в конечный. 

2) Если число помещается в пустой список, оно становится в средний элемент, а 
справа и слева добавляются по пустому списку. 

Если мы начнем с пустого списка и будем вводить числа в порядке 7,3,5,8,... то у нас 
будет создаваться список так, как показано в табл. 2. На каждом шагу мы показываем только 
новые вошедшие в список элементы, дабы сделать структуру проще и нагляднее. 


Таблица 2 
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явь! 


Как видите, числа ложатся в список в правильном порядке. 


Теперь рассмотрим, как сделать это на языке ЛОГО. Сначала нам нужна процедура, 
которая выдаст пользователю необходимые инструкции и создаст исходный пустой список, 
затем выполнит ввод чисел и распечатает упорядоченный список. 


ТО 5ОНТ 
РАТМТ [Введите числа] 
РАТМТ [Когда закончите, наберите ЕМО] 


МАКЕ “МОМЕТ$Т [1] 

ТМРОТ 

РНТМТТМОНОЕН :МОМЕТЗТ 
ЕМО 


Теперь рассмотрим процедуру МРОТ. Она должна принять с клавиатуры первое слово 
и проверить, не число ли это. Мы используем тот факт, что это не число для того, чтобы 
сигнализировать о том, что ввод закончен. Если же это число, то его надо ввести в список и 
посмотреть, куда оно ложится, после чего сформировать новый список. 


ТО ТМРУТ 
Е “МУМ РТАЗТ ВЕАОЕТЗТ 

ТЕ МОТ МОМВЕВР :М№М [$ТОР] 

МАКЕ “МОМЕТЗСТ ВЕМЕМ :МОМЕТУТ 


Здесь мы впервые использовали операцию МОТ. Она берёт то условие, которое стоит 
в качестве ее параметра и изменяет полученный результат с ТВУЕ на РАЁЗЕ или, 
соответственно, наоборот. Так что она работает достаточно просто и выдает результат ТВУЕ 
(ИСТИНА), если :МУМ числом не является. 

Теперь нам нужно записать процедуру НЕМЕМ/, которая проверит введенное число по 
всем имеющимся спискам и вставит его на свое законное место. Эта процедура должна 
создавать списки из трех элементов, обычно по результатам 1Ё. Как было указано в 
предыдущей главе, МЗТ нельзя использовать с круглыми скобками внутри, так что мы 
начнем с того, что напишем процедуру, которая примет три параметра и сделает из них 
список: 


ТО "ТУТ А.В :С 
ОУТРУТ (115Т А :В :С) 
ЕМО 


Теперь, когда мы проверяем введенное число по имеющемуся списку (назовем 
процедуру АМ$Т), у нас могут быть три возможности исхода: 

- список может быть пустым, в этом случае мы заменяем его новым списком из трех 
элементов, внешние из которых являются пустыми списками, а средний - введенным 
числом; 

[ТУТ 3 []:№9мМЕ] 

- если вводимое число больше, чем средний элемент списка, то новый список 
замещает тот, который был. В нем первые два элемента остаются неизменными, а в 
качестве третьего вводится новый список, содержащий вводимое число: 


ЕТ$ТЗ ЕТАЗТ :АЕТЗТ ТТЕМ2 :АЕТЗТ 


ВЕМЕМ ГАЗТ :АЕТЗТ 


- если вводимое число меньше, чем средний элемент, то в новом списке меняется 
первый элемент: 


ЕТ$Т3 АЕМЕМ ЕТАЗТ :АЁТЗТ ТТЕМ2 :АЁТУТ ТАЗТ :АЁЕТФТ 
Теперь мы пришли к процедуре РВЕМЕМ/: 


ТО ВЕМЕМ :АЁТЗТ 

ТЕ ЕМРТУР :АЁЕТЗТ [ОУТРИТ ЕТ$ТЗ[] :№М[]] 
ТЕ МОМ>ТТЕМ2 :АЕТУТ 

[ОУТРУТ ЕТ$ТЗ ЕТАЗТ :АЁЕТЗТ 

ПЕМ2 :АЁЕТЗТ 

ВЕМЕМ ГАЗТ .АЕТЗТ] 

[ОУТРУТ Е1$Т3 

ВЕМЕМ РТАЗТ :АЁТУТ 

ПЕМ2 :АЁЕТЗТ 

ГАЗТ :АЁЕТЗТ] 


ЕМО 


Как мы уже видели, в результате наши числа будут упорядочены по старшинству. 
Проблемой, однако, является болышое количество квадратных скобок. К счастью, здесь 
помогает сила рекурсии. Для того, чтобы упорядочить список, состоящий из списка, числа и 
еще одного списка, нам надо распечатать первый список в упорядоченном виде, число и 
второй список в упорядоченном виде. Если список пуст, то вообще ничего печатать не надо: 


ТО РВТМТТМОВОЕВ :АЁЕТЗТ 
ТЕ ЕМРТУР :АЁЕТЗТ [$ТОР] 
РАТМТТМОВОЕН РТАЗТ :АЁТЗТ 
РАТМТ ТТЕМ2 :АЁЕТЗТ 
РНТМТТМОНОЕН ГАЗТ :АЕТФТ 
ЕМО 


Когда Вы закончите ввод процедур, дайте команду ЗОНТ. Введите несколько чисел, по 
одному на строке. Заканчивайте ввод чисел словом ЕМО или любым другим удобным 
словом, но не числом. 

После того, как числа будут распечатаны в отсортированном порядке. Вы можете 
попробовать: 

РАТМТ :МУМЕТ$Т 

Теперь Вы увидите, как список хранится в структуре "дерева". Если же Вы хотите 
увидеть, как создается новый отсортированный список. Вы можете попробовать вставить 
эту команду в процедуру МРОТ. 


Самообучающаяся игра. 

Сейчас мы попробуем использовать структуру "дерева" для того, чтобы написать игру. 
Суть игры состоит в том, что один играющий задумывает некоторое животное, а другой 
должен его угадать. При этом он может задавать любые вопросы, но ответ может быть 
только “да” или "нет". Но самая интересная часть игры состоит в том, что программа 
способна самообучаться. В начале игры она знает только двух животных, а по мере того, как 
Вы с ней играете, она становится все более и более образованной. 

Вся информация хранится в виде дерева. Каждый узел - это список, состоящий из 
трех элементов. Обычно средний элемент списка - вопрос, который надо задать игроку. 
Если ответ "да", то программа использует первый элемент списка (а он тоже список) для 
следующего хода. Если же ответ "нет", то программа использует последний элемент списка. 

Мы неизбежно дойдем до последней точки. Она выявляется по тому факту, что и 
первый и последний элемент являются пустыми списками. В данном случае средний 
элемент - это уже не вопрос к играющему, а название животного. 

Когда имя животного выдается игроку, то у него есть две возможности: 


- если компьютер угадал верно, то программу не надо обучать; 

- но если пользователь задумал другое животное, то программа запрашивает вопрос, 
с помощью которого можно различить то животное, которое задумал пользователь, и то, 
которое назвала программа. Это вопрос теперь становится средний элементом в новом 
узле, а названия животных - в узлах справа и слева. Опять же к каждому из этих названий 
добавляется справа и слева по пустому списку. Входная процедура должна ввести 


пользователя в суть игры и создать корневой список перед тем, как игра начнет свою 
работу. 


ТО АМТМАЕ 
РАТМТ ” РВТМТ [Добро пожаловать на викторину] 
РАТМТ [Отвечайте только “ДА” или "НЕТ" ] 
МАКЕ “МОЕ [ГГ [УТКА] ]] 
[ОНО ПЛАВАЕТ? ] 
ГЕЕСВИНЬЯ ][ 1 ]] 


60 
ЕМО 


Рабочая процедура СО просит играющего задумать животное, проверяет элементы 
своего списка и обеспечивает повтор всего процесса для другого животного. 


ТО @0 
РАТМТ [ЗАДУМАЙ ЖИВОТНОЕ] 
РАТМТ “ 
МАКЕ “МОШЕ ТВУ :МОБЕ 
РАТМТ [ЕЩЕ РАЗ? ] 
МАКЕ “УМ РТАЗТ ВЕАБЕТЬТ 
ТЕ УМ= "УЕЗ [60] 

ЕМО 


— 


Процедура СО проверяет текущий узел. Это может привести к изменению списка, 
поэтому процедура ТРУ выдает новое содержание узла. 

Необходимо предусмотреть две возможности. Средний элемент в узле может быть 
либо вопросом, который надо задать игроку, либо готовым ответом. 


Программа различает эти два случая, проверив первый элемент. Если он пуст, то во 
втором элементе содержится ответ. 


ТО ТНУ :АМОБЕ 

ТЕ ЕМРТУР ЕТВЗТ :АМОБЕ 
[ОУТРУТ СОЕЗЗАМЗМЕВ ] 
[ОУТРУТ РУТОУЕЗТТОМ] 


ЕМО 


Теперь процедура СУЕЗЗАМУ\МЕН должна угадать ответ и, если он верен, то 


изменений делать не надо, а если нет, то надо сконструировать новый узел? 
ТО СУЕЗЗАМ$МЕН 

РАТМТ " 

РВТМТ ЗЕМТЕМСЕ [9Т0] 
ТТЕМ2 :АМОБЕ 

М 
1 
[ 
0 


АКЕ “УМ ЕТАЗТ ВЕАБЕТ$Т 
Е :У№М= "УЕЗ 
РАТМТ [Я ТАК И ДУМАЛ] 
ОТРИТ :АМОБЕ] 

[ОУТРУТ МЕММОВЕ] 
ЕМО 


< 


Процедура МЕ\М/МОГПЕ запрашивает правильный ответ и конструирует новый узел для 
двух животных, используя при этом полученный от пользователя вопрос. "Новое" животное 
должно быть помещено в новый список между двумя пустыми списками. "Старое" животное 
уже организовано таким образом в текущем узле. 


Здесь нам вновь будет нужна процедура МЗТЗ, о которой мы говорили выше: 


ТО МЕММООЕ 
РВТМТ [Сдаюсь! что это за животное? ] 


АКЕ “АМТМАЕТЛ ВЕАБЕТЗТ 
АКЕ “МЕМРАВТГЕТЗТЕЛ : АМТМАЕТ[ ] ] 
АКЕ “АМТМАЕ2 ТТЕМ2 :АМОБЕ 


РАТМТ [ЗЕМТЕМСЕ[ Дайте мне вопрос, чтобы отличить] :АМТМАЕТ “и :АМТМАЕ2] 

АКЕ “ОУЕЗТТОМ ВЕАБЕТУТ 

РАТМТ ГЗЕМТЕМСЕ[ и для |] АМТМАЁЕЛ [ответ будет да?] 

АКЕ “УМ ЕТАЗТ ВЕАБЕТЗТ ТЕ :У№="ДАГОУТРУТ ЕТ$ТЗ :МЕМРААТ :ОУЕЗТТОМ :АМОВЕ] ГОУТРУТ 1Т5ТЗ 
'АМОВЕ :ОУЕЗТТОМ :МЕМРАВТ] 


ЕМО 


Это самая сложная процедура в программе, но ключ к ее пониманию лежит в двух 
операциях ОЧТРЧУТ, записанных в ее конце. 


То РОТОЦЕЗТТОМ 
РАТМТ ° 
РАТМТ ТТЕМ2 :АМОБЕ 
МАКЕ “УМ РТАЗТ ВЕАБЕТЬТ 
ТЕ :У№=” ДА [ОУТРОТ 1Т$Т3 
ТВУ РТАЗТ :АМОБЕ 
ПЕМ2 :АМОБЕ 
ГАЗТ :АМОБЕ] 
[ОУТРУТ ЕТ$ТЗ ЕТЗТЗТ :АМОБЕ 
ПЕМ2 :АМОБЕ 
ТАУ ГАЗТ :АМОБЕ] 
ЕМО 


И здесь тоже основная смысловая часть процедуры заключена в двух последних 
операциях ОЧТРЧОТ. 

Теперь, если все сделано правильно. Вы можете дать команду АМ!МАЕ и, работая с 
программой, увидеть, как происходит ее самообучение. 


8. Некоторые математические операции. 


ЛОГО различает два различных вида чисел: целые (например 1, -23, 245 и т.д.) и 
десятичные (0.67, 28.91 и т.п.). Обычно Вам не надо думать о том, что между ними есть 
разница, вероятно, единственный случай, когда различие между ними существенно, это 
тогда, когда Вы пытаетесь ввести десятичное число в процедуру, которая ожидает в 
качестве своего параметра целое число. И даже в этом случае, как правило, ЛОГО 
предупредит Вас. 

Операция 1МТ (ИМТЕСЕА) принимает в качестве входного любое число, а свой 
результат выдает в виде целого. Она, таким образом, отрезает десятичную часть числа. 

РАТМТ ТМТ 3, 14 

3 

РАТМТ 
6 
РАТМТ ТМТ -2.1 

-1 

Обратите внимание на то, что хотя 6,999 очень близко к числу 7, результатом все-таки 
будет число 6. Этот процесс всегда ведет к округлению вниз. 

В некоторых случаях такая особенность может быть полезной. Например, иногда 
бывает важным найти результат деления одного числа на другое и образующийся при этом 
остаток. 

Может это быть полезным, когда Вы проверяете, является ли данное число целым или 
нет. Если оно целое, то применение к нему функции 1М№МТ уже не изменит его. 


ТО ТЕЗТТМТЛ : ММ 
ТЕ МОМ-ТМТ : ММ 


[РАТМТ “УЕЗ] [РАТМТ “№] 
ЕМО 


Таким же способом можно определить и делится ли одно число на другое нацело. 


ТО ТЕЗТОТУ :МОМТ :ММ2 
ТЕ (МОМТИМУМ2) = ТМТС: МОМТИ: МУМ2) 
[РАТМТ "УЕЗ] [РАТМТ “№ ] 
ЕМО 
Если же Вам на самом деле нужно ближайшее целое число, то Вы можете 
воспользоваться операцией НРОЧМО. Она тоже может принимать любое число в качестве 
входного и выдает ближайшее целое число. 


РАТМТ ВОУМО 3.14 


3 

РАТМТ НОУМЮВ 6.99 
7 

РАТМТ НОУМВ -2.9 
= 


Эта операция берет свое название из термина гоипата (“округление”). Она может 
быть использована для того, чтобы выдавать ответ с заданной степенью точности, с 
небольшими усилиями ее можно использовать и для получения результата с заданным 
количеством десятичных знаков. 

Так, например, если Вам надо округлить 3.14159 до двух десятичных знаков, то Вы 
можете умножить это число на 100 (314.159), округлить его (314) и снова разделить на 100 
(3.14). Эту операцию можно конвертировать в рекуррентную процедуру, на каждом шагу 
умножая исходное число на 10. Если количество десятичных чисел равно нулю, то число 
просто округляется. 

ТО СОНВЕСТ :МУМ :ОЕСРЕ$ 

ТЕ ОЕСРЕ$=0 [ОУТРУТ АОУМО :№М] 

ОПТРИТ (СОВВЕСТ :№М»*10 :БЕСРИ$ -1)/10 
ЕМО 

Есть еще одна операция, которая всегда выдает в результате своей работа целое 
число. Это операция ВЕМАШМОЕН. Она требует два входных параметра и выдает остаток от 
деления нацело первого числа на второе. 


РНТМТ ВЕМАТМОЕВ 12 5 
2 


Эта операция обеспечивает еще один путь для проверки делится ли одно число на 
другое нацело. Если это так, то результат операции равен нулю. 


ИСТИНА и ЛОЖЬ (ТВОЕ и ЕАЕЗЕ) 
Мы можем писать процедуры, которые проверяют условия и выдают в качестве 
результата ТВУЕ или РАЁЗЕ, это можно сделать одним из двух возможных способов, Вы 
можете выдавать результат в виде слова ТВУЕ, РАЁЗЕ ит.п., например: 


ТО БТУТЗТВЕЕ :А :В 

ТЕ 0=ВЕМАТМОЕН :А :В 

[ОУТРУТ “ТВУЕ] [ОУТРУТ “РАЕЗЕ] 
ЕМО 


Второй способ - получение ответа сразу в результате проверки и немедленной выдачи 
результата: 


ТО ОТУТЗТВЕЕ :А :В 
ОУТРУТ 0=НЕМАТМОЕН :А :В 
ЕМО 


Здесь, если действительно остаток от деления :А на :В равен нулю, результат равен 
ТАЧЕ, а если нет - то результат равен РАЁЗЕ. 


Такой результат можно напрямую использовать для оператора ИЕ. 
ТЕ ОТУТЗТВЕЕ 20 5 [РАТМТ "УЕЗ] [РВАТМТ “М№О] 


Фактически Вы только что определили предикативную процедуру и чтобы это 
подчеркнуть, ее можно назвать ОМИЗВЕЕР. 

Иногда мы сталкиваемся с тем, что будет ли результат операции иметь значение ТВОЕ 
или РАЕЗЕ, зависит от одного или большего количества условий, ЛОГО обеспечивает три 
операции, работающих с предикатами (условиями), мы уже рассмотрели МОТ, изменяющую 
результат условия на противоположный. Есть еще операция АМО, которая дает в результате 
значение ТРВИУЕ, если все входящие выражения имеют значение ТВУИЕ. Обычно операция АМО 
обрабатывает два условия, но их может быть и больше, если применить круглые скобки. 

РВТМТ АМО 1<2 3<7 

ТВОЕ 

Другая операция - ОВ (ИЛИ). Она дает в результате ТВУЕ, если хотя бы одно из 
входящих выражений имеют значение ТВУИЕ. Так же, как и АМО, операция ОВ может иметь 
более двух входных выражений. 

При аккуратной работе можно объединять АМО и ОР в одном выражении. Например, 
Вы можете прийти ко мне на день рождения, если Вас зовут Фред или Вы женщина и ктому 
же красивая. 


Возведение в степень и извлечение корня. 
Узнать квадрат числа можно умножив его само на себя, другие степени числа легко 
находятся с помощью рекурсии. 


ТО РОМЕН :А :В 
ТЕ :В<2 [О0УТРУТ :А] 
ОУТРУТ (РОМЕВ :А :В -1)»А 
ЕМО 


Для вычисления корней квадратных из числа, ЛОГО имеет специальную функцию 

ЗОНТ. 
РАТМТ ЗОНТ 25 

5 

Мы можем воспользоваться теоремой Пифагора для вычисления расстояния между 
двумя точками с известными координатами (координата Х и координата У). В учебниках по 
математике Вы найдете, что расстояние между двумя точками с координатами [Х1, \1] и [Х2, 
\2] можно найти, как 


[& | + (у, у) 
Рис. 3 


ТО ОТЗТАМСЕ :РО$1 :Р0$2 
МАКЕ “ХОТЕ РТАЗТ :РОЗЛ-ЕТНЗТ :Р052 
МАКЕ “УОТЕ ТАЗТ :Р0$1-ГАЗТ :Р052 
ОЦТРИТ ЗОНТ(ХОТЕ»*ХОТЕ+УОТЕ»УОТЕ) 
ЕМО 


Поиск простых чисел. 

Простое число - это число, которое нацело делится только на единицу или само на 
себя. Проблема поиска простых чисел волнует математиков уже несколько тысяч лет. Пока 
не найдена формула, по которой можно было бы найти все простые числа, а те формулы, 
которые уже известны, выдают определенную последовательность из простых чисел, но 
начиная с какого-то числа выдают и непростые числа (См. 2Х-РЕВЮ-91, № 7,8. с. 133). 


Хоть и не существует вполне надежной формулы для простых чисел, зато существует 
метод. Мы можем просто брать числа по очереди и проверять, делятся ли они нацело на 
другие числа, которые меньше, чем оно само. Задача упрощается тем, что нужно проверять 
не все числа, а только до корня квадратного из исходного числа. Ведь если оно делится на 
что-то, что больше, чем квадратный корень, то в результате получим частное, которое 
меньше, чем квадратный корень, а эти числа мы уже проверили. 


ТО ТЕЗТРАТМЕ : ММ :№ 

ТЕ :М>5ОВТ :МОМГОУТРУТ “ТВУЕ] 

ТЕ ОТУТСТВЕЕ ММ :МГОПТРУТ “РАЕЗЕ] 
ОУТРУТ ТЕЗТРАТМЕ :ММ :№+1 


= 


ЕМО 


Проверку надо начинать с числа 2 - это наименьшее простое число. 
ТО РАТМЕЗЕРОАМ :МОМ 

ТЕ ТЕЗТРАТМЕ :МУМ2[РАТМТ :М№М] 

РАТМЕЗЕОВМ :МУМ+1 
ЕМО 


Теперь команда РАМЕЗЕОВМ 2 будет распечатывать простые числа, начиная с числа 
2 ивыше. 


Тригонометрические операции. 

Если Вы уже знакомы с тригонометрическими функциями, то можете пропустить один 
абзац. Если же нет, то читайте дальше. 

Если наша "черепашка" имеет значение НЕАП!МОС, равное углу :АМСЕЕ, то на каждом 
шаге она проходит разные расстояния вдоль экрана и поперек. Если "черепашка" пройдет в 
направлении своего движения единицу пути, то ее перемещение по горизонтали равно 
синусу угла :АМСЕЕ, а перемещение по вертикали - равно косинусу угла :АМСЕЕ. Если путь, 
пройденный "“черепашкой" равен единице, то очевидно, что путь, пройденный ею по 
горизонтали, меньше единицы, то же и путь, пройденный по вертикали. 

Может быть, Вас интересует не один шаг, пройденный "черепашкой", а сразу 10. В 
этом случае ее перемещение по горизонтали: 


10*5ТМЕ :АМСЕЕ 
а путь по вертикали: 
10*СОЗТМЕ :АМОЕЕ 


СО$МЕ 
АМСЕЕ 


УМЕ :АМСТЕ 


Рис. 4 Синус и косинус угла. 


Математики пользуются еще двумя функциями: тангенс (это частное от деления 
синуса угла на его косинус) и котангенс (частное от деления косинуса на синус). 

ЛОГО предоставляет возможность использования четырех операций: ЗИМЕ, СОЗМЕ, 
ТАМСЕМТ, СОТАМСЕМТ, в сокращенной форме УМ, СО$, ТАМ, СОТ. У ЛОГО есть большое 
преимущество перед другими языками программирования в том смысле, что ЛОГО 
принимает углы для этих операции в градусной мере, в то время как другие языки 


программирования предпочитают иметь дело с радианами. Поэтому, если Вы привыкли к 
другим языкам и к радианной мере, то теперь вздохнете с облегчением. Если же Вы кней не 
привыкли и никогда о ней не слышали, то тем более вздохнете с облегчением, поскольку 
можно о ней и не думать. 

Кроме 4-х описанных выше операций, есть еще четыре: АВСЗМ, ААССО$, ААСТАМ, 
АВССОТ, которые имеют прямо противоположное действие. 

В качестве входного параметра они принимают число, а на выходе выдают угол в 
градусах, который имеет соответствующий синус (косинус, тангенс, котангенс). 

Так, РАМТ АВССОЗ 0.5 даст Вам угол, косинус которого равен 0.5, т.е. 60 градусов. 


Эти операции имеют огромное значение в изучении электроники, волновых явлений и 
вибраций. С помощью этих функций можно также исполнять очень красивые и интересные 
кривые. Рассмотрим, например, пару следующих процедур, которые изображают график 
функции косинус для углов от 0 до 360 градусов. Координаты Х и \ здесь распечатываются 
через угол и его косинус, соответственно. Масштаб избран таким, чтобы изображение 
хорошо вписывалось в экран. Когда "черепашка" дойдет до границы экрана, Вы получите 
сообщение "Чи 1е ощ о? Боипаб5". 


ТО $Н0ис0$ 
РЕМОР 
ЗЕТРО$ [120 0] РЕМБОММ 
ЗЕТРО$ [120 0] 00 60$ 0 
ЕМО 


ТО 0060$ :АМЕЕЕ 
МАКЕ “Х 2* :АМСЕЕ/З-120 
МАКЕ “У 80»С0$ :АМСЕЕ 
ЗЕТРО$ 5Е :Х :У 
0060$ :АМСГЕ+15 

ЕМО 


Вы увидите колебания в вертикальной плоскости. Что произойдет, если мы добавим 
сюда еще и колебания по горизонтали? Вы получите фигуры, названные именем их 
первооткрывателя - фигуры Лиссажу. 


ТО 115$А109 :А В :С :0 :1мС 
ЗНОМТИВТЕЕ 
СЕЕАВЗСНЕЕМ 
РЕМОР 
[1$$ 0 
ЕМО 


ТО [15$ :АМСТЕ 
МАКЕ “Х 120*С05(:А»*: АМОЕЕ+:В) 
МАКЕ “У 80»*С0$( :С* : АМСЕЕ+: 0) 
ЗЕТРО5; ЕЖУ 
РЕМБОММ 
[15$ :АМОЕЕ+: ТМ 

ЕМО 


Перо опустится после первой команды ЗЕТРОЗ (и после этого останется опущенным), 
поэтому “черепашка“ пойдет в стартовую позицию без изображения линии. Чем выше 
значение ИМС, тем более угловатой будет полученная графика. 

Попробуйте: 

[1$$АОУ 11 20 21 40 1 

Введение в графику цвета позволяет получать очень интересные эффекты. Вот еще 

несколько примеров "черепашьей" графики: 


ТО СУСЕО :К :АМОЕЕ :5Т7Е 
РОНМАВО :ЗТ7Е»5ТМ(:К*НЕАОТМС) 


АТСНТ :АМОЕЕ 
СУСЕО :К :АМСЕЕ :5Т7Е 
ЕМО 


Попробуйте 
СУСЕО 1 10 10 
СУСЕО 4 5 20 


И еще одна процедура: 
ТО 1ОВЕ :А :В :ТМС :АМОЕЕ 
РОВМАВО 1 
ВТОНТ :А :В {Т№МС АМОЕЕ+: ТМС 
ЕМО 


Попробуйте: 


1ОВЕ ? 390 
[0ВЕ..10.86.0 
ОВЕ 2860 
[ОВЕ 2. 9 3`0 


(Окончание в следующем номере). 


Стюарт Николс. 


ПРИМЕНЕНИЕ АССЕМБЛЕРА ДЛЯ СОЗДАНИЯ 
БЫСТОРАБОТАЮЩИХ ПРОГРАММ 


Перевод с английского Пашорина В.И. 
Продолжение. Начало см. с. 9-12, 48-61, 97-103, 183-188 


8. Команды АТТНВОТЕ, ЗСВЕЕМ$ и РОМТ 


Если Вы программировали игры на БЕЙСИКе, то вероятно сталкивались с тем, что 
Вам необходимо знать в определенной игровой ситуации текущее расположение заданного 
символа на экране. Это, например, нужно при проверке условия - достигла ли ракета цели, 
либо при выполнении посадки на Луну. В БЕЙСИКе для этого существуют три способа: 

- использовать оператор АТТАНВОТЕ, который проверяет значение 1МК, РАРЕВ, ЕЕАЗН 
и ВНОНТ в заданном знакоместе экрана и выдает число, соответствующее этим 
параметрам; 

- использовать оператор ЗСВЕЕМ$, который определяет код символа в заданном 
знакоместе и выдает код этого символа, если он входит в диапазон 32...127. В противном 
случае считается, что ячейка пуста; 

Примечание: процедуру в машинных кодах, которая может проверить не только 
символы АЗСИ, но и символы УОС-графики и символы блочной графики, т.е. из диапазона 
32...164 мы привели в первом томе, посвященном графике для "Спектрума" - 
"Элементарная графика" на с. 99 под названием ЭСАМЕР. - ИНФОРКОМ. 

- использование оператора РОМТ, который проверяет состояние одного пиксела 
экрана и выдает 1, если пиксел включен и 0, если он выключен. 

Все эти три способа могут быть реализованы и в программах в машинных кодах с 
использованием специальных процедур ПЗУ. 


8-1. АТТЕИВОТЕ (строка, столбец). 

Процедура АТТВ, аналогичная по действию оператору АТТНВИТЕ, находится в ПЗУ по 
адресу 9603. Перед ее вызовом необходимо записать координаты исследуемого 
знакоместа в регистровой паре ВС (номер строки - в регистре В, а номер столбца - в 
регистре С). Результат проверки в виде числа 0...255 записывается на вершину стека 
калькулятора. 

Определить атрибуты знакоместа, используя это число, можно по формуле: 

ЧИСЛО=128*ЕГАЗН + 64*ВВРТСНТ + 8*РАРЕВ + ТМК значение 

Это число можно переписать со стека калькулятора в регистр А, используя процедуру 
ПЗУ ЕР_ТО_АА, находящуюся по адресу 11733, а затем сравнить его с заданным числом М с 
помощью команды СР М. 

Пример реализации этого способа показан в программе 8.1. Программа проверяет 
каждое знакоместо экрана до тех пор, пока не найдет ячейку, атрибуты которой 
соответствуют РАРЕН 1, 1МК 7, ЕЁЪАЗН 1, т.е. числу 143. После запуска этой программы на 
экране появляется ракета, медленно перемещающаяся по направлению к человечку. При 
совмещении ракеты с этим человечком происходит возврат в БЕЙСИК. Вы можете вместо 
команды возврата НЕТ подключить процедуру, создающую звуковой эффект, 
сопровождающий попадание ракеты в человечка. 

Такой способ проверки атрибутов символьных ячеек безусловно хорош, но требует, 
чтобы, например, все поражаемые объекты имели одинаковые атрибуты. 


Листинг 8. 1. 


АДРЕС МЕТКА МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 
23760 ЕБ 5В 7В 5С ЕО ОЕ, (23675) ‚ Адрес первого символа 


‚ графики пользователя. 
23764 21 42 50 ЕО НЕ, ВАТА 3 ‚Конструкция символа 106. 
23767 01 08 00 ЕО ВС, 8 :8 байтов в символе. 
23770 ЕБ ВО ОТВ Установка символа 100-“А” 
23772 ЗЕ 02 [ А, 2 ‚Канал экрана - 2. 
23774 СО 01 16 САЕЕ 5633 ‚ Открываем канал печати на 
‚ экран. 
23777 СО 68 00 САЕЕ 3435 ‚Очистка экрана. 
23780 ЗЕ 02 [р А, 2 См. выше. 
23782 СО 01 16 САЕЕ 5633 
23785 11 2Е 50 [О БЕ, ВАТАЛ ‚Данные для печати - БАТАЛТ. 
23788 01 10 00 ЕО ВС, 16 ‚Символов - 16. 
23791 СО ЗС 20 САЕЕ 8252 ‚Вызов подпрограммы ПЗУ для 
‚печати символьной строки. 
23794 ЕО 36 57 03 ЕО (ТУ+87), 3 ‚; (1\+87) указывает на 
‚ системную переменную РЕГАВ 
‚ (23697). Установка в ней 
‚числа 3 означает включение 
‚ режима ТМУЕВЗЕ. 
23798 АЕ ХОВ А ‚ Обнуление аккумулятора. 
23799 32 40 50 ЕО (С0Е), А ‚ Обнуление столбца С01. 
23802 [1 11 ЗЕ 50 ЕО БЕ, ВАТА? ‚ Данные для печати - ОАТА2. 
23805 01 04 00 [О ВС, 4 ‚ Символов - 4. 
23808 СО ЗС 20 САЕЕ 8252 ‚ Печать строки БАТА2. 
23811 ВЕЕАУ 21 ЕЕ РЕ ЕО НЕ, 65535 |Организация цикла 
23814 [2 2В БЕС НЕ | задержки для того, чтобы 
23815 7С [В А,Н |изменения на экране не 
23816 В5 ОВ | | происходили слишком 
23817 20 ЕВ ЧА №,12 | быстро. 
23819 11 ЗЕ 50 ЕО БЕ, ВАТА? ‚ Данные для печати - ОАТА2. 
23822 01 04 00 ЕО ВС, 4 'Символов - 4. 
23825 СО ЗС 20 САЕЕ 8252 ‚ Печать строки ВАТАД2. 
23828 ЗА 40 50 ЕВА, (С01) ‚Номер столбца позиции печати. 
23831 30 ТАС А ‚ Переход к соседней позиции. 
23832 32 40 50 ЕВ (С0Е), А ‚ запомнили новую позицию. 
23835 ЕБ 4В ЗЕ 50 ЕО ВС, (ЕТМЕ) ‚Координаты позиции печати. 
23839 СО 83 25 САЕЕ 9603 ‚Вызов процедуры ПЗУ для опре- 
‚ деления атрибутов в текущей 
‚ координате. 
23842 СО 05 20 САШЕ 11733 ‚ Перенос результата со стека 
‚ калькулятора в регистр А. 
23845 РЕ ВЕ СР 143 ‚ Проверка на РАРЕВ 1: ТМК Т: 
‚ ЕЕАЗН 1. 
23847 20 01 ЧА №, 11 ‚ Возврат, если нужное знако- 
‚ место еще не найдено. 
23849 ЕО 36 57 00 ЕО (1Т\+87),0 ‚ Выключение режима ТМУЕВЗЕ. 
23853 С9 ВЕТ ‚Возврат в БЕЙСИК. 
23854 ВАТА БЕРВ 22 02017 ‘Эти данные эквивалентны: 
1 16 718 ‚...АГ 0,20; РАРЕН 1; ТМК 7; 
1 144 18 0 ‚ ЕЕАЗН 1; “А”; РАРЕВ 0; ТМК 7; 
И У 0: 0 ‚ ЕЕАЗН 0. Здесь “А” - это сим- 
‚вол 00а; размещенный на кла- 
‚ више А, т.е. СНН$(144). 
23870 ВАТА? ОБЕРВ 22 ‚Эти данные эквивалентны: 
23871 [ТМЕ  ОЕРВ 0 :...АТ 0, С0Е: СНА$(62). 
23872 СО БЕРВ 0 ‘Символ 62 - это ">", они 
23873 БЕРВ 62 ‚ изображает “ракету”. 
23874 БАТАЗ БЕРВ 24 153 126 153 ‘Это данные для символа ЦО, 
24 36 36 102 ‚ изображающего человечка. 
8.2 $ЗСВЕЕМ$ 


Точно так же, как и при вызове процедуры АТТВ, перед вызовом этой процедуры 
необходимо в регистровую пару ВС записать координаты символьной ячейки. Процедура 


ЗСВЕЕМ$ находится по адресу 9526. Параметры символа исследуемой символьной ячейки 
при вызове этой процедуры будут записываться на калькуляторный стек в пятибайтной 
форме. Использование калькуляторного стека для хранения параметров символа для Вас, 
наверное, открытие, поскольку до сих пор речь шла о хранении на стеке только чисел в 
пятибайтной форме. 

Коды калькулятора при этом оперируют не с самими символами, а с их параметрами, 
записанными в пятибайтной форме. Для того, чтобы передать параметры символа на стек, 
необходимо записать в регистровую пару ВС размер символа в байтах, а в регистровую 
пару ОЕ - начальный адрес участка памяти, где хранится вся информация о символе. Для 
стандартных символов в регистр А записывается 0. 

Для передачи этих параметров на стек используется процедура, находящаяся в ПЗУ 
по адресу 10929. Процедура же по адресу 11249 выполняет обратную функцию - передает 
параметры символа со стека в соответствующие регистры А, В, С, О, Е. При этом размер 
символа будет записан в регистровую пару ВС, а начальный адрес участка памяти с 
информацией о символе - в регистровую пару ПЕ. 

Программа 8.2 показывает, как можно использовать эти процедуры. После 
выполнения программы, на экране появятся два символа ©, соответственно в позициях 0,20 
и 0,21. Вместо вызова процедуры РЕМТ ЗТЕМС (адрес 6252), можно использовать команду 
ЕО А, (ОЕ) для проверки значения символа в позиции 0,20, а затем выполнить необходимые 
действия. 


Листинг 8.2. 
АДРЕС МЕТКА МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВ@ 23750 
23760 ЗЕ 02 [О А, 2 ‚ Канал экрана - 2. 
23762 СО 01 16 САЕЕ 5633 ‚ Открываем канал печати на 
‚ экран. 
23765 СО 68 00 САЕЕ 3435 ‚ Очистка экрана. 
23768 ЗЕ 02 [О А, 2 ‚ Канал экрана - 2. 
23770 СО 01 16 САЕЕ 5633 ‚ Открываем канал печати на 
‚ экран. 
23773 ЗЕ 16 [О А, 22 
23775 07 ВЗТ 16 
23776 ЗЕ О [О А, 0 Аналог ...АТ 0, 20; "@" 
23778 07 ВЗТ 16 
23779 ЗЕ 14 [О А, 20 
23781 07 ВЗТ 16 
23782 ЗЕ 40 [О А, 64 
23734 07 ВЗТ 16 
23785 06 14 [О В, 20 ‚ Номер экранного столбца. 
23787 ОЕ 00 [О С, 0 ‚ Номер строки экрана. 
23789 СО 38 25 САЕЕ 9528 ‚ Вызов процедуры ПЗУ для 
‚ определения того, что нахо- 
‚ дится в данном знакоместе. 
23792 СО ЕТ 28 САЕЕ 11249 ‚ Передача параметров символа 
‚ со стека калькулятора в ре- 
‚ гистры процессора. 
23795 СО ЗС 20 САЕЕ 8252 ‚ Печать той символьной стро- 
‚ки, на местоположение которой 
‚ указывает пара ОЕ, а длина 
‚ которой находится в ВС. В на- 
‚шем случае - это символ “@”. 
23798 09 ВЕТ 


При использовании БЕЙСИК-оператора ЗСВЕЕМ$ имеет место одно ограничение. Код 
распознаваемого символа на экране должен быть в диапазоне от 32 до 127. В противном 
случае считается, что это пустой символ. Такое ограничение существенно для игровых 
программ, где используются УО@, распознать которые в данном случае не удается. Для 
программ в машинных кодах такой проблемы не существует, поскольку УО@ можно 
включить в стандартный символьный набор. Постоянно этот набор хранится в ПЗУ, начиная 


с адреса 15360. Однако начальный адрес этого набора можно менять, меняя значение 
системной переменной СНАНВ$ (23606/7). Она указывает на 256 байтов ниже, чем начало 
символьного набора. Если переписать символьный набор из ПЗУ в ОЗУ таким образом, 
чтобы в этот набор вышел участок с информацией об ЧОС и чтобы УОС "А" соответствовал 
код 32, ЧОС "В" - код 33 ит.д., то можно вызывать процедуру ЗСВЕЕМ$ для идентификации 
ЦОС на экране. 

Программа 8.3 работает точно так же, как и программа 8.1, но эта программа 
способна распознавать на экране символ, код которого равен 144. Выполнив копирование 
стандартного символьного набора в ОЗУ и переписав значение символьной переменной 
СНАА$ можно совсем отказаться от ЧОС@. Теперь можно часть стандартных символов 
(например, строчные буквы и некоторые знаки пунктуации) заменить на символы, форму 
которых можем задать сами (это будет около 50 символов). Процедура ЭСНВЕЕМ$ будет 
легко распознавать на экране любой символ, если он входит в символьный набор. И еще 
одно важное замечание. Необходимо всегда иметь свободный участок памяти, 
используемый как рабочий для стека. Если такого участка нет или он есть, но периодически 
не очищается, то при выполнении программы может появиться сообщение о переполнении 
памяти. Поэтому перед каждым вызовом процедуры ЗСВЕЕМ$ необходимо очищать 
специально зарезервированный рабочий участок. 


Листинг 8.3. 

АДРЕС МЕТКА МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
23760 
А СМ. ЛИСТИНГ 8.1 

ОВ@ 23760 
23833 
23836 2А ТВ 5С ЕВ НЕ, (23675) ‚ Адрес первого символа 106. 
23839 25 ВЕС Н ‚ Отступили на 256 байтов. 


‚Мы помним, что СНАА$ указы- 

‚вает на 256 байтов ниже, чем 

‚начало шрифта. 
23840 22 36 5С ЕО (23606), НЕ ‚ Переустановили СНАН$ так 
‚она теперь указывает на 
‚ область 106. 
23843 СО 38 25 САЕЕ 9528 ‚ Вызов процедуры ЭСВЕЕК$. 
23846 СО ЕТ 28 САЕЕ 11249 Передача параметров симво- 
ла со стека в регистры. 


23849 ЛА ЕР А, (0Е) ‚ Проверка номера символа 

‚в текущем знакоместе. 
23850 ЕЕ 20 СР 32 ‚ Проверка “не пробел ли это?" 
23852 21 00 ЗС ЕО НЕ, 15360 ‚ Расположение стандартного 


‚ шрифта минус 256 6. 
23855 22 36 5С ЕО (23606), НЕ ‚ Восстановили стандартное 
‚ значение СНАН5. 


о Далее, как в программе 8. 1 


Процедура очистки рабочего участка имеется в ПЗУ по адресу 5823. Вызов этой 
процедуры в программе 8.3 можно производить после команды 1 А,(0Е), однако 
предварительно необходимо сохранить в памяти последнее значение регистра А. 


8.ЗРОМТ 

Оператор РОМТ х,у в БЕЙСИК-программах выдает 1, если пиксел экрана с 
координатами х,у включен и выдает 0, если он выключен. Процедура ПЗУ, соответствующая 
этому оператору (адрес 8910), может быть вызвана, если предварительно записать в 
регистр В у-координату, а в регистр С, соответственно х координату пиксела. При этом 
результат зашлется на стек, а т.к. он равен 0 или 1, то мы можем переписать его в регистр А 
и сравнить с заданным значением. В программе 8.4 показан способ проверки пиксела 
верхнего левого угла (координаты 0,175). 

Если в начале в символьную ячейку с координатами 0,0 занести черный квадрат, то 


результат работы процедуры будет равен 1, т.к. пиксел с координатами 0,175 входит в этот 
квадрат. 


Листинг 8.4. 
АДРЕС МЕТКА МАШ. КОД АССЕМБЛЕР КОММЕНТАРИЙ 
ОВа 23760 
23760 ЗЕ 02 [О А, 2 ‚ Канал экрана - 2. 
23752 СО 01 16 САЕЕ 5633 ‚ Открываем канал печати на 
‚ экран. 
23765 СО 68 00 САЁЕ 3435 ‚ Очистка экрана. 
23768 ЗЕ 02 [О А, 2 ‚ Канал экрана - 2. 
23770 СО 01 16 САЁЕЕ 5633 ‚ Открываем канал печати на 
‚ экран. 
23773 ЗЕ 8Е ЕО А, 143 ‚ "Черный квадрат”. 
23775 07 ВТ 16 ‚ Печать квадрата. 
23776 ОЕ 00 [О С,0 ‚ Координата х. 
23778 06 АР [О В, 175 ‚ Координата у. 
23780 СВ СЕ 22 САЕЕ 8910 ‚ Вызов процедуры РОТМТ 
‚из ПЗУ. 
23783 СО 05 20 САЁЕ 11733 ‚ Перенос результата со стека 
‚ калькулятора в регистры. 
23786 ЕЕ 01 СР 1 ‚ Проверка включен пиксел 
‚или нет. 
23788 С8 ВЕТ 7 ‚Выход, если да. 
9. ПРИНТЕР 


Не так уж много существует программ, для работы которых необходим принтер. 
Всегда можно ограничиться для вывода информации только экраном дисплея. Но иногда, 
например, необходимо показать свой уровень, достигнутый в какой-нибудь игре друзьям 
или знакомым. В этом случае нужно сделать копию изображения экрана на принтере. 
Поэтому в этой главе мы рассмотрим три ВАЗ!С-команды: СОРУ, ЕРЕМТ, НА$Т и их аналоги 
в машинных кодах, обеспечивающих работу с принтером. 


9.1. СОРУ 

При вызове этой процедуры только двадцать две строки экрана передаются на 
принтер. Программа в машинных кодах позволит Вам улучшить эту процедуру так, чтобы 
можно было передавать на принтер произвольное число строк, причем, начиная с любой 
строки на экране, например, передать на принтер три строки, начиная с седьмой. 

В программе 9.1 показан способ передачи на принтер всех 24 строк экрана, поскольку 
для некоторых игр достигнутый уровень показан в нижних строках экрана и при обычном 
вызове процедуры СОРУ получить необходимую информацию с двух последних строк не 
удается. 


Листинг 9. 1 


ОВа 23760 
23760 21 00 40 ГО НЕ, 16384 
23763 06 С0 ГО В, 192 
23765 ЕЗ от 
23756 СО В2 ОЕ САЕЕ 3762 
23769 С9 ВЕТ 


Как Вы заметили, в этой программе перед вызовом процедуры, находящейся в ПЗУ по 
адресу 3762, необходимо в регистровую пару НЁ записать начальный адрес экранной 
области ОЗУ (т.к. нам необходима копия, начиная с первой строки, то этот адрес 16384), ав 
регистр В - число копируемых строк, умноженное на 8. 


9.2 ЕРЕИМТ 
Эта команда имеет сходство с командой РЫМТ. Различие состоит в том, что не 
работают по этой команде управляющие коды и, конечно, используется другой канал для 
вывода информации на принтер, который необходимо открыть в программе в машинных 


кодах, прежде чем использовать команду ВЗТ 16. Например, чтобы вывести на принтер 
литеру "А", т.е. реализовать в машинных кодах ГРЕМТ "А", необходимо первоначально 
открыть канал 3, затем записать в регистр А код литеры "А", ну а затем использовать 
команду В$Т 16. 

Программа 9.2 демонстрирует этот способ для вывода на принтер символьной 
строки. 


Листинг 9.2 

ОВа 23760 
23760 ЗЕ 03 [ А, З 
23762 С0 01 16 САЕЕ 5633 
23765 71 БЕ 5С [О ОЕ, ВАТА 
23768 01 09 00 [р ВС, 9 
23771 С0 ЗС 20 САЁЕ 8252 
23774 С9 ЕТ 

ОЕ 


В 
23775 ВАТА БЕРМ РВОСВАМ 2 


Для выполнения табуляции выводимой на принтер информации, необходимо 
предварительно в системную переменную РРАСС (23680) через РОКЕ записать 
соответствующее число. 


9.3 64$Т 
Это третья БЕЙСИК-команда для работы с принтером. Реализовать ее в машинных 
кодах довольно просто. Достаточно только записать САЦ. 6133 и будет выполняться листинг 
строк ВАЗ!С-программы на принтере. 


СТРАНИЦА 15-00$ 


(С) Самыловский С.В., 1993. 
(С) ЗЁОТ Со.Ца., Мозсом,, 1993. 


Новинка сезона - дисковая операционная система для ЗРЕСТВИМ "1$-0О05" 


Еще несколько месяцев назад это казалось невероятным. Разрыв между желанием 
иметь дома профессиональный персональный компьютер и возможностью купить его 
становился все больше и больше. Красавцы РС достойно заняли свое место в институтах, 
банках, оффисах и пока очень редко перешагивают порог нашего дома. Да и нужен ли 
каждому из нас дома, в школьном классе, в оффисе небольшой частной фирмы супер- 
компьютер типа 1ВМ РС, стоимостью более миллиона рублей? Зададим себе вопрос: что бы 
мы хотели поручить своему электронному помощнику? При всем кажущемся многообразии 
ответов на данный вопрос, все они могут быть сведены к следующим: 


- игры и развлечения для детей и взрослых; 

- подготовка, хранение и печать текстов и документов; 

- выполнение текущих расчетов, решение конкретных задач; 

- обучение, тренировка, управление какими-либо устройствами; 

- профессиональное использование компьютера, составление программ на 
различных языках программирования, их отладка ит.п.; 

- коммуникационные функции - домашний секретарь, телефонный автоответчик, 
прием и передача текстовых и графических документов по телефонным линиям 
связи. 


Итак, сможет ли каждый из нас в обозримом будущем иметь у себя дома такой 
компьютер? Посмотрите внимательно на свой ЗРЕСТАУМ! Если у него предусмотрена 
возможность подключения накопителя на гибком магнитном диске (дисковода) и 
печатающего устройства (принтера), то уже завтра Вы можете стать обладателем 
вычислительной системы, которая решит большинство Ваших домашних проблем, поможет 
в учебе и работе, позволит в спокойной домашней обстановке приобщиться к такому 
загадочному и такому интересному миру настоящих компьютерных технологий! Это 
маленькое чудо сделает для Вас и Вашего ЗРЕСТАУМ-совместимого компьютера новая 
дисковая операционная система 15-005! 


О чем собственно речь? 


Речь идет об открытой многокаталоговой операционной системе 15-005$, результате 
многолетнего труда коллектива разработчиков из Санкт-Петербургской фирмы 1ЗКВАЗОРТ, 
под руководством Ильяшенко Э.Н. Само название операционной системы 1$-00$ - это 
сокращение от 1$Кгабой П!5к Орегайпта Зучет. Оно, как и товарный знак системы 
закреплено законодательно за данной фирмой и без ее согласия не может быть 
использовано кем либо в коммерческих и рекламных целях. 

На Российском рынке 15-0О$ появилась в конце 1992 года и с этого момента уже 
сумела завоевать многочисленные симпатии пользователей ЗРЕСТРУМ-совместимых 
компьютеров. Подробнее об истории создания системы и основных идеях, положенных в ее 
основу мы расскажем на страницах первых выпусков "7Х-РЕВЮ-94". 


Компьютер, который мы выбираем. 


Важнейшим достоинством системы 15-005 является ее высокая мобильность и 
"неприхотливость" в требованиях к компьютеру. Она будет работать на любом ЗРЕСТВУМ- 


совместимом компьютере, имеющем в своем составе хотя бы один накопитель на гибком 
магнитном диске (дисковод). Для работы 15-0О$ требуется всего 48 Кбайт оперативной 
памяти. Остальная имеющаяся в компьютере оперативная память может быть использована 
для буферизации ввода-вывода или создания электронного диска, что примерно на порядок 
может повысить быстродействие работающих программ. 15-0О$ обеспечивает 
использование до 4-х накопителей на гибких магнитных дисках, электронного диска и 
одного жесткого диска типа винчестер одновременно. Работа с различными клавиатурами 
от обычной 40-клавишной до ХТ-клавиатуры поддерживается набором специальных 
драйверов клавиатуры. 

К Вашему компьютеру подключен принтер? В богатом перечне драйверов принтеров 
Вы наверняка быстро найдете нужный. Если принтер обеспечивает печать символов 
псевдографики, то высокое качество печатаемых документов, таблиц, графиков Вам 
обеспечено. Если принтер старенький то 15-0О$ учтет и это! 

Имея "7Х-модем" в составе компьютера и установив 1$-0О0$, Вы легко сможете 
связаться по телефону со своим коллегой и передать ему несколько файлов, а если Ваш 
компьютер обеспечивает последовательный интерфейс В$-232, то подключив к нему 
стандартный для 1ВМ РС модем, Вы, с помощью специальной коммуникационной 
программы сможете выйти в настоящие компьютерные сети. 

Работа с цветным монитором несомненно доставит Вам удовольствие от общения с 
системой. Если Ваш компьютер подключен к цветному или черно-белому телевизору, не 
переживайте! Вы можете работать в режиме 41 или 61 символ в строке, а возможность 
настройки цвета используемых программ сделает работу с компьютером максимально 
удобной. 

Итак, все зависит только от наших возможностей, а начать можно и с малого! В любом 
случае возникает вопрос: 


Так где же взять 15-0О$ систему? 


Кому-нибудь это может показаться странным, но 15-0О$ придется купить. Переписать 
ее у товарища не удастся, так как она неплохо защищена от копирования и в лучшем случае 
"не захочет" загрузиться. Не лучшим вариантом будет и покупка системы с рук у знакомого 
или (что гораздо хуже) у незнакомого умельца хэккера. Ряд интересных программ вероятнее 
всего не смогут работать корректно или вообще не будут запускаться, а это так обидно... 

Официально приобрести 15-0О$ можно у самой фирмы 1ЗКВАЗОРТ в С. Петербурге, у 
ее Генерального дистрибьютора - московского предприятия “$1о{"” Со.,МА или у их 
официальных дилеров в Вашем городе или области. Заказав систему, можно также получить 
каталог прикладных программ и литературы по 15-0О$ почтой по адресам: 


117330 Москва, а/я 707, фирма "Зот" 
или 
121019 Москва, а/я 16, фирма "ИНФОРКОМ". 


В Москве 15-00$, различные прикладные программы для нее и документацию Вам 
предложит фирма "$ от", контактный телефон (095) 143-11-91, в следующих местах: 
- на корпункте "ИНФОРКОМА" по адресу: Москва, Новый Арбат д.2, 19-е отделение 
связи (1-й этаж операционного зала); 
- в здании Политехнического музея в отделе "Вычислительная техника" по адресу: 
Москва, Новая пл., д.3/4п.1, З-й эт. 
- на московском радиорынке в выходные дни у официальных дилеров фирмы "$101". 
Система и все прикладные программы к ней доставляются на качественных дискетах, 
в фирменной упаковке фирмы "З0т", со специальной фирменной маркировкой и 
комплектуются кратким описанием покупаемого продукта, необходимого для начала работы 
НЕЁРа и "Регистрационной карточки пользователя" которая дает ее обладателю право на 
50% скидку при покупке новой версии программы и бесплатное использование “горячей 


линии помощи". 

Зарегистрированным пользователям фирма в первую очередь предоставляет 
информацию о новых поступлениях программ и документации, проводит с ними 
индивидуальные консультации, организует обучение и семинары по обмену опытом. 


Первое знакомство с 15-005. 

15-00$ выгодно отличается от существующие дисковых операционных систем для 
компьютеров семейства "7Х-ЗРЕСТВУМ" и обладает более широкими возможностями, чем, 
например, традиционная ТВОО$. При разработке ОС 1$-0О$ использованы стиль и 
идеология известной операционной системы М$-0О$ и оболочки "Мо\йоп Соттапаег" для 
ЭВМ 1ВМ РС, а также стремление к максимальному удобству для пользователя. Такой 
подход к созданию системы обладает определенным преимуществом - пользователь, 
работающий на ПЭВМ типа "7Х-ЗРЕСТВУМ" с 15-00$ при переходе на 1ВМ РС попадает в 
знакомую, привычную уже среду "МОАТОМ СОММАМПЕРЯ". 

Операционная система 15-0О$ позволяет работать с разнообразными внешними 
устройствами, такими, как электронный диск, дисковод 5.25 дюйма, винчестер, модем и 
локальная сеть, принтеры различных типов. 

Полноценный текстовый редактор "ЕЧКог", программы печати текстовых и 
графических файлов, поддержка модема превращают обыкновенный “7Х-Зрестит" в 
полноценное рабочее место современного делового человека. 15-0О$ значительно 
расширяет возможности компьютеров типа "7Х-Зресгит" для использования их в научной 
деятельности, в сфере бизнеса и управления, для создания прикладных и коммерческих 
программных продуктов. 

15-005 ориентирована на пользователя, не обладающего навыками 
программирования, но не оставит равнодушным и профессионального программиста. И 
первое, с чем Вам предстоит познакомиться - это файловая оболочка системы. 


ФАЙЛОВАЯ ОБОЛОЧКА. 
( ЗНЕШЕ ) 


Файловая оболочка 13-0О$ предназначена для хранения, просмотра, редактирования 
и запуска файлов. В нее Вы попадаете после запуска операционной системы. Для этого 
необходимо вставить дискету с ос 15-0С$ в дисковод и нажать клавишу <Везе>, т.е. 
перезапустить компьютер. Загрузчик 15-0О$ перехватывает обращение ТВОО$З к диску и 
передает управление 15-005. После загрузки Вы увидите две панели с содержимым Вашего 
диска, а верхняя строка показывает системные утилиты, которыми Вы можете пользоваться 
при работе в оболочке. Эти утилиты вызываются цифровыми клавишами <1>....,<0> 
соответственно и выполняют следующие функция: 

НЕЁЕР - справочная информация. 


ОУЗЕА - вызов пользовательского меню. 

МЛЕМ/ - просмотр файла. 

ЕЙТ - вызов текстового редактора. 

СОРУ - копирование файлов. 

ВЕМАМЕ - переименование файлов, каталогов. 

сго!А - создание подкаталога. 

ОЕГЕТЕ - удаление файлов, каталогов. 

МЕМУ - системное меню. 

МАЗК - установка имен, расширений, параметров, файлов для отображения на 
панели. 


На верхней строке правой и левой панели указано текущее устройство и имя диска 
или подкаталога. На правой и левой панели - содержимое главного каталога. Чтобы 
оказаться в нужном Вам подкаталоге подведите курсор к нему и нажмите <Етщег>. Движение 
курсора осуществляется клавишами: 

<А> -вниз 


<О> -вверх 

<О> -на левую панель 

<Р> -на правую панель 

Здесь работают также стандартные клавиши управления курсором. 
<С5/О> - в начало каталога. 

<СЗ/А> - в конец каталога. 

<С$/О> - в корневой каталог левой панели. 

<СЗ/Р> - в корневой каталог правой панели. 

<$5/С5>- обмен панелей. 


Выбор нового устройства: 
<С5/1>- на левой панели. 
<С5/2>- на правой панели. 


При выборе нового устройства появится меню: 


СПоозе Ог1уе:; 


[А] в сСрЕЕ 


Управляя курсором клавишами <О>,<Р> можно выбрать новое устройство с помощью 
нажатия <Ещег>. Отказаться от выбора и выйти в оболочку можно с помощью <$55/А> или 
<брасе>. Подсказки по программам 15 -2О$ вызываются с помощью клавиши <1>. Для этого 
необходимо подвести курсор к интересующей Вас программе и нажать <1>. Для просмотра 
текстового файла подведите курсор к нему и нажмите клавишу <3>. Для управления 
оболочкой задействованы два типа клавиш - зарезервированые для оболочки и 
переопределяемые пользователем. 

К первому типу относятся: клавиши <О>, <Р>, <А>, <О> и их комбинации с <С$>, 
клавиш <5>, <6>, <7>, <8>, <9> и комбинации <С5/1> <С$/2>, а также <Ещег> и <Зрасе>. 
Клавиши <О>, <Р>, <А>, <О>, а также <5>, <6>, <7>, <8> в сочетании с <С5> - управляют 
движением курсора (такое управление является стандартным для 15-005). 

Второй тип клавиш и их функции заданы в файле ех{Кеу. 4+, в котором Вы можете сами 
определить функции клавиш так, как Вам удобно. По умолчанию поддерживаются 
следующие определения (один из вариантов): 


С - сравнение файлов на панелях; 
С - калькулятор; 
$$+с - копировщик каталогов; 


а - запрос даты; 
О - вывод данных о файле на экран; 

е - просмотр и удаление резидентов; 

т - поиск файла; 

Е - копирование файла с сегментацией; 

| - распечатка текста или картинки; 

| - свободное место на диске; 

пй - монитор командной строки; 

М - резидентный монитор ком. строки (необходимо сначала установить); 
$5+К - маркировать все файлы в каталоге (+); 

$5+] - отменить маркировку всех файлов (-); 


п - копирование файла с удалением (то\уе); 
г - удаление целого каталога с файлами; 

5 - вывод системной информации; 

5 - сортировка по имени файла; 


$$5+5 - сортировка по расширению файла; 


1 - вывод 'дерева' каталогов; 
и - восстановление удаленных файлов. 


Начальная загрузка системы. 


При начальной загрузке операционная система ищет в корневом каталоге диска, с 
которого она загружена, файл ашщоехес.бат. Если этот файл будет найден, то он 
выполняется. 

Файл ащоехес.Ба{ содержит команды, которые должны выполняться каждый раз при 
начальной загрузке системы. Эти команды осуществляют необходимую настройку 
операционной системы, устанавливают удобное для работы окружение, запрашивают 
текущую дату, устанавливают список каталогов в которых производится поиск выполняемых 
программ (команда ра), устанавливают текущий каталог рабочей панели и выполняют 
другие полезные действия. 


ПОДРОГРАММА ВЫЗОВА СПРАВОЧНОЙ ИНФОРМАЦИИ (ПОДСКАЗОК) 
( НЕЁР) 


Программа вызова справочной информации в основном меню системы (фигурирует 
как " НЕЁР ") вызывается клавишей <1>. 

Для получения справочной или дополнительной информации по интересующей Вас 
программе найдите файл этой программы курсором и нажмите <1>. Что Вы увидите? Это 
зависит от содержания файла с именем интересующей Вас программы, но с расширением 
„Ыр, находящегося в каталоге НЕЁР. Если Вы увидите: 

"М/есоте {о 5Пе! ог 1$-00$-92..." 

то это означает, что в каталоге НЕЁР отсутствует соответствующий файл с 
расширением .Шр и Вам предложена справка по оболочке. 


МЕНЮ ПОЛЬЗОВАТЕЛЯ 
( УЗЕЯ) 


Программа предназначена для удобства работа пользователя в ЗНЕШЁ (аналог 
программирования реакции на нажатие клавиши с большими возможностями, удобна для 
использования при быстрых переходах из каталога в каталог, для часто вызываемых 
программ, для вызова прикладных пакетов ит.д.). Программа вызывается клавишей <2>. 

Для работы программы необходим текстовый файл тепи 4х. При вызове программа 
вначале ищет файл тепи.{>{ в текущем каталоге, затем (при его отсутствии там) в каталоге 
ЗНЕЦ., таким образом пользователь может иметь в каждом каталоге свое меню. 


ПРОГРАММА ПРОСМОТРА ТЕКСТОВЫХ ФАЙЛОВ 
( ММЕМГ) 

Для просмотра текстового файла удобно воспользоваться функцией МИЕМ.. Для этого 
подведите к нему курсор и назовите клавишу <3>. На экране появится больше окно, в 
котором распечатается содержимое файла. По файлу можно двигаться с помощью клавиш 
управления курсором, а также в режиме непрерывного скроллинга. Можно переключить 
режим отображения текста на экран: 41/61 буква в строке. 


ТЕКСТОВЫЙ РЕДАКТОР 
(ЕПТ) 

Мощный и удобный в работе текстовый редактор ЕПИТ несомненно придется по душе 
даже профессионалу. По своим возможностям он ненамного уступает знаменитому 
текстовому редактору 1ЕХ!СОМ для 1ВМ РС. Кроме обычных функций удаления, вставки и 
построчного редактирования в нем реализованы возможности контекстного поиска и 
замены, блочные операции над текстом, режим использования псевдографики, разбивка 


текста на страницы, автоматическое или построчное форматирование текстовых абзацев с 
выполнением переносов слов по правилам орфографии, возможность одновременной 
работы с несколькими текстовыми файлами, работа с макросами. 

Для вызова текстового редактора подведите курсор к файлу, который Вы желаете 
отредактировать, и нажмите клавишу <4>. Если тип выбранного Вами файла относится к 
допустимому, то редактор предложит Вам его отредактировать, создать новый файл, или 
отказаться и от того и от другого. Вам будет также предоставлена возможность копировать 
файл в резервный файл расширением „Бак. В противном случае Вам будет предложено 
лишь создать новый файл. 


КОПИРОВАНИЕ ФАЙЛОВ 
( СОРУ\) 

Удобно и понятно в системе реализована функция копирования файлов. Для того, 
чтобы скопировать файл, надо подвести к нему курсор и нажать клавишу <5>. Для 
копирования группы файлов их надо предварительно выделить с помощью клавиши пробел. 
Копирование всегда происходит с текущей панели на противоположную. Включение режима 
работы с буферизацией заметно ускорит выполнение больших операций копирования. 


РЕДАКТИРОВАНИЕ АТРИБУТОВ ФАЙЛА ИЛИ КАТАЛОГА 
( РЕМАМЕ ) 

Изменить имя файла или его расширение поможет Вам функция ВЕМАМЕ. Она 
работает с атрибутами как файла, так и каталога. Установив курсор на файл, с которым Вы 
желаете работать, нажмите клавишу <б6>. При этом загорится б6-ий слева индикатор 
"ВЕМАМЕ" и возле выбранного Вами файла, замигает курсор строкового редактора. 
Изменив имя или расширение файла нажмите ЕМТЕН. 


СОЗДАНИЕ НОВОГО КАТАЛОГА 
( МКОВ ) 
Для создания нового каталога (подкаталога) нажмите клавишу <7> МКГУВ. В ответ на 
появившийся запрос введите имя создаваемого каталога. 


УДАЛЕНИЕ ФАЙЛОВ и КАТАЛОГОВ 
( ОЕТЕТЕ ) 

Удаление файлов или пустых каталогов выполняется клавишей <8>. Подведите 
курсор к удаляемому файлу и нажмите <8>. Для удаления группы файлов их надо 
предварительно выделить с помощью клавиши <пробел>. После ввода подтверждения 
файлы будут уничтожены. 


СИСТЕМНОЕ МЕНЮ ( МЕМО ) 
ВВОД МАСКИ-ШАБЛОНА ФАЙЛА. 
УСТАНОВКА РЕЖИМОВ ПЕЧАТИ КАТАЛОГА 
( МАЗКА ) 
Две последние функции файловой оболочки МЕМУ <9> и МАЗКА <0> помогут Вам 
настроить систему для быстрого поиска и удобной индикации в текущем каталоге файлов с 
необходимыми именами и ( или } расширениями. 


РАБОТА С ТВ-0О$ ДИСКАМИ В СРЕДЕ!$-005. 

Серьезное внимание разработчики системы уделили вопросам копирования 
информации из ТНВОО$ в 15-005 и обратно. Копирование файлов с ТВООЗ$-дисков 
выполняется программой ЕВОМ_ТАО и запускается клавишей <{> или из "УЗЕА"-меню. 
Текстовые файлы ТИМ с помощью программы ЕВОМ_ТЁМ/ после копирования можно 
преобразовать в формат редактора ЕОП системы 15-005. 

Копирование на ТАРО$-диски выполняется программой ТО ТАБРО$ и вызывается 
клавишей <{> или из "УЗЕА"-меню. Отметив копируемые файлы пробелом или подведя 


курсор к копируемому файлу нажмите <{>. Вам будет предложено меню, в котором можно 
отказаться от копирования, изменить текущие параметры копирования или выполнить его, 
нажав <ЕМТЕВ»>. 


РАБОТА С М$-0О$ ДИСКАМИ В СРЕДЕ!$-ОО5. 

Работая в 15-00$, Вы получаете возможность прочитать дискету в формате М$5$-00$ 
емкостью 360к, просмотреть каталоги и подкаталоги на ней, удалить файлы и каталоги, 
переименовать файлы и каталоги, создать новые каталоги, скопировать файл или группу 
файлов на диск 15-0О$ и обратно, перекодировать скопированный из М$5-0О$ текстовый 
файл в формат редактора ЕОП системы 15-0О$ и выполнить обратную операцию. 

Обращает на себя внимание отсутствие со стороны 15-0О$ ограничения на размер 
обрабатываемых файлов М$5-0О5. Это наверняка заинтересует тех, кто хотел бы результаты 
домашней работы перенести потом на более мощный компьютер для загрузки в базу данных 
или распечатки на лазерном принтере. 


ПРОГРАММА ПЕЧАТИ ТЕКСТОВЫХ ФАЙЛОВ. 

Программа печати текстовых файлов в 1$5$-0О$ выполнена в виде отдельной 
программы РЕМТ, которая вместе с редактором ЕГИТ позволит Вам получить качественный 
документ, использовав для этого все возможности подключенного к компьютеру принтера. 
Для вызова программы печати (предварительно загрузив драйвер печати) установите 
курсор на текстовом файле и нажмите клавишу <Н>. Загорится индикатор “\МЕМ/", и Вы 
окажетесь в меню программы печати текстовых файлов 15-005: 


ТзккабоЕТ 
РВТИТЕВ 
(С) 1992 


До начала печати можно определить формат печатаемого документа, количество 
столбцов печати, необходимость отступов, нумерации листов, плотность печатаемых 
символов, качество шрифта и другие параметры. Для настройки на конкретный тип 
принтера имеется специальное меню, которое предлагает Вам на выбор: ЕРЗОМ, МСбЗ12, 
МС6313, МС63З37. Если в этом перечне Вы не нашли подходящий для себя принтер, имеется 
возможность описать в специальном файле свой принтер самостоятельно. 


ПРОГРАММА ПЕЧАТИ ГРАФИЧЕСКИХ ИЗОБРАЖЕНИЙ И РИСУНКОВ ИЗ ФАЙЛОВ ТИПА *.5сг. 


Программа печати графических изображений практически эмулирует возможности 
известного графического пакета $УТОНУ ВОАЛАО РОВ М$-00$. Возможность 
масштабирования изображения, режим ЛУПА, свободное размещение на листе, печать в 
полутонах полностью удовлетворят Ваши потребности. 

Перед запуском программы должен быть инсталлирован драйвер Вашего принтера. 
Допустимый тип печатаемых файлов *.5сг. При переброске графических файлов из ТАОО5, 
не забывайте их переименовывать. Далее подведите курсор к файлу с расширением $сг, из 
которого Вы желаете распечатать графические изображения и нажмите клавишу Н. 
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Комментарий ИНФОРКОМа. 
При первом взгляде на то, о чем Вам сегодня рассказали, у пользователя возникает 
обычно два вопроса: 


- НЕУЖЕЛИ ЭТО СДЕЛАНО У НАС? 
- ПОЧЕМУ Я ОБ ЭТОМ ЕЩЕ НИЧЕГО НЕ ЗНАЮ? 


То же произошло и с нами. Где-то начиная с июля месяца 1993 года в нашей почте все 
чаще стали проскакивать сообщения о том, что где-то кто-то что-то видел или слышал. 
Люди просили рассказать, что мы знаем об 15-005. 

Комментарии, которыми сопровождались подобные сообщения, обычно 
соответствовали тем, которыми сопровождают сообщения об НЛО. Основная суть: это 
невероятно, этого просто не может быть, потому что этого не может быть никогда. 

Мы начали "раскручивать" этот вопрос. Сначала приобрели пару систем и проверили 
их в деле. Оказалось, что слухи не вполне правильно описывали действительность. 
ДЕЙСТВИТЕЛЬНОСТЬ ОКАЗАЛАСЬ ЕЩЕ НЕВЕРОЯТНЕЕ. 

И сейчас мы делаем однозначный вывод: "Господа, пока Вы читаете эти строки, Ваш 
компьютер переживает второе рождение, а у Вас начинается новая жизнь! О том, что 
сделали Ваши коллеги, российские программисты, К. Синклер даже и не мечтал. 

Да, это действительно сделано у нас в России! И мы еще расскажем на страницах "7Х- 
РЕВЮ" о том, как это было сделано и расскажем о тех людях, которые стояли у истоков 
новой системы. 

Самое же потрясающее, что это действительно многолетний труд, который не вышел 
за стены лаборатории до тех пор, пока система не была полностью подготовлена и обкатана 
и пока она не "обросла" необходимым пакетом утилит, драйверов и прикладных программ, 
то есть всем тем, без чего ее нельзя было бы взять такую, как она есть и сразу использовать 
на полную мощность. Это уникальный пример грамотного, но очень трудного с инженерной 
и экономической точки зрения маркетинга. Вы только представьте, через что пришлось 
пройти разработчикам, которые несколько лет работали в поисках и сомнениях, не имея 
возможности ни оценить спрос на свой труд, ни получить за него минимальную 
компенсацию. И если коллектив выжил в таких условиях, довел свое дело до конца, то ему 
просто надо ставить памятник при жизни. 


Из статьи руководителя фирмы “"ЗЁЕОТ", Самыловского Сергея Владимировича Вы 
узнали самые первые сведения об 15-005. По должности автор говорит в этой статье о том, 
что сейчас есть реально и что может быть взято Вами немедленно. 

У нас же руки в этом смысле развязаны и мы можем вместе с Вами, уважаемые 
читатели, заглянуть в ближайшее будущее. 

Система открыта, а это значит, что она представляет неограниченный простор для 
творчества системных программистов, которые могут уже сейчас работать над ее 
развитием, над разработкой новых системных утилит и драйверов любых внешних 
устройств. Основное достоинство состоит в том, что каждый, кто способен сделать нечто 
значимое, сделает это не для корзины и не для узкого круга близких друзей, а для тысяч 
счастливых обладателей новей системы и его труд получит достойное моральное и 
материальное вознаграждение. 

Программисты-прикладники, опирающиеся на возможности новой системы, получат 
необходимую поддержку от аппаратной среды (несколько дисководов, винчестер, средства 
коммуникации ит.д. ит.п.). Они смогут не просто работать, а работать "под систему" и быть 
уверены, что их труд не останется невостребованным. 

Поддержка из системы 15-0О$ сетевых возможностей даст неограниченный простор 
для творчества всем желающим. Это и возможность работы с ВВ$ и обмен информацией 
через модем. Возможно, уже в 1994 году в разных уголках страны появятся электронные 
журналы по "Синклеру". Каждый желающий сможет стать и автором и главным редактором и 
издателем. 


Совместимость файлов с форматом М$ОО$ фактически превращает Ваш "Спектрум" 
в !ВМ-совместимую машину (на уровне системы). Работая дома, по сети Вы получите доступ 
к ресурсам 1ВМ-компьютера, установленного у Вас на работе. Вы сможете по-новому 
организовать свой рабочий день и перейти к тому стилю, который уже давно практикуется в 
развитых странах. 

Ресурсы 1ВМ-совместимой техники смогут быть использованы на благо "Спектрума". 
Появятся редакторы и АССЕМБЛЕРЫ для "Спектрума", работающие на 1ВМ. Открывается 
возможность создания программ КРОСС-ассемблеров для перевода машинного кода 
программ, написанных для одного компьютера на машинный код другого. Все это 
возможно, но требует больших ресурсов памяти и большого дискового пространства для 
размещения функциональных библиотек. Теперь эти возможности начнут приходить в Ваш 
дом. 

Об уникальных возможностях использования “Спектрума" в качестве офисного 
оборудования мы уже и не говорим, они очевидны. 

Новая система предоставляет необычные возможности для заводов-изготовителей 
компьютеров. В своих производственник планах они уже сейчас могут учесть включение в 
принципиальную схему ПК узлов, которые позволят взять от машины максимум возможного 
под управлением 1$5-00$. Не исключено, что будут заключены лицензионные соглашения 
между заводами и авторами систему о включении в архитектуру компьютеров ПЗУ с 
системой 15-005. 

Все это перспективы ближайших нескольких месяцев. А что же для этого делается 
сейчас? 


Между фирмами “ИНФОРКОМ" и “"З1ОТ" заключено соглашение о совместных 
действиях по продвижению системы 15-00$ на рынок СНГ. Отныне, начиная с января 1994 г. 
"ИНФОРКОМ" начинает эксклюзивное освещение новой системы. Принято решение о 
пятикратном увеличении тиражности "7Х-РЕВЮ" в 1994 году и о существенном улучшении 
его полиграфического исполнения. Мы надеемся, что все желающие получать это издание 
наконец-то смогут это сделать и не остаться за бортом стремительного распространения 15- 
005. 

Программа действий согласована с авторами системы, фирмой 15Кга-Зой 
(С.Петербург) и получила полную поддержку. 

Предполагается, что по мере распространения системы и завоевания ею 
популярности, будет открываться и доступ к ее работе изнутри (для системных 
программистов). Со временем будут опубликованы точки входа в систему и закрытая часть 
информации о ее работе, короче говоря, распространение системы будет сопровождаться 
ее "открыванием" в расчете на то, что ее распространение будет поддержано дальнейшим 
ее развитием. Возможно, будет создана сертификационная группа для включения в систему 
разработок сторонних специалистов. 

Подготовлена и сдана в печать первая книга об 15-0О$, выход из печати ожидается в 
конце ноября - начале декабря 1993 года. Книгу можно будет и приобрести как в фирме 
"ЗЕОТ", так и по каналам "ИНФОРКОМа". 

Одним словом, всех нас ждут в 1994 году большие события. Настраивайтесь на 
серьезную работу, будущее обещает быть интересным. 

Ваш “"ИНФОРКОМ". 


ПРОФЕССИОНАЛЬНЫЙ ПОДХОД 


(С) Збитнев В.А. г. Новосибирск, 1993г. 


КОМПЬЮТЕР И ЗВУК 


Вы уже несколько знакомы с генерацией звука на Спектруме. Самый простой пример: 
оператор ВЕЕР в БЕЙСИКе. С остальными звуковыми эффектами Вы знакомы лишь 
понаслышке из игровых программ. Что представляет из себя звук на компьютере? На рис. 1 
представлено классическое изображение гармонической частоты. 


АА. 


Рис. 1 


На компьютере такая синусоида неформируема. Мы не сможем на “Спектруме" 
сформировать плавное изменение положения диффузора динамика, т.к. доступ к динамику 
возможен только через бит 4 (здесь четвертый бит является пятым по порядку или числом 
16, если все остальные считать нулями) порта номер 254. 

Положением динамика управляет один бит, значит возможны только два положения, 
где 0 - начальное положение, 1 - максимальное удаленное от начального положения. 
Графиком частоты, образованной таким образом, служит рис. 2. 


= 


Рис. 2 


Подобным образом информация считывается и записывается на магнитофон. 
Попробуйте набрать программу 1, в которой данные, считываемые с магнитофона, 
запоминаются в памяти. Информация может представлять собой человеческую речь, 
музыку и прочую звуковую информацию. Программа 2 проигрывает информацию, 
считанную с магнитофона и записанную в память, выводя ее на динамик компьютера. 

В данном случае информация записывается в верхние две трети экрана с задержкой 
15. Чем меньше эта задержка, тем быстрее заполнится память и более четко 
воспроизведение. Так что подбирайте ее по вкусу. 


Программа 1. 
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Программа 2. 
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Но даже при минимальном значении задержки звук не будет достаточно 
реалистичным. Из рис. 3 видно, что выделяются не все частоты, многие из них, находясь 
ниже 0, приравниваются к 0, а находящиеся выше 0, приравниваются к 1. 

Над данными, которые считываются с магнитофона, можно выполнять некоторые 
операции, например, удаление низкой частоты, подавление шума, выявление 
преобладающей частоты. Выявление частот используется в цветомузыке. Набрав 
программу 3, Вы можете узнать, сколько импульсов (точнее перепадов с 1 на 0 или с 0 на 1) 
произошло за некоторый интервал времени. 


Рис. 3 


Число импульсов возвращается в регистровой паре ВС, т.е. Вы можете вызывать эту 
программу Бейсик-программой. По числу таких импульсов можно узнать, какая частота 
преобладает (в данном случае за 127 тактов). Чем выше частота, тем меньше значение, 
содержащееся в ВС. Можно на основе этой программы создать цветомузыку или 
программу, распознающую мелодию, проигрываемую с магнитофона. Но эта программа не 
сможет Вам выдать точное значение частоты, идущей с магнитофона. Это значение весьма 
приближенно, т.к. часть частот пропадает, часть наоборот появляется в виде шума. 


Программа 3. 
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Если вы, к примеру, запустив программу 1, предварительно нажмете клавишу 
"воспроизведение" и "пауза" на магнитофоне, то увидите, что с магнитофона, который 
молчит, идет шум, который весьма заметен (вполне возможно, что у Вас прекрасный 
магнитофон, тогда шума не будет, но урезание частот останется). 

Итак, Вы представляете уже, какое качество звука можно получить, используя 
Спектрум, какие недостатки имеет звуковое решение на компьютере. 

Но возможен резонный вопрос: "Каким же образом регулируется громкость в 
мелодиях игровых программ?" Что же такое громкость? С помощью рис. 4 можно увидеть, 
что громкость - это амплитуда звуковой частоты. Но как же можно изменять амплитуду на 
Спектруме? 


Рис. 4 


Представьте себе, что на динамик подана 1. Динамик начинает поднимать диффузор. 
А потом тут же подадим на него 0. Диффузор опять примет начальное положение. А что, 
если мы будем увеличивать значение задержки между подачей 1 и 0. Диффузор поднимется 
уже несколько выше, и так можно увеличивать эту задержку до тех пор, пока за промежуток 
времени между 1 и 0 диффузор не будет успевать достичь наивысшего положения. 
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Рис. 5 


Если он будет успевать, то, как такового, изменения громкости происходить не будет. 
Вы, наверное, уже замечали, что в играх, в которых используется затухание, слышно, что 
при уменьшении громкости мелодии появляется высокая частота. Это происходит именно 
из-за этого эффекта. Подобные мелодии с затуханиями почти невозможно слушать на 
маленьких (высокочастотных) динамиках, так что наиболее благородно мелодия звучит на 
низкочастотных (больших) динамиках. Итак, мы выяснили, что для изменения громкости 
нужно изменять задержку между 1и0 
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1. - изменение громкости. 
2. - изменение частоты. 
Рис.6 


Теперь перейдем к формированию частоты. Обычно звуковая частота формируется 
так, как показано на рис. 2. Но можно формировать и другую форму частоты. Пример на рис. 
6. 

Теперь уже более понятно, как формировать частоту с изменяющейся амплитудой. 
Если Вы сделаете программу вывода звука по этому принципу, то Ваша программа будет 
работать нормально. Единственный недостаток: зависимость частоты от громкости. 
Предположим, задержка частоты равна 10, а задержка громкости равна 20. При уменьшении 
громкости будет слышно только изменение частоты и лишь в конце будет слышно некоторое 
изменение громкости. 

Перейдем к более точному методу. Чтобы частота сохранялась при изменении 
громкости, введем еще один параметр: задержка для сохранения частоты (Ъ). Ее суть 
состоит в том, чтобы расстояние между импульсами (4) оставалось постоянным, при 


изменении громкости (а). Значит, мы должны взять некоторое максимальное значение 
(атах), откуда 6 = атах - а. 

Т.е. чем больше значение задержки громкости (а), тем меньше значение 
компенсирующей задержки (5). К примеру, для затухания (а) уменьшается на 1, а (5) 
увеличивается на 1 до тех пор, пока (а)>1. При (а)=1 затухание останавливается. 
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Рис. 7 


Следующий вопрос: "Как сделать, чтобы одновременно могли работать несколько 
звуковых каналов?" 

Представим себе некую сумму двух частот (рис. 8). Здесь график | - уменьшающаяся 
частота, график ИП - постоянная частота, а график $ - результирующая (суммарная частота). 

Каждый такой импульс представляет собой отрезок (аЪ) см. рис. 7. Правда, у первой и 
второй частоты (а) и (5) могут отличаться. Способ, предлагаемый на рис. 7 здесь не 
проходит. Отрезок (с) между импульсами одной частоты превращается в счетчик, который 
определяет: через сколько тактов должен произойти импульс. Этот способ вывода звуковой 
частоты реализован в программе 4. 


Рис. 8. 


Еще одно важное замечание: отрезок (аб) занимает 1/8 часть отрезка (с). Это 
необязательно принимать во внимание, но это обеспечивает нормальную регулировку 
громкости при более высокой частоте. А так как 256/8=32, то задержка (аб) принята равной 
32. 

Как работает программа. В памяти с адреса 31000 лежит массив данных. В каждом 
четном байте лежит значение частоты для | канала, в нечетном - значение ноты ! канала. 
Если номер ноты равен 0, то данные канала не инициируются. Если четный байт более 127 
(установлен 7 бит), то удар в барабан. Если четный байт равен 255, то мелодия считается 
оконченной. Выход из программы осуществляется также нажатием на любую клавишу. 

Звук барабана формируется продолжительной установкой 1 на динамик и сброс затем. В 
конце программы подпрограмма ВЕСМОЕ уменьшает значение громкости обоих каналов. Но 
можно сделать один из каналов с постоянной громкостью или, наоборот, с ее увеличением. 


ЧИТАТЕЛЬ - ЧИТАТЕЛЮ 


В силу объективных причин так сложилось, что "ИНФОРКОМ\" серьезно не занимается 
аппаратными вопросами, связанными со "Спектрумом". Кстати, ведь каждый знает, что 
нельзя объять необъятное и как знать, что бы из нас получилось, если бы мы начали зани- 
тться несвойственными нам делами, может быть и ГХ-РЕВЮ уже не было бы. 

Но то, что мы этим вопросом не занимаемся вовсе не означает, что мы его 
игнорируем. Наоборот, мы очень высоко ставим эту проблему, просто не чувствуем себя 
мало-мальски компетентными, чтобы самим писать на эту тему или давать какие-то 
рекомендации. И чем меньше мы в этих вопросах разбираемся, тем ценнее для нас каждое 
письмо, приходящее от наших читателей на эту тему. Особенно, если в ней затрагиваются 
глубинные проблемы стандартизации и обеспечения совместимости разных машин. 

Сегодня своими мыслями и пожеланиями с Вами делится наш корреспондент из г. 
Казани Дмитрий Киселев. Это далеко не окончательная точка в проблеме. Это приглашение 
к свободному диалогу, к обмену идеями и мыслями, а на первых порах и это тоже большое 
дело. И мы полагаем, что даже тем читателям, которые и не помышляют о доработках и 
совершенствовании своих машин, эта статья будет интересна, поскольку они смогут узнать 
больше о том, в какой среде работают их коллеги, каково положение дел на сегодняшний 
день. 


(С) Киселев Д., Казань, 1993г. 


К ВОПРОСУ О СТАНДАРТИЗАЦИИ 


В связи с созданием Ассоциации Пользователей Домашних компьютеров и Фонда 
"ФЛОП" представляю Вашему вниманию мои соображения по поводу стандартизации 
дальнейших расширений к ПК "Спектрум". Не секрет, что многие системные программисты 
уже сейчас недовольны скоростными и информативными качествами этой в общем-то 
неплохой машины. Пример тому - создание многочисленных режимов, не существующих в 
стандартном "Спектруме 48К" и даже в "128+2". 

В некоторых моделях, таких как "Балтика", "АТМ" и "Пентагон профи" даже были 
попытки внедрить ОС СР/М (7Х-РЕВЮ 5,6-93 и "Радиолюбитель №4 за 1993 г.). Однако и 
здесь наблюдается неразбериха в адресном пространстве этих режимов, от внешнего порта 
для пользователя (программатор и т.д.) на ВВ55 до разных режимов графики и цвета. Даже 
на ПК “ОРИОН-128", который недавно начал развиваться, уже существует стандартная 
таблица портов расширения ("Радио", №4, 1993 г.) Настала пора подумать о подобной 
таблице и для ПК типа "Спектрум". Я понимаю, что "ИНФОРКОМ" аппаратными вопросами 
не занимается, однако хотелось бы узнать о программных решениях этого вопроса. В 
частности, было бы интересно узнать о карте памяти и портах в таких ПЭВМ как "Таймекс 48 
и 68" "Энтерпрайз", "“Амстрад 464" и им подобных (см. Примечание "Инфоркома" в конце 
статьи). На Западе ведь тоже люди не только целыми днями в "Элиту" играют, но и пытаются 
иногда сменить картриджи и приблизиться к более серьезной среде программирования. 
Неплохо было бы также услышать мнение специалистов по поводу удобства 
программирования и логической законченности подобных расширений. Само собой 
разумеется, что в одном письме всех аспектов этой проблемы не отразишь, поэтому я 
попросил бы вкратце ознакомить читателей с этим вопросом и пусть они выскажутся и 
предложат свои решения. Со своей стороны я предлагаю в качестве затравки 
стандартизацию следующих расширений. 


Во-первых, расширение памяти свыше 128К удобно адресовать через 2 старших бита 
в системном порту $Р128 (7Х-РЕВЮ 2/91). Таким образом можно адресовать до 
2^5*16К=512К ОЗУ. Однако здесь встают по крайней мере 2 проблемы: 

1) Необходимо так пронумеровать страницы, чтобы пользователь мог наращивать 
ОЗУ постепенно: сначала 1 линейка РУ5 (я предлагаю страницы 5,2,0 закрепить за ней, а в 


качестве первой сделать страницу 4, но об этом ниже). Далее при установке 2 линейки РУ5 
адресовать к ней остальные 4 страницы, а при установке во 2-ую линейку РУ7 изменять 
только банки этих 4 страниц. 


2) Так как в режиме 320К будут существовать 4 страницы с номером 7, необходима 
договоренность об использовании только одного ЗСВЕЕМ1 (2Х-РЕВЮ 2/91) или нескольких, 
что потребует дополнительных условий для переключения. В любом случае следует достичь 
максимальной совместимости с режимом 128К, а также возможности легкой доработки 
копировщиков, текстовых редакторов и т.д. на режим 320К. Все, кто может предложить 
какое-нибудь решение, пусть напишет о нем в "ИНФОРКОМ". 

Теперь про теневую страницу. Номер 4 я выбрал потому, что по физическим адресам 
она является предыдущей к 5-й и нижние 32К переадресовывать не нужно. В теневой 
странице можно размещать доп. экраны, отладчики и даже альтернативные версии ПЗУ, 
будь то Бейсик-система с 3-х скоростной загрузкой-выгрузкой, которой я пользуюсь, или 
ТА-ОО$. Эта возможность прекрасно реализована в ПК "Балтика". Порт, расположенный по 
ТЕН может не только отключать ПЗУ, но и выбирать 4 разновидности экранного 
пространства, о чем будет рассказано ниже. 

К сожалению, при включенном ПЗУ отключается всякое обращение к этой странице, 
что затрудняет загрузку в нее. С помощью небольшой доработки (нужно от элемента 032 
(ЛЛТ), отключить выход 033.2(ЛЕ4 выв. 6) и подключить выход 033.3 (ЛЕ4 выв. 8)) можно 
загружать любые данные с адреса О000О0Н с помощью стандартного загрузчика в ПЗУ. 
Способность записывать данные в ОЗУ через ПЗУ пригодится также и для мониторов и 
отладчиков, имеющих собственный экран в этой области. 

Кстати об экранах. В том же ПК "Балтика" реализовано 4 экрана, о чем говорилось 
выше. Первый экран - стандартный, расположен с адреса 4000Н. Второй экран - такой же по 
формату, но расположен с адреса 2000Н и может использоваться отдельным отладчиком, 
после этого экрана остается 2К на матрицы шрифтов 16х16. Третий и четвертый экраны 
заслуживают особого описания. Дело в том, что при формировании адресов их атрибутов 
отключается частота, делящая экран на 24 знакоместа в столбце и атрибуты адресуются так 
же, как и графика. 

Таким простым фокусом, который легко сделать и на "Ленинграде" и на "Пентагоне 
48", достигается графика не только высокого графического, но и цветного изображения 
(один байт пикселов на один байт цвета). Третий экран расположен с 0000Н, а четвертый с 
400о0нН. эти 4 экрана коммутируются битами 0 и 1, а ПЗУ отключается битом 7 порта 7ЕН. 
Таким образом, еще остается место для других расширений. 

Я предлагаю в качестве стандартного расширения экран с 2000Н и экран высокого 
цветного разрешения с 4000Н, т.к. он позволяет загружать стандартные картинки, а 
атрибуты в крайнем случае можно или пересчитывать, или убирать совсем. Конечно, при 
этом будет затрагиваться область буфера принтера, но в этих областях "сорят" и многие 
фирменные программы. Наличие же загружаемого "ПЗУ" позволит сместить эти области 
вверх и полностью решить проблему. 

Конечно, найдутся люди, которые скажут: - "зачем нам эти 12К графики, у нас и с 6К 
Спектрум не успевает работать". Однако, если стандартизировать также и турбо-режим 
процессора, который кстати можно прикрепить к одному из свободных битов порта 7ЕН, то 
соотношение 12К/7(8) МВ? будет даже лучше стандартного, да и проблема с "клэшингом" 
атрибутов почти решится. Остается, правда, вопрос о том, хватит ли быстродействия у ОЗУ, 
но это уже проблема технологов, а не программистов. 


Следующий вопрос, который подымался на страницах “7Х-РЕВЮ" - это вопрос 
стандартизации русского шрифта. И если создать доп. матрицы знаков и разместить их в 
удобном месте - это не проблема, то привязку русских букв к латинским клавишам, а также 
вопрос о выборе способа и кода переключения нельзя оставлять без внимания. Здесь я 
тоже предлагаю не изобретать велосипед, а пойти навстречу рядовым пользователям - 
секретарям, писателям и машинисткам. Достаточно взглянуть на решение этой проблемы 


со стороны фирмы 1ВМ, которая выпускает клавиатуру именно в стандарте ОМ/ЕАТУ 
(ЙЦУКЕН), а не в стандарте ОМ/ЕВТУ (ЯВЕРТЫ), который нравится лишь программистам- 
системщикам, а не машинисткам. Что же касается недостающих клавиш, то здесь можно 
предложить ввести дополнительные линии данных в порту клавиатуры ЕЕН. Это легко 
аппаратно реализуемо и используется в таких ПК, как "Оризон", "Оризон-микро", "Магик" 
(изг. в г. Ижевске), "Байт", а также, вероятно, в фирменном $Р128+2, где есть разъем 
КЕУРАО. Нужно лишь стандартизировать определенную привязку этих клавиш к линиям 
адресов и внести небольшие изменения в ПЗУ, связанные также с кодами переключения 
РУС/ТАТ, в качестве которых я предлагаю использовать коды 02/03, которые в Спектруме не 
используются, а в АЗСИ именуются как начало и конец текста соответственно. 

Необходимо также подправить синтаксис БЕЙСИКа, чтобы он не интерпретировал 
коды переключения внутри чисел и т.п. Впрочем, мне будет интересно узнать и другие 
мнения по этому поводу. 


Следующая доработка не встречалась мною ни в одном компьютере и потому я рискну 
назвать ее своей собственной. Речь идет о расширении музыкальных возможностей 
Спектрума. Сегодня существует множество программ, использующих музыкальный 
процессор 8912(10) в режиме 48К. Может быть, они используют также и порт динамика и 
записи на магнитофон для имитации ударников, хотя я лично таких о программ не слышал. 
Во всяком случае, я предлагаю использовать этот порт для создания ритм-фона и обращаю 
ваше внимание на следующий факт: в 8912(10) существуют 1(2) порта, которые 
предназначены для обмена данными с внешними устройствами и находятся внутри 
адресного пространства регистров 8912(10) и которые не используются. 

Я предлагаю поставить на порт А (который есть на обоих процессорах) два 4-х 
разрядных ЦАПа, которые будут делить сигналы динамика и магнитофона на 16 уровней, что 
дополнительно расширит диапазон музыкальных возможностей ПК. Конечно, ЦАП это 
слишком громко сказано, я имею в виду всего лишь известную А-2В цепочку. Кстати, 16 
уровней выходного сигнала вполне достаточно (в крайнем случае можно сделать эти 16 
уровней промежуточными между "0" и "1", т.е. получим "0" плюс еще 16 уровней от +5в лог. 
1), т.к. 8912(10) тоже имеет 16 уровней громкости и модуляции, во что я поверил только 
тогда, когда прочел его техническое описание. 

Из написанного видно, что желательно проводить комплексную стандартизацию 
расширений для наиболее полного их использования. Теперь слово за остальными 
читателями. Вообще нужно активнее работать в этом направлении, чтобы потом не было 
мучительно больно за то, что наш любимые компьютеры - это прыжок в будущее из 
позапрошлого. А основными критериями для стандартизации я предлагаю сделать в 
порядке важности 

1) минимальную несовместимость на программном уровне; 

2) удобство программирования, близость в адресном пространстве однотипных 
устройств и расположение "опасных" портов по четным адресам, меньшим 128; 

3) легкость аппаратной доработки на наиболее распространенных моделях. 


Внедрение этих доработок позволив всколыхнуть необъятные программирующие умы 
наших Родин, которые наделают на них (компьютерах) такие крутые программы, что на 
Западе (я надеюсь) люди начнут потихоньку собирать в гаражах "СНГовские Спектрумы". 


* * * 


КОММЕНТАРИЙ "ИНФОРКОМа". 


Читатель поставил вопрос о том, что ему интересен подход зарубежных 
производителей ПК "Энтерпрайз", "Амстрад-464", "Таймекс-2048" и "Таймекс-2068". Это 
уже вопрос по нашей части, кое-какой информацией мы располагаем. 

Сразу должны сказать, что опыт "Энтерпрайза", и "Амстрада" нам мало пригодится, 
поскольку эти машины по архитектуре существенно отличаются от "Спектрума", несмотря 


на то, что собраны на том же процессоре 7-80. То же можно сказать и о "Шарпе" и о 
стандарте М5Х ("Ямаха", "Хит-Бит", "Спектравидео" и пр.). Все эти машины (кроме м.б. 
"Шарпа") уже при своем "зачатии" планировались под работу в дисковой системе, чего 
нельзя сказать о "Спектруме", в котором ничего для этого не было сделано, и потому это 
скорее промежуточные прототипы для более поздних действительно интересных (по 
своему) машин, и их архитектура сейчас представляет скорее академический, чем 
практический интерес для наших условий. 

Совсем другое дело - "Таймекс". Эта фирма долгое время (до 1985 г.) работала по 
прямому заказу К.Синклера. Основная цель, стоявшая перед этими машинами была такая - 
"Обеспечить проникновение "Спектрума" на американский континент“ (было открыто 
представительство Синклера в Бостоне). Все-таки существовала определенная разница 
между Европейским и Американским рынками. У американцев и требования к машинам 
покруче, да и звонкой монеты в карманах всегда было побольше. То, что эта цель достигнута 
не была, другой вопрос, а вот как это делалось, нам действительно может быть интересно, 
ведь мы тоже сейчас находимся в аналогичной позиции - обеспечиваем захват 
"Спектрумом" рынка СНГ. 


Модель 2048 - почти полностью идентична стандартному "Спектруму". Естественно, 
для американцев сделали красивый дизайн, дешевая, надежная и очень удобная клавиатура 
и сейчас может служить отличным образцом для большинства наших производителей. 
Встроили порт джойстика и даже ВЫКЛЮЧАТЕЛЬ ПИТАНИЯ! Но это нам не так важно, 
важнее скорее то, что был применен новый контроллер экрана - на нестандартной, 
специально для этого случая сделанной БИС - единственное значительное изменение в 
архитектуре. 

Благодаря ей, стало возможным (теоретически) введение дополнительных экранных 
режимов и второго экрана, что делалось управлением по 255-ому порту. Практически же, 
надо сказать, это нигде не использовалось. 

Переключение экранов выполнялось командой ОЧТ 255,1. 

Кроме того, был введен дополнительный экранный режим (54 знака на 22 вместо 
32Х22), что исполнялось командой ОЧТ 255,п, где п - число, которое определяет цвет 
символов и фона, например, ОЧТ 255,62 - печать черным по белому. 

Появилась возможность реализации цветной графики высокого разрешения. На 
каждое знакоместо отводилось по 8 байтов атрибутов (вместо 1), т.е. в каждой линии 
знакоместа можно было задавать свой цвет ИМК и свой цвет РАРЕН. Эта возможность 
исполнялась командой ОЧТ 255,2. 

Команда ОЧТ 255,0 - возврат к стандартному "Спектрумовскому" экрану. 

Никакой поддержки в ПЗУ для этих нестандартных режимов работы не было и они 
могли реализовываться только программированием в машинных кодах. Стандартное 
программное обеспечение, поддерживающее эти режимы также неизвестно. 


Существенным шагом по изменению архитектуры компьютера была модель 2068. Она 
имела два встроенных порта джойстика, звуковой процессор и тот же оригинальный 
видеоконтроллер. Существенные изменения имело и базовое ПЗУ. Здесь действительно 
появилась новая карта памяти, новые системные переменные и новые порты ввода/вывода. 


БЕЙСИК приобрел несколько новых команд: ОЕЕЕТЕ, ЕВЕЕ, ЗИСК, ОМ ЕВВОВ и 
$ОУМО. 

Команда ОЕЁТЕТЕ позволяла удалять строку по ее номеру или группу строк 
(РЕРЕТЕ, 2.3. ). 

Команда ЕВЕЕ позволяла узнать объем свободной памяти БЕЙСИКА, например (РАМТ 
ЕВЕЕ.). 

Команда ЭТ!СК читала положение одного из двух джойстиков и работала аналогично 
команде 1МКЕУ$. Ее формат, например: 

РАМТ ПСК (т,п) 


Здесь т=1, если интересует положение рукоятки или т=2, если интересует состояние 
кнопки "ОГОНЬ". Параметр п=1 или 2 (соответственно левый или правый джойстик). 

Команда ОМ ЕВАОН обеспечивала переход в заданное место программы в случае 
возникновения ошибки. Команда ЗОЧМО служила для управления звуковым процессором, 
который имел три музыкальных и три шумовых канала, из БЕЙСИКа. 


Как и в "Таймексе-2048" здесь возможны те же режимы управления экраном, тоже 
возможно иметь два экрана или высокое разрешение атрибутов или 64 символа в экранной 
строке. 

Соответственно, была изменена карта памяти (звездочками отмечены участки, 
совпадающие со стандартным "Спектрумом"). 


Карта памяти с одним экраном. 


0000 
Системное ПЗУ. (*) 
1000 
Графический экран. (*) 
5800 
Атрибуты. (*) 
5800 
Буфер принтера. (*) 
5С00 
Системные переменны 
6000 
Машинный стек. 
6200 
Диспетчер прикладных 
рограмм в машинных кодах. 
6315 
Код управления банками памяти. 
6840 
Блок ременных для прикладных 
программ в машинных кодах. 
АКОВОЕ 
СНАМЗ 
Информация о каналах. 
РВОС 
БЕЙСИК - программа. 
УАВ5 
Переменные БЕЙСИКа. 
№], В 
Буфер редактируемой строки. 
МОВКОР 
Буфер ТМРОТ. 
оТКВОТ 
Стек калькулятора. 
ОТКЕМО 
Своболно. 
ВАМТОР 
Верхний предел БЕЙСИКа. 
пос 
Графика пользователя. 
Р_ РАМТ 
Физический конец ОЗУ. 


Как видно из этой карты памяти, во многом ее структура совладает с картой 
стандартного "Спектрума". В то же время, выделение зарезервированных областей для 
машинного стека, блока диспетчера прикладных программ в машинных кодах и блока 
машиннокодовых переменных, говорит о том, что во-первых, была попытка 
стандартизировать программы пользователя в кодах и, во-вторых, по-видимому, 
предполагалось в дальнейшем надстраивать архитектуру компьютера, оставив эти области 


неизменными для обеспечения совместимости с ранее выпущенным программным 
обеспечением. 

Переключение графических режимов выполнялось теми же командами ОЧТ, что и на 
Таймексе-2048, но здесь это поддержано новой картой памяти и новыми системными 
переменными. 


Карта памяти с двумя экранами. 


0000 

Системное ПЗУ. (*) 
4000 

графический экран-1. (*) 
5800 

Атрибуты-1. (*) 
5800 

Буфер принтера. (*) 
5<00 

Системные переменные. 
6с00 

Графический зкран-2. 

Атрибуты - 2. 
7в00 

Блок переменных для прикладных 

программ в машинных кодах. 
АВБОВОЕ 
СНАМЗ 

Информация о каналах. 
РВОС 

БЕЙСИК-программа. 
УАК$ 

Переменные БЕЙСИКа. 
РТ, В 

Буфер редактируемой строки. 
МОВКР 

Буфер ТМРОТ. 
ЭТКВОТ 

Стек калькулятора. 
ОТКЕМО 

Своболно. 
КАМТОР 

Верхний предел БЕЙСИКа. 
ООС 

Графика пользователя. 
ЕСО 

Машинный стек. 
Р9СО 

Диспетчер прикладных 

рограмм в машинных кодах. 
РАО 

Код управления байтами 

амяти. 
Р_ РАМТ 

Физический конец ОЗУ. 


Новые порты !/О. 


В Таймексе-2068 было задействовано несколько новых портов ввода/вывода для 
обслуживания во-первых двух джойстиков и, во-вторых, для обслуживания музыкального 
процессора. 


Управление музыкальным процессором осуществлялось командами ОЧТ по портам 
Е6Н - регистр данных и Е5Н - индексный регистр. Сначала командой ОЧТ по порту Е5Н 
получим доступ к одному из регистров музыкального процессора, а потом командой ОЧТ по 


порту ЕбН -вводим в него нужное число. 
Для чтения джойстиков сначала включался контроллер командой 
ОЧТРЬН,ОЕН 
а затем их положение определялось анализом портов: 
РЫЕЕН - левый 
Е6ЕОН - правый. 


Дополнительные возможности. 


Из-за существенных изменений в ПЗУ, в системных переменных и в карте памяти 
стала проблематичной совместимость с программами, написанными для фирменного 
"Спектрума". В принципе, эта совместимость возможна, но это скорее исключение, чем 
правило. Для того, чтобы все-таки добиться полной совместимости, фирма "Таймекс" 
начала выпускать дополнительные картриджи ПЗУ, для подключения которых компьютер 
имеет специальный отсек. 

После подключения такого картриджа компьютер становятся полностью аналогичен 
фирменному варианту, сохраняя свои дополнительные возможности для тех, кто 
обращается к ним через внешние порты из машинного кода. 

Для удобства пользователей на подобных картриджах выпускались и игровые и 
прикладное программы, например текстовый редактор, а с учетом того, что американцы 
испытывали в то время явную ностальгию по СР/М, был выпущен и картридж "Зебра", 
превращающий компьютер в СР/М-совместимую машину. 

У наших программистов, имеющих со старых времен большие заделы работ в СР/М 
тоже явно прослеживается ностальгия по этой системе, и вообще во многом пути развития 
могут быть схожи. Сейчас не хотелось бы делать выводы и рекомендации, еще не время, но 
опыт предшественников может дать пищу для размышлений... 


Единственное, что можно было бы сказать тем, кто думает над доработками и 
стандартизацией. Опыт показывает, что это не должно быть самоцелью и обязательно 
должно быть ПОДДЕРЖАНО ЭКОНОМИЧЕСКИ. 

Пусть мы скажем грубо, но прямо. Вы можете быть альтруистом сколько хотите и 
можете делать какие угодно открытия просто за спасибо, из любви к работе. Но если то, что 
Вы придумали, не даст другим людям заработать ни копейки, Ваше дело не приживется. И 
наоборот, если Вы открываете новый путь, по которому пойдут люди и увидят для себя в 
этом возможность не только поработать, но и ЗАРАБОТАТЬ, они подхватят, разовьют и 
увековечат Вашу идею и Вас вместе с ней. На этом построен весь многолетний опыт К. 
Синклера. 

Он дал возможность развернуться тысячам фирм, выпускающим программы и сотням 
фирм, выпускающим периферию. Те сделали свой капитал, а его компьютер стал самым 
популярным в мире. То же самое происходит и у нас. 

Врочем, последнее слово останется конечно за Вами, дорогие читатели и мы будем 
ждать Ваши письма и Ваше мнение. 


От редакции. 
Представляя читателям эту интересную авторскую работу, мы должны сказать 
несколько слов о Спектруме", о нашем взгляде на этот компьютер и вообще на 
"Синклеровское" движение в целом. 


"Спектрум" занимает совершенно особое место в деле компьютеризации нашей 
страны. Количество его поклонников давно перевалило за миллионы. Это движение, если 
говорить честно, стало всенародным и уникальным. Уникальность его состоит в том, что 
огромная часть самого талантливого, способного и одаренного населения одной шестой 
земного шара, не спрашиваясь ни советов, ни разрешений у высокого начальства, сделала 
то, что оказалось не под силу никаким госкомитетам и институтам. В рамках скромных 48 
килобайт каждый день во всех уголках страны решаются интересные проблемы, делаются 
настоящие открытия. 

Отличительной чертой нашего "синклериста" стала необычайная гордость за свою 
машину и уважение к ее возможностям. Ни для кого не секрет, что это маленькое чудо 
может очень многое из того, что и предположить себе не могут фирмы, торгующие 
суперсовременными 386-ыми и 486-ми 1ВМ-совместимыми машинами. Мы знаем 
множество примеров, когда способные программисты, намаявшись за рабочий день с 1ВМ- 
совместимой техникой, приходят домой и отдыхают наедине с любимым "Спектрумом". Они 
ни на что его не променяют. 

Умение реализовать свои идеи, найти новые решения, сделать свой компьютер 
профессиональным, оставаясь в пределах 48 килобайт, дают такой большой простор для 
творчества и самоутверждения, какого не во всяком деле найдешь. Мы можем восхищаться 
гигантскими прокатными станами, ловко расправляющимися с тоннами металла, но всегда 
будет в почете профессия ювелира, способного так обработать несколько граммов, что они 
будут радовать глаз и вызывать всеобщее восхищение. 

Все это имеет непосредственное отношение к данной статье. Астрономические 
расчеты достаточно сложны, но это одна из тех областей, в которых Ваш "Спектрум" смело 
может потягаться с гораздо более мощными потомками. Редакцию "7Х-РЕВЮ" особенно 
радуют такие материалы, которые выводят эту машинку на новый уровень, позволяют взять 
от него то, для чего она не предназначалась. 

Мы никогда не сталкивались с астрологией и были приятно обрадованы тем фактом, 
что это, как оказалось, не мертвая наука былых лет, а постоянно развивающееся учение и 
занимаются им люди серьезные. Они непрерывно растут, повышают свою эрудицию, 
компьютерную грамотность, расширяют круг общения. Короче говоря, если Вы растете и 
вместе с вами растут возможности Вашего "Спектрума", то это то, что надо - основная цель 
"7Х-РЕВЮ" достигнута! 

Для тех же из Вас, кто захочет заняться этим делом основательно, эта статья сможет 
стать первой вешкой на длинном и трудной пути. Мы далеки от мысли, что прочитав и 
разобрав ее, Вы сразу выйдете на некоторый достаточный уровень. Нет, это будет только 
началом. Может быть, даже трудным началом. Вам еще предстоит узнать и понять очень и 
очень многое. Статья достаточно сложна для неподготовленного читателя, поэтому кое-что, 
самое необходимое, в процессе редактирования мы вынесли в отдельный комментарий в ее 
заключении. 

Автор статьи - Сергей Крушинский. Он не является ни профессиональным 
астрологом, ни профессиональным программистом. И то и другое - хобби. По профессии он 
журналист. В то же время, его программы по астрологии у нас распространены не меньше, 
чем западные аналоги и, если Сергей достиг значительных успехов в своем деле, то 
благодаря огромной любви к астрологии и, самое главное, к своему ЗРЕССУ, как он нежно 
называет "Спектрум". 


(С) С.Крушинский (Москва), 1993. 


ЗРЕССУ + АСТРОЛОГИЯ 


Доводилось ли когда-нибудь читателю заглядывать в кабинет современного 
астролога? Если да, то могу спорить: первое, что бросилось в глаза, было не магическим 
кристаллом и не чучелом крокодила. На самом почетном месте светился дисплей! Как-то у 
моего знакомого, считающегося по праву одним из ведущих московских астрологов, 
сломался его "Коммодор". "Такое чувство, словно выключилось левое полушарие моего 
мозга", - жаловался он. Ничего удивительного, я сам вспоминаю как кошмар возню с 
таблицами и циркулем, длившуюся порой до полуночи ради того, чтобы построить один- 
единственный гороскоп, а под утро, напрягая взгляд, пытаешься его прочитать. 

Дело решительным образом изменилось после того, как я купил "Спектрум" и написал 
первую программу - она стала делать за меня "грубую" работу. 


Что такое компьютерная астрология? Это эффективная работа с большим 
количеством информации, возможность экспериментировать и исследовать. Чего только 
нет в современных астрологических программах, написанных для машин класса 1ВМ: базы 
данных, атласы мира, графика, статистическая обработка информации... Даже самому 
отьявленному скептику небезынтересно взглянуть на аккуратные распечатки, 
представляющие его персону с новой точки зрения. 

Может показаться, что "Спектруму" с его 48-ью килобайтами не под силу тягаться с 
куда более мощными компьютерами. Ничего подобного. Даже если за дело возьмется 
начинающий программист, не имеющий понятия ни о чем, кроме стандартного Бейсика - 
каким я был 2 года назад, когда написал первую программу, - ЗРЕССУ хватит на то, чтобы 
сделать по крайней мере самое важное, а именно: построить гороскоп рождения. 


Что такое гороскоп. 

Астрология покоится на аксиоме, согласно которой состояние мира в данном месте и 
в данный момент времени есть нечто уникальное. Когда человек рождается, он настолько 
восприимчив, что это состояние мира накладывает на него неповторимый отпечаток, 
впоследствии в большей или меньшей степени определяющий его реакции, а также тип 
ситуаций, с которыми приходится сталкиваться. 

Самая большая роль отводится Солнцу, Луне и планетам Солнечной системы. Их 
расстановка - основа астрологического "сюжета" - никогда не повторяется во всех 
подробностях, так же, как не повторяется ни одна шахматная партия. 

Сравните три рисунка. На них изображено по сути одно и то же: так называемая 
"небесная сфера". Вторая картинка имеется в любом астрономическом учебнике. За ее 
разъяснением можете обратиться и в энциклопедию. А третья - традиционный гороскоп. 

Положение любого тела на небесной сфере определяется парой координат: долготой 
или угловым расстоянием от точки весеннего равноденствия до проекции тела на эклиптику 
(*/1), и широтой - расстоянием "вверх" или "вниз" от нее, со знаком "+" к Северному полюсу 
эклиптики и "-" к южному. 


Сонце 
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Внешний круг - это пояс Зодиака. Он делится на 12 знаков: 


\’ -Овен 5 -Гелец 

П -Близнецы бо -Рак 

$ -Лев р - Дева 

© -Весы Ш. - Скорпион 
х - Стрелец \› - Козерог 
л^  - Водолей Ж -Рыбы 


Внутреннее кольцо разделено на 12 домов. Их тоже 12. Их отсчет начинается с линии 
горизонта (Асц-Дсц) и нумеруются против часовой стрелки, как и знаки. 


В этом же кольце расположены Солнце © ‚ Луна ( ипланеты: 


Меркурий (9) Венера о 
Марс [9 Юпитер 

Сатурн ‘а Уран ж 
Нептун ф Плутон [ 


Кроме того, Северный или Восходящий Лунный узел Ч. 


Зодиак - это пояс созвездий, тянущийся вдоль эклиптики. По нему совершают свой 
видимый путь Солнце, Луна и планеты. Астрологи делят его на 12 знаков по 30 градусов: 
Овен, Телец, Близнецы и т.д. Начало Овна - точка весеннего равноденствия. Астрологи 
говорят: "Марс - 12 градусов Тельца", а не "42 градуса", хотя это то же самое. В наше время 
знаки не совпадают с одноименными созвездиями. 

Другая система координат называется экваториальной. В ней две мерки - прямое 
восхождение и склонение. 


В астрологии есть еще такое понятие, как "дома". ИХ, как и знаков, двенадцать, только 
получаются они путем деления не зодиака, а пространства вокруг горизонта. Начало 1-го 
дома совпадает с точкой горизонта, где восходит солнце. Если знак говорит о том, как 
проявляет себя находящаяся в нем планета, то дом - о сфере жизни, на которую это 
действует. Сами же планеты - символы определенных жизненный принципов. 

Солнце - источник сил, достоинства, принцип власти: глава государства и "царь в 
голове" (этот ряд можно продолжать до бесконечности); Луна - инстинкты, привычки, 
чувства, Марс - борьба, самоутверждение, Венера - гармония, любовь и т.д. Изучив 
положение планет в знаках, домах и угловые расстояния между планетами, астролог 
пытается построить характерный сюжет. 

... Итак, надо научить "Спектрум" делать следующее: 

1) Рассчитывать эклиптические геоцентрические (*/2) координаты Солнца, Луны и 
планет; 

2) Определять границы домов в той же эклиптической системе координат и выводить 
результат на экран или принтер хотя бы в виде таблицы. Впрочем, места вполне хватит и на 
приличный рисунок. 

Основой для расчетов будут служить дата, время рождения и, кроме того, 
географическая широта и долгота. Рассмотрим подробнее эти этапы. 


Основной расчет. 

Вначале определяется положение Солнца на эклиптике. Рассчитываем 7М (среднюю 
аномалию), 7\ (истинную аномалию), 2В (радиус-вектор). Затем довольно простым 
способом $51, долготу солнца. Широта его всегда равна нулю (*/З). Две величины, 
полученные на данном этапе, В и 2М надо сохранить как ЗВ и ЗМ - они понадобятся в 
дальнейшем. Чтобы найти положение планеты, необходимо: 

1) Рассчитать тем же способом, что и для Солнца, ГМ, 2\,7В; 

2) Найти гелиоцентрическую широту (*/4) и долготу планеты (2В и 21); 

3) Используя полученные ранее величины, перейти к геоцентрическим координатам. 

Местонахождение Луны определяется совершенно особым способом, для нее 
придется предусмотреть отдельный программный блок. Вместе с Луной будет 
рассчитываться и долгота лунного узла - точки, в которой Луна пересекает эклиптику, 
двигаясь с юга на север. Она важна для гороскопа, поскольку говорит о том, насколько 
гармонично личность вписывается в социум. Все сказанное можно проиллюстрировать 
схемой (табл. 1): 


Таблица 1 


Планеты (от /=2 до /=9) 


АДУ, 1); ААА) 


Входом в этот блок процедур послужит переменная, выражающая искомый момент 
времени - Т и таблица, где содержатся характеристики орбит на некоторый известный 
момент, так называемую начальную эпоху ТО. Их нетрудно пересчитать на эпоху Т. Выход - 
массив А(2,11), долгота и широта 10 небесных тел и лунного узла. 

Формулы, которые используются для решения почти всех поставленных здесь задач, - 
это классические формулы небесной механики, основывающиеся на законах, открытых 
Иоганном Кеплером. Смешно подумать, они умещаются в десяток Бейсик-строк. Есть, 
правда, нюанс. Тела Солнечной системы влияют друг на друга, что нарушает в некоторой 
мере "правильность" их движения. В астрономии это называется "“возмущениями". Сатурн, 
например, может оказаться в соседнем градусе. Для достижения точности, на разных 
этапах расчетов приходится вносить поправки. 


Чтобы вычислить положения планет с точностью до угловой секунды, рекомендую 


такой алгоритм: 

а) отключить телефон, запереть дверь; 

6) выпить крепкого кофе; 

в) набирать тригонометрические выражения, страницу за страницей; вернуться к шагу 
6). 

Выход из этого цикла надо предусмотреть по одному из следующих условий: 

- если не хватило памяти компьютера; 

- если у программиста нервное истощение; 

- если последний убедился, что его старания бесполезны, т.к. все равно для 8- 
разрядного компьютера сверхвысокая точность недостижима (или достижима, но сверх- 
высокой ценой)! 

К счастью, в астрологии, в отличие от навигации, не требуется такая точность. Плюс- 
минус 10 минут вполне достаточно. Поэтому надо будет всего лишь внести маленькую 
поправку в гелиоцентрическую долготу Сатурна, Юпитера, а по желанию и Нептуна и Урана. 
Эта точность будет почти неизменной не только для нашего столетия, но и, скажем, для 16- 
го века. 


Календарь. 

Период Т говорит о том, сколько столетий прошло от начальной эпохи. Примем за 
начальную эпоху 31 декабря 1889 г., 12 часов 00 минут по Гринвичу. Рассчитаем, сколько 
суток и долей суток прошло с этого момента. Переведем их в столетия, поделив на 36525. 
Если наша дата приходится на один из прошлых веков, число будет отрицательным. 

Определение интервала в сутках - дело довольно хлопотное, если браться за него "в 
лоб". Поэтому астрономы применяют так называемую систему юлианских дат. За точку 
отсчета взят средний Гринвичский полдень 1 января 4713 г. до н.э. В следующий полдень 
наступила юлианская дата 1, потом -2 и т.д. Таким образом, начальной эпохе соответствует 
ю.д. 2415020, а 1 февраля 1965 г. 11 ч. 46 мин. - 2438792.99. Для определения ю.д. 
существует формула: 


9БЕТВОМС (365.25*У) + 
ТВОМС (30.6001* (М+1) + 
2+А+1720994.5 


Если месяц - январь или февраль, то У=(год-1), М=(месяц+12). Иначе У=году, 
М=месяцу. 


Р=число+ (час по Гринвичу+мин/60)/24 


А=0О, если дата дана по старому стилю. Иначе А=2-Х+ТВУМС(Х/4), где Х=ТВУМС(\/100) 


Дальше просто: вычитаем из ю.д. 2415020 - получается число суток от начальной 
эпохи. Между прочим, в подавляющем большинстве программ, занимающихся 
определением дня недели и биоритмов, используется система юлианских дат. Так, если 
известна ю.д. в О часов по Гринвичу, то номер дня недели: 

М = (20+1.5) МОБ 7. 

0 - воскресение, 6 - суббота. 


Примечание: Здесь мы применили две функции - ТВУМС( ) и МОБ, которых нет в 
стандартном Бейсике, хотя они имеются среди кодов калькулятора "Спектрума", поэтому 
надо дать некоторые пояснения. 

Функция ТВУМС выделяет целую часть дробного числа. Дотошный читатель может 
предположить, что то же самое делает и стандартная функция МТ, но это не совсем так. Они 
совпадают только для положительных чисел, для отрицательных же они различаются. 

Дело в том, что ИМТ всегда округляет число "вниз", а ТВУМС - всегда округляет к 
"нулю". 


Так, если число равно 3.14, то 1МТ (3.14) = З и ТВУМС (3.14) тоже равно 3. С другой 
стороны, если число равно -3.14, то 1МТ(-3.14.) = -4, а ТВУМС (-3.14) равно -3. 


Задать в стандартном БЕЙСИКе функцию ТВУМС можно так: 
ВЕЕ Е№ Т(Х)=$5@М№М(Х)*ТМТ(АВЗ Х) 


Теперь функция МОБ(Х) - это остаток от деления ХМ: 
ВЕР Е№ М(Х, У)=Х-У*ТМТСХИУ). 


Итак, помимо блока с основными расчетами, в программу надо включить календарные 
вычисления. На входе дата и время по Гринвичу, на выходе - Т (период) и УО (юлианская 
дата, она может еще пригодиться). 


Ввод исходных данных. 

Если не претендовать на очень уж товарный вид программы, то подойдет стандартное 
МРОТ. Обозначим данные, которые должны быть получены в результате так: УЕ, МО, ВА, НО, 
МЕ, ГА, ГО - год; месяц; день; часы; минуты; градусы широты (положительное число, если она 
северная, отрицательное, если южная); градусы долготы ("+" к западу, "-" к востоку, это 
может не соответствовать некоторым стандартам, но так удобнее). 

Способ организации ввода, т.е. вводить ли поясное время, а потом пересчитывать его 
в Гринвичское или сразу последнее; записывать долготу в виде градусов/минут или в виде 
десятичной дроби, как вводить для нее знак - дело вкуса. Главное - разобраться во всем 
заранее, в противном случае появятся ошибки, которые трудно будет выловить. И, 
разумеется, надо своевременно сообщить пользователю о выбранном формате. 

В англо-американских программах принято записывать не "23:15", а "11:15", затем 
"РМ" - "после полудня". Потом - номер часового пояса ("ИМЕ ГОМЕ"). 16 июня 1930 г. почти 
на всей территории бывшего СССР стрелки были переведены на 1 ч. вперед, что получило 
название "декретное время". А с 1980-го действует летнее. Поэтому к номеру часового 
пояса надо еще прибавлять 1 или 2 часа. 

Координаты Москвы в большинстве “фирменных” программ записываются так: 
037ЕЗ5; 55М№45 ("М" означает север, "Е" - восток). 

Я вполне солидарен с программистами, которые считают хорошим тоном проверять, 
не ошибся ли пользователь. Широта не может выходить за пределы -90, +90 градусов. В 
феврале 1993 г. 28, а не 29 дней... Что еще хорошо бы учесть? В самом начале я писал о 
домах гороскопа. Сегодня чаще всего применяют 2 системы: Планидуса и Коха, и в том и в 
другом случае при расчете идет в ход тригонометрия. Так вот, если задана заполярная 
широта и одна из этих систем, происходит остановка с сообщением "1МУАНО АВСУМЕМТ". 

Определить, сколько дней в любом месяце любого года можно по формуле: 


* 


— 


Х=28+АВ$ 
(1-5СМ ( 


МТ (МО/8) - (МО/2-ТМТ (МО/ 2))*2) +2*5СМ (АВ (МО-2) ) + 
(У/4-ТМТ (УЕ/4))*4))*(1-5СМ(АВЗ (МО -2))) 


В тех же фирменных программах, как правило, имеется банк данных, в котором 
хранятся во-первых имена и даты рождения клиентов, а во вторых, координаты городов. 
Дисковая операционная система ТВ-0О$ позволяет сделать то же самое на "Спектруме". 


Астрологические дома. 

Если полный оборот вокруг своей оси Земля совершает примерно за 24 часа, то 
каждые 4 минуты, или около того, над горизонтом восходит новый градус эклиптики. В 
астрологии этот участок называется Асцендентом и считается одним из самых важных 
факторов гороскопа, пожалуй даже более важным, чем солнечный знак (о котором идет речь 
на последних страницах газет). Примерно так же меняется кульминирующий градус или 
середина неба (она занимает самое высокое положение в небе по сравнению с остальной 
частью эклиптики). Противоположные им точки называются “десдендент" и "Основание 
неба", а все вместе - “углами гороскопа", вот вкратце их значения: 


Асцендент - темперамент, внешность, самооценка, самые характерные черты 


личности и судьбы... вообще, по одному нему можно сказать очень многое о человеке. Вся 
астрология, если угодно - не что иное, как учение о больших и малых циклах. Асдендент - это 
начало (в этой точке планета восходят, "рождаются"), а по началу любого цикла можно 
спрогнозировать его дальнейшее развитие. Еще его можно сравнить с оглавлением книги, 
где коротко указано, чего от нее ждать. 

Середина Неба - социальная реализация личности, карьера, общественное 
положение (здесь небесные тела кульминируют; Солнце пересекает это место в полдень, 
образно говоря, достигает расцвета), С.Н. в решительном, инициативном знаке Овна - 
человек готов идти на риск и борьбу, добиваясь профессионального успеха; в знаке Рыб - 
наоборот, пассивен, плывет по течению, зато шансы нередко сами приходят к нему в руки... 

Десцендент - говорит о других людях (в противовес "Я" - Асценденту), с которыми 
приходится считаться. Прежде всего, это партнеры: коллеги, супруг. 

Основание Неба - "источник": родительский дом, детство, родина, "семейное гнездо". 


Асцендент - начало 1-го дома. О.Н. - 4-го, Десцендент - 7-го, С.Н. - 10-го. Границы 
остальных домов рассчитываются в разных системах по-разному. На протяжении 2 
тысячелетий нашей эры одни системы уступали место другим. Сегодня широко известны 
несколько. Любопытно, что одна из них принадлежит перу Иоганна Молиториса де 
Кунигсберга (1436-1476), признанного математика, внесшего вклад в сферическую 
тригонометрию. Его имя, как и псевдоним - Региомонтанус - говорит о том, что родом он из 
нынешнего Калининграда. 

Другая система приписывается т. Кампанелле... Я приведу систему Вальтера Коха 
(1895-1977). Считается, что она особенно хорошо работает в сфере бытовых прогнозов. 

Расположение домов неодинаково не только в разное время, но и на разных широтах. 
Представьте себе апельсин, разрезанный наискосок. 

От угла, под которым прошел нох, будет зависеть внешний вид содержимого. Помимо 
широты и времени суток для решения задачи надо знать еще период Т и наклон эклиптики в 
эпоху (угол эпсилон, см. рис. 2) Обозначим его ЕС. 


ЕС=23.452292-1.30125Е-02*Т-1.6388889Е-О6*Т*Т+5.0305556Е-07, градусов. 


Сперва определяется прямое восхождение Небесного меридиана ВАМС, затем 
прямое восхождение пересчитывается в долготу (т.е. переходим от одной системы 
координат к другой) - получается С.Н. Находим асцендент. Наконец, зная "углы", одну за 
другой рассчитываем границы домов 11-го, 12-го, 2-го и 3-го. Остальные дома 
расположены в противоположных градусах. На выходе - массив Н(1...12), дома. 


"Дебют". 
А.Г.Алексеев в одной из статей для "7Х-РЕВЮ" удачно назвал этим словом 
фрагменты, которые повторяются в разных программах - с них удобно начинать. В мой 
"дебют" входит несколько процедур: 


1. МТЕРУАЕ ". 

В астрономических вычислениях часто приходится иметь дело с большими углами. 
Например, угол ГМ, рассчитанный по стандартной формуле, может оказаться равным 
29345.672 градуса или 512.17858 радианам. Это то же самое, что 185.672 градуса или 
3.2405876 радиан. Мало того, что последние два числа нагляднее. Бывают случаи, когда 
вычисляя тригонометрические функции больших углов, калькулятор “Спектрума“ 
ошибается. 

Попробуйте, например, РЕМТ $1М(512.17858). 

Получится -.098815626. 

Затем: РАМТ $1М(3.2405876). 

Результат: - .098833433! Между прочим, 1ВМ показывает: -0,0988334620170090. 

Десяток таких ошибок, и результат окажется столь далеким от точного, что духи- 


управители планет разгневаются на астролога, который им воспользуется... дабы избежать 
их немилости, предлагаю процедуру, которая приводит число А в интервал 0 - АМАХ: 


95 ВЕМ: вход А-число, АМАХ-верхний предел 

96 ВЕМ: Х-результат, У-локальная переменная 

100 ТЕТ У=ТМТ(АВЗ(А)/АМАХ)) *«АМАХ 

110 ТЕТ Х=А-Ух (А>=АМАХ)+( АМАХ+У)*(А<0): ВЕМ: Слава Джорджу Булю! 
120 ВЕТУВМ 


2. "РОЕУМОМЕ" 

Как Вы заметили, ряд формул содержит умножение последовательности чисел на 
степени времени (Т). Процедуру для этого на Бейсике удобно оформить в виде функции 
пользователя: 


129 ВЕМ РОГУМОМЕ 
130 БЕЕ ЕМ Р(А, В, С, Т)=А+Т» (В+С»Т) 


3. "АРСТАМСЕМ$(А/В)" 
При использовании функции АТМ возникает неопределенность: неизвестно, в каком 
квадранте лежит вычисленный угол. Его можно установить по знакам Аи\: 


139 ВЕМ на входе А,В (радианы), на выходе Х 

140 ТЕ МОТ В ТНЕМ 1ЕТ В=1Е-6: АЕМ на случай, если В=0 

150 ТЕТ У=АТМСА/В) 

160 ГЕТ А=\+(\У<0)»«РТ+(А<0)»РТ 

170 ЕЕТ В=РТ+РТ: 60508 100: ВЕМ к процедуре ТМТЕНУАЕ, которая вернет результат Х 
180 ВЕТИВМ 


Кроме этих подпрограмм, я включаю в "дебют" объявление констант. 


10 ВЕСТОВЕ 9000 

20 ВЕАО 2Е, ОМ, 16, К 

30 |ЕТ 5=РТИК: ВЕМ величина, приближающаяся к 1 радиану. Чтобы переводить градусы в радианы 
и наоборот, удобнее всего умножать, и делить число на 5, а не на (РТ/180) 

40 ТЕТ К2=К+К: ВЕМ 360 

50 ТЕТ Р2=РТ+РТ 

9000 ВАТА 0, 1, 60, 180: ВЕМ константа 


Этот ход значительно сокращает программу. Все же, из соображений читаемости, я 
не буду использовать константы в примерах. 


Неплохо было бы написать процедуры "дебюта" в кодах калькулятора и разместить их, 
например, в ВЕМ-строках. Параметры удобно передавать туда через функции пользователя. 
(См. "Элементарная графика", гл.3. или "Программирование в машинных кодах и на языке 
АССЕМБЛЕР а", ч. 2. гл. 4.6). Вопрос в том, как возвращать в Бейсик результат, он ведь 
находится на стеке калькулятора в интегральном представлении. Я знаю несколько 
способов. Увы, ни один из них не назовешь вполне изящным. Самый примитивный - завести 
особую переменную, допустим О, затем написать на Ассемблере процедуру, которая будет 
искать в области Бейсик-переменных нашу О и переносить в отведенные ей 5 ячеек памяти 
5 байт с калькуляторного стека. Процедура, которую я привожу - это слегка измененная 
программа ЕМО из М-3,4 "7Х-РЕВЮ" за 1993 год ("Применение ассемблера для создания 
быстроработающих программ"). 


САЕЕ ЕТМО ‚ Вызов процедуры, которая ищет адрес переменной и помещает его в НИ. 

Тм НЕ ‚ После кода имени переменной идут 5 байтов, туда и надо переместить 5 
‚ байтов со стека калькулятора. 

ЕХ ОЕ, НЕ ‚Чтобы выполнить команду ГОТВА, этот адрес должен быть в ПЕ. 

ЕО НЕ, (5065) ‚ Теперь надо найти начало стека калькулятора. Помещаем в НЁ 


‚ содержимое системной переменной ЗТКЕМО. Число находится в ячейках от 
‚ (ЗЭТКЕМО)-5 до (ЭТКЕМО)-1. 


ВЕС НЕ 
БЕС НЕ 
ВЕС НЕ 
БЕС НЕ 
ВЕС НЕ ‚ Теперь в НЕ - адрес первого байта искомого числа. 
ЕО ВС, 5 ‚Его длина - 5 байт. 
ЕОТА ‚ Передаем его переменной. 
ВЕТ 
ЕТМО ‚ Поиск переменной. 
ЕО НЕ, (5С4АВ) ‚Адрес системной переменной \АН$. 
Х1 ЕО А, 51Н ‚ Код буквы “0” 
СР(НЕ) ‚ Сравнение и выход, если переменная найдена. Ее адрес - в Н|. 
ВЕТ 7 
ВТТ 5, (НЕ) ‚ Если 5-й бит в имени равен 0, то это либо массив 
‚либо символьная строка. 
ЧА 0, Х2 ‚ Следующие строки следует пропустить. 
МС НЕ 
ЕО Е, (НЕ) 
МС НЕ 
ЕО 0, (НЕ) 
АБО НЕ, ОЕ 
мс НЕ 
УВ Х1 
Х2 
ВТТ 6, (НЕ) ‚ Аналогичным способом проверяем, не является ли переменная 
‚ многосимвольной, параметром цикла, наконец, если ни тем, ни 
‚ другим - соответствует ли ее имя “0”. 
УВ №, ХЗ 
МС НЕ 
ЕО А, (НЕ) 
ВТТ 7, (НЕ) 
УВ 0, -6 
ЕО ОЕ, 6 
АБО НЕ, ОЕ 
УВ Х1 
ХЗ 
ВТТ 7, (НЕ) 
УВ 0, -10 
ЕО ОЕ, 13 
АБО НЕ, ОЕ 
УВ Х1 


Конструкция получится такая: 
1. В БЕЙСИКе: Объявить переменную @ 
ГЕТ 0=0 
Объявить функцию пользователя: 
ОЕЕ РМ А(А,В,...)=05ВА адрес 
Вызывать ее 
ГЕТ Х=ЕМ АС...) 
Х здесь не имеет ровно никакого значения: он показывает лишь содержимое 
регистровой пары ВС. Важно то, что ответ содержится в О. 


Читателям, не имеющим опыта работы с калькулятором "Спектрума", предлагаю 
воспользоваться отлаженной процедурой ИМТЕВУАЕ. Перед тем, как вызывать ее, надо 
поместить параметры на калькуляторный стек. Первый параметр на стеке (сверху) - АМАХ, 
следующий - число А (листинг 1). 

При вычислении У неплохо было бы воспользоваться командой тоЧ/А№М, которой 
располагает калькулятор, но, к сожалению, она не во всех случаях работает корректно. 


Листинг 1. 


Дес. код Мнемоника Комментарий. Содержимое стека. 

6 ‚ Поскольку будет использоваться операция 

10 [О В, ОА ‚”>=", надо подготовить регистр В, помес- 
‚тив туда ее код (10) 

239 ВТ 28Н ‚ Включение калькулятора. 

192 зфоге М0 ‚ Сохраняем АМАХ в ячейке М0 

2 де1ете ‚И удаляем его со стека. 

193 эфоге М1 ‚ Сохраняем А в ячейке М1 

43 а6$ ‚ АВЗ(А) 

224 геса11 М0 ‚ Вызов АМАХ на стек 

5 атутае ‚ АВЗ(А)/АМАХ 

50 фгипсате ‚ ТНИМС ( АВЗ(А)/АМАХ) 

224 геса11 М0 ‚ АМАХ, ТВУМС(АВЗ(А)/АМАХ) 

4 ми 1р1у ‚ АМАХ* ТВИМС ( АВЗ(А)/АМАХ)=У 

194 эфоге М2 ; У - в ячейку М2 

225 геса11 М1 А, У 

49 Чир11сате А, А, У 

224 геса11 М0 ‚ АМАХ, А, А, У 

10 >= ‚А >= АМАХ ? Результат: 0 или 1 

226 геса11 М2 У, [0 ИЛИ 1], А, У. 

4 ми Е1р1у ‚ У» (А>=АМАХ), А, У. 

3 зи гасе Ух (А>=АМАХ)-А, У 

56 еп са1с ‚ Выход из калькулятора. 

6 ‚ Теперь надо подготовить регистр В к 

13 ЕО В, ОВ ‚ операции ”<”. 

239 ВТ 28Н 

224 геса11 М0 ‚ АМАХ на стек 

226 геса11 М2 ‚У на стек 

15 ао ‚ АМАХ+У 

225 геса11 М1 ‚А на стек 

160 соп$Е 7его :0 на стек 

13 < АХО? 

4 шит Е1р1у ‚ (АМАХ+У ) * (А<О) 

15 ао  А-Ух (А>=АМАХ )+( АМАХ+У) *(А<0) - что и 
‚ требовалось. . 

1 ехспапае ‚Лучше не оставлять на стеке “мусора”. 

2 Че1ете ‚В данной случае за результатом идет лиш- 
‚нее число, оно удаляется. 

56 епа са1с ‚ После чего - выход из процедуры. 


‚ Результат на стеке. 
201 ВЕТ 


Апология Бейсика. 

Вот и зашла речь о наболевшем вопросе: на каком языке программировать? Теперь, 
когда структура программы более-менее ясна, самое время порассуждать на эту тему 

Не стоит торопиться с ответом: "конечно же, в кодах". И вот почему. При всех 
бесспорных преимуществах - скорости, экономии памяти, возможности создавать 
нестандартные эффекты - даже отлаженная машинно-кодовая программа останется как бы 
замороженной. Изменить какие-либо детали еще можно, но структуру... легче писать 
заново, чем резать по живому. Если же автор серьезно интересуется астрологией, его 
взгляды на предмет не стоят на месте. То и дело возникает желание попробовать новую 
методику или изменить привычную. То и дело говоришь себе: “Вот этого я раньше не 
учитывал, а надо бы". 

Хочу подчеркнуть, структура, которую я описал, подходит для скромной программы 
не претендующей на то, чтобы удовлетворить неслабые потребности профессионального 
астролога. А методов, помимо гороскопа рождения - хоть пруд пруди.. 

Совершенствуешься и в умении решать вычислительные задачи. Я, например, совсем 
недавно узнал, как проще всего рассчитывать орбиту Плутона (это запутанный вопрос в 
астрономии, поскольку Плутон был открыт сравнительно недавно). И до сих пор не нашел 


простого способа выполнять на восьмиразрядном "Спектруме" математические операции с 
двойной точностью, как, например, в СМ/-ВАЗ!Се: задал "ОЕРОВЕ А-Т" - и все переменные от 
А до Т становятся числами с удвоенной разрядностью. Но рано или поздно, ведь, узнаю, 
быть может не без помощи "7Х-РЕВЮ". Кстати, не занимался ли кто-нибудь из читателей 
этим вопросом? Не думаю, чтобы это было архисложной задачей. В компьютере М5Х, 
построенном на том же процессоре 7-80, все числа по умолчанию 16-разрядные! Это очень 
пригодилось бы в календарных расчетах (9-я цифра в юлианской дате не обязательна, но ее 
присутствие повысило бы точность). 

... Еще один "минус" кодовой программы: мониторы-отладчики, по крайней мере, те, 
что мне известны, не “берут” кодов калькулятора. Попробуйте сами и увидите такую 
фантасмагорию! Дабы уменьшить мучения, мне пришлось делать специальный отладчик; он 
позволял писать мнемониками и макро-командами, переводил числа в упакованную форму - 
вобщем, выполнил всякую рутину, но при всем этом был лишен удобств пакета СЕМЗ$/МОМФ. 
Другое дело, игра - там калькулятор используется не так часто, задачи иные, а потому и 
подход не тот. 

Недостатки стандартного БЕЙСИКа общеизвестны. Ладно, пускай, вычисления. Хуже 
то, что ради экономии памяти приходится идти на уловки, делающие порой программу 
нечитаемой. Отсутствуют некоторые команды, очень полезные для создания хорошей 
структуры, типа ОМ...СОТО, зато спектрумовский БЕЙСИК один из самых демократичных. 
Как-то я попробовал на пижонском компьютере М5Х написать нечто вроде: 

СОЗуВ (\АЕ"1000” АМВ Х=5СМ РТ)+(\УАЕ"2000” АМ Х=ВТМ). 

Беднягу, кажется, стошнило... 


Есть ли другие варианты? Первое, что приходит в голову - ПАСКАЛЬ, однако, 
повозившись недельку-другую с версией фирмы Н!5ой, приходишь к выводу, что авторы ее 
заботились в первую очередь о том, как облегчить себе жизнь. Вещественные числа там 
имеют всего 6 значащих цифр (*/5). Чтобы получить результат такой же точный, как на 
БЕЙСИКе, приходится проделывать разные арифметические трюки. Из-за этого и по другим 
причинам катастрофически не хватает памяти. Нет полной ясности относительно того, как 
Паскаль взаимодействует с системой - распространенные руководства говорят об этом 
крайне скупо. Так что далеко не все машинно-кодовые фрагменты, которые пытаешься 
вставить в программу, используя оператор ИМИМЕ - особенно, если в них есть обращения к 
ПЗУ, дают ожидаемые результаты. 

Программу написать можно, в этом я убедился. Работать она будет исключительно 
быстро, читать ее текст и отлаживать - одно удовольствие - ПАСКАЛЬ есть ПАСКАЛЬ. Но 
считать она будет максимум в рамках двух столетий, делать сможет очень немногое... и 
никаких красот. Может быть, есть смысл сделать на Паскале графический табель- 
календарь, показывающий, как планеты движутся в течение, скажем, заданного месяца - 
благо, разрешение экрана не настолько высоко, чтобы на графике были видны минуты, зато 
важно, чтобы расчеты выполнялись быстро. 

С другой стороны, ничуть не худшего эффекта можно добиться с помощью ТОВОЗ-ЕР, 
пожалуй, единственного из Бейсик-компиляторов, который оправдывает надежды. С ним 
пришлось немало повозиться. Часть того, что о нем написано - не только в "таблоидных" 
инструкциях, но и в такой серьезной книге, как "Диалекты Бейсика для ГХ-ЗРЕСТВУМ" - 
оказалось неточным. А кое о чем важном там вообще не сказано, например, о том, что 
объектный код является релоцируемым. Несмотря на то, что непосредственно после 
компиляции он располагается с адреса 24000, его можно загружать и запускать с другого 
адреса - скажем, с 26000, расположив ниже собственные кодовые подпрограммы. Лишь бы 
он не затирал рабочие процедуры и стек компилятора. 

Напомню, что для компиляции больших программ в ТОВО$е предусмотрен режим 
"компиляции с уничтожением исходного текста". Оказалось, этот режим не работает с 
дисковой системой, которая сдвигает БЕЙСИК вверх. Так что приходится инициализировать 
стандартную ЭИМСЕА!В-систему страшной командой ВАМООММЕ ЦЗВ 0, загружать с ленты 
компилятор и исходный текст, компилировать, записывать полученный объектный код на 


ленту, потом загружать его с ленты в новый адрес и только после этого переписывать на 
диск (*/6). Удовольствия мало. Тем не менее, мне удалось откомпилировать таким образом 
довольно объемную программу, включавшую помимо расчетов еще и графику, сервис, 
разные виды таблиц - большую часть того, что необходимо профессиональному астрологу - 
и знакогенератор, печатающий 60 символов в строке. Больше всего поразила скорость. 
Хотите верьте, хотите нет, она была почти такой же, как у программы "РЕМА", написанной 
Б.Богдановым для |ВМ на Турбо-Паскале! 

Однако, увы, за все приходится платить. Недостаток ТОВОЗа - пониженная точность 
расчетов (он работает с 7-значными числами); памяти, несмотря на все, он съедает много: 
хочешь добавить в программу какой-нибудь милый пустячок - не тут-то было... 

Вариант, который мне кажется почти идеальным для некоммерческой 
астрологической программы - это БЕТА-БЕЙСИК. О его преимуществах было достаточно 
написано в "7Х-РЕВЮ". Он как будто нарочно создан для подобных программ. Позже пойдет 
речь об уравнении Кеплера. Оно очень красиво вписывается в структуру ОО...УМТИЕ. 
Оператор ОМ...СОЗИВ в паре мест просто необходим. Функции УМЕ, СОЗЕ, знакогенератор 
4/7 пикселов, возможность гибко манипулировать сеткой графических координат, окна - все 
это помогает наглядно иллюстрировать результаты. 


Параметры орбит. 
Я уже писал, что для расчета координат небесных тел нужно знать во-первых, период 
Т, а во-вторых, параметры их орбит в начальную эпоху ТО. Для каждой из планет таких 
параметров 6: средняя аномалия, эксцентриситет, большая полуось, долгота перигелия, 
долгота восходящего узла и наклон орбиты. Обозначим их переменными 2М, ГЕ, ГА, 2\М, ГО, 
1. 
Допустим, дата у нас 24 июня 1976 г. Время - Оч. по Гринвичу. Тогда юлианская дата: 


9Р= 2443683. 5, 


Т= (2443683.5-2415020) /36525 = 0.78476386. 


Найдем среднюю аномалию #М для Меркурия. В таблице даны три числа: 

102,27938, 

149472,52, 

ТЕ-6. 

Обозначим их Х1, Х2, ХЗ. 

М =) ХХХ тт 

(или ЕМ Р(Х1,Х2,ХЗ, Т))=117402.91 градусов = 42.91004 градусов = 0,74892085 радиан. 
Точно так же находим остальные значения. 

Все величины, кроме ГА (астрономические единицы) и Е нужно перевести в радианы! 

Поскольку каждая орбита представляет собой эллипс, данные параметры описывают 
именно эту геометрическую фигуру, а также ее положение относительно орбиты Земли. 


Положения Солнца и планет. 

Средняя аномалия М показывает, где бы находилась планета, если бы она двигалась 
равномерно по кругу. Зная ее и эксцентриситет эллипса, можно найти эксцентрическую 
аномалию ЕА и истинную аномалию 2\,, т.е. перевести планету на эллипс. Для определения 
ЕА служит уравнение Кеплера: 

ВА=ЛЕ*УТМ (ЕА) =7М. 

Очевидно, решить его не так-то просто, Но компьютеру все нипочем! Вот как это 

делается. 


197 НЕМ НЕЕТОЛ 
198 НЕМ 

199 ВЕМ Уравнение Кеплера. На входе 27Е, (М. На выходе ЕА 
200 ТЕТ ЕА=УМ: ВЕМ начальное значение ЕА 

202 ТЕТ ЕРЗУЕОМ=1Е-6: ВЕМ задаем точность 

205 ВЕМ начало цикла 


210 ТЕТ БЕЕТА=ЕА-7Е*5ТМ(ЕА)-7М: ВЕМ невязка. 

220 1ЕТ ЕА=ЕА-БЕСТА/(1-2Е*С0$(ЕА)): ВЕМ очередное значение ЕА 

230 ТЕ АВЗ(БЕЕТА)>ЕРЗУЕОМ ТНЕМ СОТО 210: ВЕМ к началу цикла, если не достигнута требуемая 
точность 


А вот как то же самое выглядит в кодах калькулятора (к моменту вызова этой 
процедуры на вершине калькуляторного стека должно находиться 7М, за ним - 7Е. Сама 
процедура может быть расположена в любом месте оперативной памяти). См. листинг-2. 


Листинг-2 
Дес. код Мнемоника Комментарий 
239 ВОТ28Н ‚Вкл. калькулятора 
195 эТоге МЗ ‚ Начальное значение ЕА, т.е. 2М - 
; В 3-ю ячейку памяти 
195 эфоге М4 ‚ГМ в 4-ю ячейку. 
1 ехспапае ‚ Меняем местами 7М и 7Е 
197 эфоге М5 ‚ГЕ в 5-ю ячейку 
2 де1ете ‚ Удаляем верхнее число со стека. 
‚ Это начало цикла. 
49 дир] 1сате ‚ Копирование вершины стека. 
229 геса11 М5 ‚ Вызываем 7Е 
1 ехспапае ‚ Теперь стек выглядит так: ЕА, 7Е, ЕА 
31 $1 ‚511(ЕА), 7Е, ЕА 
4 ми 1 ру ‚7Е*$11п(ЕА), ЕА 
3 зи гасе ‚ ЕА-7Е*$1п(ЕА) 
226 геса11 М4 ‚ вызываем 7М 
3 бибфгасе : ЕА-7Е*$11(ЕА)-ГМ, т.е. невязка ВЕЁТА. 
49 9ир11сате ‚ ОЕЕТА, ОЕЁТА 
161 сопзф опе ‚1, ОЕЁТА, БЕЁЕТА 
227 геса11 МЗ ‚ ЕА на стек 
32 0$ ‚ С05(ЕА) 
229 геса11 М5 ‚ГЕ на стек 
4 ми 1р1у ‚ сС03(ЕА)*ИЕ 
3 зи гасе ‚1-соз(ЕА)*7Е, ОЕЁТА, БЕЁТА 
5 д1утае ‚ ОЕЕТА/ (1-соз(ЕА)*7Е), ВЕЁТА 
227 геса11 МЗ ‚ ЕА на стек 
1 ехспапае | 
3 зибтгасе ‚ ЕА минус последний результат. Получено 
‚ очередное значение ЕА 
195 эТоге МЗ ‚ сохраняем его в 3-й ячейке 
1 ехспапае ‚ меняем местами ЕА и ОЕЁТА 
42 абз ‚ а6з (БЕЁТА) 
52 ‚ Это ввод 
221 ‚ числа 
6 :1Е-5 в упакованной форме 
55 ‚ (допустимая 
189 ‚ величина 
Э ‚ невязки 
3 зибтгасе ‚ аз (ВЕЕТА)-1Е-6 
55 ОТ тего  >0? 
0 
225 ]итр Егие-31 Если да, то переход к началу цикла 
56 еп са]1с. ‚ Выключение калькулятора. 
201 ВЕ ‚ Результат на вершине стека. 


Теперь можно найти истинную аномалию 7\/: 
235 НЕМ истинная аномалия. На входе ЕА, 2Е, ГА (большая полуось). 
240 ТЕТ А=7А*5ТМ(ЕА)*50В(1-7Е*7Е) 
250 [ЕТ В=7А*С05(ЕА)-7Е) 
260 @050В 140: ВЕМ к процедуре ААЯСТАМСЕМ$ 
270 ЕЕТ 7\=Х 


Затем радиус-вектор, ГВ: 


275 НЕМ радиус-вектор. На входе А, ЕА, 2Е 
290 ГЕТ 7ВА=7Ах(1-7Е*С05(ЕА)) 


Таким образом, величины 28, 2\ найдены, что и было намечено в первоначальной 
схеме. На этом можно было бы и закончить подпрограмму НЕЦОТ, однако, здесь же удобнее 
вычислить еще одну промежуточную величину, используя очередной параметр орбиты. 
Обозначим ее ГЦ. 


290 ТЕТ А=7\/+7\: ГЕТ АМАХ=РТ+РТ 

300 60508 100: ВЕМ к процедуре ТМТЕНУАЕ 
310 ТЕТ 71=Х 
320 ВЕТИАМ: ВЕМ конец подпрограммы НЕЕТОЛ 


Долготу солнца ($31) найти теперь просто. В случае с ним 2 -это долгота Земли. Так 
что 51=7У+Р!. Полученную величину надо “прогнать" через процедуру ИМТЕВУАЕ. С 
планетами сложнее. Вот как выглядит расчет для них. 


321 НЕМ НЕЕТО2 

322 НЕМ гелиоцентрические координаты планет. 

323 НЕМ на входе 70,71,70, на выходе 71, 7В - гелиоц. широта и долгота 
324 ВЕМ 

325 НЕМ *х* 71. 

330 ТЕТ А=С05(7Т)*з1п(70) ЕТ В=С05(21) 

340 ©0508 140: ВЕМ к процедуре ААСТАМСЕМ$ 

350 ТЕТ А=Х+70: ТЕТ АМАХ=РТ+РТ 

360 ©0508 100: ВЕМ к процедуре ТМТЕНУАЕ 

370 ТЕТ 71=Х 
380 ТЕТ 7В=АЗМ($ТМ( 2) *5ТМ(7Т)) 
390 НЕТИАМ 

395 НЕМ СЕОСЕМТНТС 
396 НЕМ переход от гелио- к геоцентрическим долготе и широте (10, 1А) 

397 ВЕМ на входе: 7Н, 21, 28, а также 5Н, 51 - радиус-вектор и долгота Солнца. 
398 ВЕМ 1, А, М, С, М, 0 - ЛОкальные переменные 

399 ВЕМ 
400 ТЕТ А=71-ЗЕ:ЁЕТ М=7В»*С05(7В):ЕЕТ С=7В»*5ТМ(7В) 
410 ЕЕТ М=М«5ТМ(А): ЕЕТ 0=М*С05$(А)+5А 
415 ВЕМ **»х |0 
420 ТЕТ А=М: 1ЕТ В=0: 60508 140:НЕМ ААСТАМСЕМ$ 
425 [ЕТ А=Х+5Ё: ТЕТ В=РТ+РТ:С0ЗИВ 100: ВЕМ ТМТЕВУАЕ 
430 ЕТ (0=Х 

435 ВЕМ *»х расстояние от Земли 

440 ТЕТ 7=$098(М»*№+0*0+С*С) 

445 ВЕМ *»* | А 

450 ТЕТ ГА=АЗМ(7Н/7*51№(7В)) 

460 ВЕТОВМ 


Осталось перевести [О и [А из радиан в градусы и передать массиву А( ). 


Луна. 

Вместе с Солнцем и Асцендентом, Луна - важнейший показатель в любом гороскопе, 
а в женском часто самый главный. Достаточно вспомнить, с чем она связывалась в 
представлениях разных народов, чтобы понять ее значение в астрологии. В древних 
религиях ее почитаем, как богиню зачатий и материнства. Если Солнце - активное, мужское 
начало, то Луна - уравновешивающая его пассивная, женская сторона природы, инстинкт 
самосохранения, чувства... Известно, что лунные циклы оказывают влияние на многие 
процессы в животном и растительном мире, на здоровье человека. Древние славяне 
лечились, выполняли земледельческие работы и даже солили капусту сообразно с 
определенными фазами Луны. 

Луна движется через Зодиак быстро, проходя полный круг за месяц, а один знак - 


примерно за двое суток. Точно вычислить ее положение в заданный момент времени 
непросто - слишком много факторов приходится учитывать. На каждом шагу надо вносить 
поправки. Целиком все занимает пару книжных страниц. Тем, кто желает вычислить 
положение Луны с точностью до минуты, рекомендую обратиться к книге Ж.Месса 
"Астрономические формулы для калькуляторов". Здесь же приведу упрощенный расчет, 
занимающий немного меньше места и дающий точность плюс-минус 10 минут дуги. Это не 
так страшно, как может показаться на первый взгляд - ведь видимый диск Луны "растянут" 
на целых 30 минут, полученная же долгота указывает положение центра диска. 


495 ВЕМ МООМ 

496 ВЕМ на входе Т, /0, 5, 5№. На выходе Х,\,20 - долгота, широта Луны и долгота Лунного узла 
498 ВЕМ С,0 - вспомогательные локальные переменные 
499 ВЕМ параметры орбиты 
500 1ЕТ 0=/0-2415020: ВЕМ число дней 
505 0ТМ Р(5): ВЕМ для поправок 
510 (ЕТ 71=270.434164+0*13.176397:АЕМ средняя долгота 
520 1ЕТ 7\=334. 32956+0*0. 11140408: АЕМ долгота перигея 
530 1ЕТ 7М=71-7\: ВЕМ средняя аномалия 
540 1ЕТ 20=259. 18328-0+0.052953923 ВЕМ долгота узла 

543 1ЕТ 71=5. 145396: ВЕМ наклон орбиты 

545 НЕМ приведение параметров в интервал 0...360 и перевод в радианы. 
550 1ЕТ АМАХ=350 
500 1ЕТ А=7М: ©0508 100:1ЕТ 7М=Х»(РТ/180) 
570 1ЕТ А=7Ё: 60508 100:1ЕТ 71=Х»(РТ/180) 
580 1ЕТ А=70: 60508 100:1ЕТ 20=Х»(РТ/180) 


прошедших от начальной эпохи 


590 1ЕТ 71=71»(РТ/180) 
595 НЕМ расчет основных поправок 
600 1ЕТ С=71-51 
610 (ЕТ Р(1)=1. 2739*51№(С+С-М) 
620 (ЕТ Р(2)=0. 1858*51№М($М 
630 ТЕТ Р(3)=0.37*5ТМ($М) 
640 1ЕТ 7М=7М+(Р(1)-Р(2)-Р(3))*(РТ/180) 
650 ТЕТ Р(4)=6. 2686*5ТМ(7М 
660 (ЕТ Р(5)=0. 214» 5Т№(7М+7М) 
2 


[=71+Р(1)+Р(4)-Р(8)+Р(5))*(РТ/180) 
[=71+0.6583*51№(2*71-5[))*(РТ/180) 
690 [ЕТ 70=70-0. 16*51№(5М)* (РТ/180) 

700 ЕТ С=71-70 

705 НЕМ *»» долгота 
710 ЕЕТ А=$5ТМ(С)*С05(7Т): ЕЕТ В=С05(С) 

720 60508 140: ВЕМ ААСТАМСЕМ$ 

725 ЕЕТ А=Х+70: ТЕТ АМАХ=РТ+РТ: ©0508 100: ВЕМ ТМТЕВУАЕ 
730 ВЕМ *»х широта 

740 ТЕТ У=АЗМ(5ТМ(С)*5ТМ(С)*«5ТМ(7Т)) 

750 ЕЕТ Х=Х/(РТ/180): 1ЕТ У=\/(РТ/180): ТЕТ 70=70/(РТ/180) 
760 ВЕТУВМ 


(Фр) 
(©) 
(<>) 
Г 
г 
1 
М 


Разумеется, вместо (Р/180) лучше использовать константу $, которая равна 
1.7453292Е-2, т.е. приблизительно 1 радиану. А массив Р(5) объявить в начале программы. 


Поправки на возмущения планетных орбит. 
Больше всего отклоняются от правильного в геометрическом смысле движения 
Сатурн и Юпитер. К их средним долготам (71) надо прибавить: 

Для Юпитера: 
0.3314-0.0103*Р(1))*51ТМ(Р(4))- 
. 0644*Р(1)»*С05$(Р(4)))*(РТ/180) 

Для Сатурна: 
0.1609*Р(1)-0. 0105)*С05$(Р(4))+ 
0.0182*Р(1)+0. 8142) *5ТМ(Р(4))- 

‚. 1488*5Т№(Р(5))-0.0408*5ТМ(Р(5)+ 
5))+0.0856*51№(Р(5))*С05(Р(3))+ 
0.0813*С05(Р(5))*51М№(Р(3)))*(РТ/180). 


Ки 


а а 


где: 
Р(1)=Т/5+0. 1 
Р(2)=(237.47555+3034.9061*Т)*(РТ/180) 
Р(3)=(265.91650+1222.1139*Т)»(РТ/180) 
Р(4)=5*Р(3)-2*Р(2) Р(5)=Р(3)-Р(2) 
Как всегда, полученные величины лучше привести в интервал 0...Р!*2. 


Расчет астрологических домов по системе В.Коха. 


885 НЕМ 

886 ВЕМ КОСН НОУ$ЕЗ 

087 ВЕ 

885 ВЕМ на входе: @МГ-время по Гринвичу в часах и десятых долях часа, 10 - долгота в 
градусах, “-” к востоку. [А-широта в градусах, “-”" к югу, ЕС- наклон эклиптики в 
градусах, Т. Выход: массив Н(1...12) - эклиптическая доля гота границ домов. 

892 ВЕ 

893 НЕМ Прямое восхождение меридиана 

894 ВЕМ 


900 ТЕТ ВАМС=ЕМ Р(б. 6460656, 2400.0513,2.581Е-5,Т):ВЕМ РОЕУМОМЕ 
910 ГЕТ А=(ВАМС+СМТ)*15-1Е0 

920 ЕТ ЕА1=ЁА*(РТ/180) 
930 ТЕ 1А>(90-ЕС) ТНЕМ ТЕТ А=НАМС+180: 1ЕТ 1А1=-ЕА1 
940 ГЕТ А=ВАМС: ТЕТ АМАХ=360:С0ЗИВ 100: ТЕТ ВАМС=Х: НЕМ ТМТЕВУАЕ 

945 ГЕТ ВАМС=ВАМС»(РТ/180): ЕЕТ ЕС1=ЕС*(РТ/180):ВЕМ перевод в радианы 
950 ВЕМ середина неба 
960 [ЕТ А=5ТМ(ВАМС):ЕЕТ В=С0$(ВАМС)*С05(ЕС1): 60508 140: ВЕМ АВСТАМСЕМ$ 
965 ТЕТ МС=Х 
970 ВЕМ Асдендент 
960 [ЕТ А=СО$(ВАМС):ЁЕТ В=-(5ТМ(ЕС)*ТАМСЕАТ)*С05(ЕС)*5ТМ(ВАМС): 60508 140 
985 ТЕТ АЗ=Х 
990 [ЕТ [=1: ТЕТ Х=А$: 60508 1140 
993 ЕЕТ [=10: [ЕТ Х=МС: 60508 1140 
995 ВЕМ Вершины домов 


ГЕТ А=5ТМ(ХЗ):ЕЕТ В=С0$(Х3)*С05(ЕСЛ)-ТАМ(ЕАЛ)*5ТМ(ЕСТ) 

ЕТ =Ё+1: ТЕ [>12 ТНЕМ ЕЕТ Е=Е-11 

О50В 140: ВЕМ ААСТАМСЕМ$ 

ВЕТ Н(Ё)=Х/(РТ/180):ЕЕТ А=Х+РТ: [ЕТ АМАХ=РТ+РТ: <050В 100: ВЕМ ТМТЕВ\УАЕ 
ВЕТ Н(Е+6-12*(1>7))=Х/(РТ/180): ВЕМ противоположный дом 

ЕТИВМ 


| р 


1000 ТЕТ ХО=ЗТМ(ЕС1Т)*ТАМСЕАТ)/С05(ЕС1)»*5ТМ(ВАМС) 
1010 ВЕЗТОНЕ 1020 
1020 ВАТА 0. 52350879, 1.0471976, 2.0943952, 2.617994 
1030 ЕЕТ Х4=-3 
1040 РОВ у=1 ТО 4 
1050 ВЕАВ Х: ТЕТ Х4=ХА4+1 
1060 ТЕ Х4=0 ТНЕМ ГЕТ Х4=1 
1070 @05иВ 1100 
1080 МЕХТ У 
1090 ВЕТИВМ 
1095 ВЕМ вычисления 
1100 ТЕТ ХЗ=ВАМС+Х+АТМ(ХО/508(1-Х0*ХО))*Х4/З 
0 
0 
0 
0 
0 
0 


=5 


Управляющая программа. 

Поскольку для ряда простых расчетов я давал лишь формулы, то нет смысла подробно 
описывать главный блок, показывая номера строк для переходов, важнее сам алгоритм. 
Выглядит он так: 

1) Ввести исходные данные. Проверить, не допустил ли пользователь ошибку. Если 
да, то начать сначала. Распечатать эти данные на экране и спросить у него самого, все ли в 
порядке. Если нет, начать сначала. Перевести все в формат, который будет использовать 
программа. 

2) Рассчитать юлианскую дату, соответствующую заданной дате и времени, вычислить 
период Т. 

3) Рассчитать по Т и данным из таблицы исходные параметры орбиты Солнца: 7М, ГЕ, 


ГА, АМ. Найти положение Солнца (см. НЕМО1). Сохранить среднюю долготу, радиус-вектор 
и среднюю аномалию Солнца в особых переменных. 

4) Найти положение Луны и Северного Лунного узла - М(1,1), М(2,1), М(11,1), М(12,1) 

5) Вычислить значения Р(1..5), которые понадобятся при расчете поправок на долготы 
Сатурна и Юпитера 

6) Для планет: 

Цикл для у от2 до 9 

Определить 7М, ГЕ, РА, 2, ГО, 71. 

Найти гелиоцентрические координаты. Если у=5 или 6 (Юпитер, Плутон), вычислить 
поправки и прибавить их к 71. 

Перейти к геоцентрическим координатам. 

Перевести результат в градусы и присвоить массиву М( ). 

7) Найти наклон эклиптики ЕС. 

8) Рассчитать границы домов Н( ). 

9) Вывести результат на дисплей или принтер. 

10) Вернуться к началу. 


Я намеренно не касался пункта (9) только потому, что тема эта слишком обширна. 
Сюда входят вопросы дизайна и графики, форматирования чисел... возможно даже 
несколько нестандартного прерывания, если Вы желаете, чтобы в углу экрана имелись часы 
- для всего этого потребовалась бы отдельная статья. Хотелось бы только обратить 
внимание читателей на следующее: все результаты, хранящиеся в массивах Н() и М( ) - 
вещественные числа, долготы лежат в диапазоне 0...360 градусов. Выводить на экран лучше 
градусы и минуты. Если же придерживаться астрологической традиции, то надо указывать 
знак Зодиака. Так, например, 338.25002 преобразуется в стринг "08:04 Рыб". Один из 
возможных способов вывода представлен на рис.3 (получен из зарубежной программы 
фирмы РгоПеи$ зоЙмаге). 


В заключение прошу извинить меня за слишком поверхностное изложение 
астрономии. Всем, кому такой уровень покажется недостаточным, горячо рекомендую 
книги: Ж.Меес - "Астрономические формулы для калькуляторов", М., Мир, 1988; П. Дэффет- 
Смит - "Практическая астрономия с калькулятором", М., Мир, 1982. Что же касается 
тонкостей астрологии, то среди моря доступной сегодня литературы я бы выделил учебники 
Сефариала, Джорджа Ллевеллина, Ф. Сакоян, Хет Монстера и философские работы 
Редиара. 


КОММЕНТАРИИ "“ИНФОРКОМа". 

/1. "Эклиптика" - правильнее говорить - "плоскость эклиптики". 

Это плоскость, которая совпадает с плоскостью орбиты земли. Поскольку Земля 
вращается вокруг Солнца, то естественно, что Солнце всегда лежит в этой плоскости. 

/2. Геоцентрические координаты - это координаты в системе, в которой начало 
отсчета привязано к центру Земли. Эклиптические геоцентрические координата - 
координаты в системе, в которой начало координат совпадает с центром Земли, а главная 
плоскость ХУ совпадает с плоскостью эклиптики. 

/3. Поскольку Солнце естественно всегда лежит в плоскости эклиптики, то его широта 
в эклиптической геоцентрической системе координат всегда равна нулю. 

/4. Гелиоцентрическая система координат - в отличие от геоцентрической связана не 
с Землей, ас Солнцем. Центр этой системы находится в центре Солнца, а главная плоскость 
ХУ - совпадает с плоскостью эклиптики. 

/5. Это действительно так, но надо признать, что это не столько облегчает жизнь 
создателям ПАСКАЛя, сколько пользователям. Ведь благодаря этому в ПАСКАЛе НРАТ 
удается использовать только четыре восьмиразрядных регистра для хранения 
действительных чисел (вместо пяти). Это значительно упрощает интерфейс программ на 


ПАСКАЛе с собственными процедурами пользователя в машинном коде. Из м/к легко 
находятся и эксплуатируются переменные ПАСКАЛЯ. 

/6. По-видимому, используя информацию, приведенную в статье Алексеева А.Г. 
"Секреты ТВРОЗ" (см. 7Х-РЕВЮ М1,2 за 1993 г.) этот недостаток компилятора можно было 
бы и устранить. Не исключено, что кто-то это уже и сделал. 


Справочные таблицы для расчетов элементов орбит планет. 


УМ ЗАТУНАМ 
358.47583 |35999.05 175.46622 |1221.5515 |-.000502 
.01675104 |-.0000418 .05589232 |-.0003455 |-7.28Е-7 
1.0000002 |0 0 0 
101.22083 [1.71918 1.0852207 |.00097854 
112.79041 |0.8731951 |-.00015218 
МЕВСУВУ 2.492519 _|-.0039189 |-.00001549 
102.27938 |149472.52 
.00002046 
0 428.37911 |.000079 
0.3702806 |.0001208 
1.1852083 |.0001739 
.0018608 __|-.0000183 0.985765 |-.0010745 
0.4986678 |.0013117 
.0006253__ |.0000395 
212.60322 |58517.804 |.001286 
.00682069 |-.00004774 |9.1Е-8 
0 0 218.46134 |-.00007 
0.5081861 |-.0013664 6.338-6 -2Е-9 
0.89985 .00041 0 0 
.0010058 __|-1Е-б6 0.3256394 |.00014095 
1.098935 |.00024987 
-.0095436 
319.51913 |19139.855 |.000181 
.0933129 |.000092064]|-7.75-8 РЕОТО 
1.5236883 |0 0 ГМ |229.94722 |144.91306 |0 
1.0697667 |.0001313 ГЕ |.24864 0 0 
0.7709917 |-1.4Е-6 ГА 1|39.51774 |0 0 
-.000675 ___|.0000126 ДМ |113.52139 |0 0 
ГО 1108.95444 |1.39601 .00031 
ДП 117.14678 |0 0 


225.32833 
.04833475 


3034.692 
.00016418 
0 
0.5994317 
1.01053 
-.0056961 


-.000722 
-4.876Е-7 
0 
.00070405 
.00035222 
3.ЭЕ-6 
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АБУЕМТУВЕ САМЕ$ 


Введение. 

Те, кто интересуются адвентюрными играми, знают о существовании программ для 
автоматизированного создания таких игр - ОЧ, САС и др. Интерес к этим программам 
поддерживается прежде всего тем, что очень часто любителям игровых программ приходят 
в голову отличные сюжеты, рождаются готовые сценарии и человек хочет сам создать карту 
своего выдуманного мира, населить пещеры троллями, попрятать золото в сундуках и 
насытить игру хитроумными головоломками. Что делать в такой ситуации? Если Вы не 
программист, то дело ваше почти безнадежное. 

Но на помощь Вам может прийти "АВЗ" - это система, которая позволит сделать 
первый шаг. Она может пригодиться и опытным программистам, ведь для того, чтобы 
проверить свою задуманную концепцию вовсе не нужно садиться и писать игровую 
программу. На это могут уйти месяцы, а окажется, что концепция не интересна, сценарий 
скучен и все труды затрачены зря. Гораздо удобнее иметь такой гейм-дизайнер, как АВ$ и 
тогда проверить свою концепцию можно в течение нескольких часов. 

Эта программа будет полезна и тем, кто просто интересуется вопросом "Как это 
делается?" Как устроены адвентюрные игры, как они работают - все это Вы узнаете, 
разобрав эту систему. 


"АВЗ", если вдуматься, готовый инструмент для создания обучающих программ для 
детей типа "Путешествие Васи Кляксина в страну Невыученных Уроков". Когда наберете 
необходимый навык, сможете делать такие программы своим детям хоть по пять штук в 
неделю. Вы можете также быстро создать игру-иллюстрацию к той книжке, которую только 
что прочитал Ваш ребенок или ученик. 

И, наконец, нет предела творческому воображению наших читателей - опытные 
хаккеры смогут развить и доработать эту программу - сократить ее размер, сделать 
генерируемые программы более насыщенными и оживленными, более 
"приспособленными" для русского языка - дерзайте, творите. 

Если дело пойдет, то мы с удовольствием поддержим его развитие и в разделе 
"Возвращаясь к напечатанному" будем сообщать о новых идеях и приемах, открытых 
нашими читателями. 


Структура системы. 

Система АВ$ довольно объемна. Листинг 1 - это сама программа АВ$5. Листинги 2...5 - 
демонстрационная адвентюрная программа, показывающая, как пользоваться программой 
АВ$. В них содержится вся необходимая для корневой программы информация - количество 
комнат, количество объектов, описания комнат и т.п. Под "комнатами" здесь понимаются 
конечно не физические комнаты, а локации, т.е. участки, из которых состоит игровое 
пространство - это может быть и лес и горы и борт космического корабля и действительно 
комнаты. 

Во время работы демонстрационная программа выдает на экран описание текущей 
локации (а может выводиться графика, если она есть) и список объектов, видимых в данном 
месте. Программа задает вопрос: "ВАШИ ДЕЙСТВИЯ?" и ждет от Вас команды. Ваша 
команда типа: "ВЗЯТЬ ФАКЕЛ" печатается на экране, затем анализируется сначала глагол, 
потом существительное и исполняется программой. 

Головная программа (Листинг 1) содержит кодировку часто встречающихся действий, 


например "С" или "ИДТИ С" означает "ИДТИ НА СЕВЕР". 


Листинги. 

Порядок работы с листингами, их ввода и их выгрузки на ленту - довольно сложен, но 
если Вы аккуратно будете следовать всем указаниям, то сможете не только установить 
головной блок, но и ввести и запустить демонстрацию. 

Программа русифицирована нашим традиционным способом с использованием 
утолщенного русско-латинского символьного набора в кодировке АЗСП КОИ-7, 
сформированного в файл "сПг" СОПЕ. 

Сначала введите Листинг_1. Он сохраняется на ленте прямой командой РУМ 9990. Это 
"Мастер-копия" головной программы. Вы будете ею пользоваться всякий раз, когда 
захотите создать новую игру, а пока спрячьте эту кассету в надежном месте, сейчас она нам 
больше не понадобится. 


Листинг_1. Программа "АВ$". Мастер-копия. Файл "АВЗ". 


60 ТО 100 

СТЕАН 49999: ГОАБ “спг” СОБЕ 50000 

60 то 0 

5 60 ТО 9990 

8 РОКЕ 23606,80: РОКЕ 23607, 194: ВЕТУВМ 

9 РОКЕ 23606,0: РОКЕ 23607,60: НЕТУВМ 

40 СЕ$ : РОКЕ 33658,8: 60 $0В 8 

42 РАТМТ РАРЕВ 0; ТМК 6; ВВТОНТ Т;АТ 1,3; ” АБУЕМТОВЕ ВУТЕБЕН $УЗТЕМ " 

44 ВЕТОНМ 

50 РНТМТ ТМК 2; ВНТОНТ 1; ЕГАЗН 1; АТ 8, 6; "ПОДОЖДИТЕ НЕМНОГО...”;АТ 10, 5; "ИДЕТ ГЕНЕРАЦИЯ 

ДАННЫХ. " 

52 ВЕЗТОВЕ 50: РОН Х=64008 ТО 64047: ВЕАО А: РОКЕ Х,А: МЕХТ Х 

54 БАТА 254, 226, 40, 15, 254, 195, 40, 15, 254, 204, 40, 15, 254, 203, 40, 15, 195, 48, 250, 62, 126, 24, 10, 62, 
124.246, 02,123,24.2.02,125:195 12, 29а 12122,13 ,201 

58 ВЕЗТОВЕ 60: РОН Х=64430 ТО 65077: ВЕАО А: РОКЕ Х,А: МЕХТ Х 

60. ВАТА 205,190;251,62,21,50,60,250,24,33,58,137,92,254,2,192,602,9,50,137,92,229,6,0,205,0, 

14,225, 201, 58, 137, 92, 71, 62, 24, 144, 254,22,40, 216 

61 ПАТА 50, 60, 250, 33, 61, 250, 6, 55, 54, 0, 35, 16, 251, 33, 61, 250, 54, 1, 35, 54, 1, 35, 54, 0, 33, 106, 92, 54, 

0.02,22,215;:58,00,250:215;6220, 215,62 

62 ВАТА: 62, 215,.62,22,215,99,00,250,215,58,601,290,215;00,50,61,250,62,42,.215;:10:0:205, 61, 91, 

205, 191,;2,33:8,92,78,62,13,185,202, 181,252, 62 

63 ПАТА 12, 185, 202, 132, 252, 62, 8, 185, 202, 132, 252, 58, 61, 250, 254, 32, 202, 48, 250, 121, 254, 32, 40, 

13, 254, 230, 212, 44, 250, 254, 128, 210,8, 250, 79, 24, 9, 79,58, 61, 250 

64 ПАТА 254, 3, 218, 48, 250, 65,62, 22, 215,58, 60, 250, 215, 58, 61, 250, 61,215, 60, 50, 61, 250, 120, 245, 

215, 241, 42,62, 250, 17, 63, 250, 25, 119, 42, 62, 250, 35, 34 

65 ПАТА 62, 250, 17,50, 0, 33, 200, 1, 205, 181, 3, 195, 243, 251, 58, 61, 250, 254, 3, 218,48, 250, 61, 50, 61, 

250;:62,22,215,:58,60,:250,.215,58,01,250,215,61,50,61,:250 

66 ПАТА 62, 32, 215,42, 62, 250, 1,62, 250,9, 54,0, 58, 62, 250, 61, 50, 62, 250, 195, 120, 252, 58, 61, 250, 

254, 3,218, 48, 250, 62, 22, 215, 56, 60, 250, 215, 58, 61, 250 

67 ПАТА 61, 215, 62, 32, 215, 17, 25, 0, 33, 250, 0, 205, 181, 3, 33, 63, 250, 54, 32, 35, 229, 6, З1, 126, 254, 48, 

56, 3, 35, 16, 248, 225, 17, 100, 250, 52, 31, 144 

68 ПАТА 6, 0, 184, 250, 251, 252, 126, 18, 35, 19, 16, 250, 24, 17, 79, 71, 126, 18, 35, 19, 16, 250, 62,0, 145, 71, 

175, 19,18, 16.252,33,93,250,6,31,126,254,0,32 

69 ПАТА 3, 43, 16, 248, 126, 254, 32, 40,3, 43, 16, 248,5, 72,6, 0, 33, 64, 250,9, 6, 0, 17, 107, 250, 126, 18, 35, 

9 250: 990017, 100.250:6,0,26,190 

70 ВАТА 32, 10, 35, 19, 16, 248, 126, 50, 114, 250, 24, 17, 72,6,0,9, 35, 62, 199, 190, 40,2, 24, 225, 33, 114, 

250, 54, 200, 33,0, 0, 17, 107, 250, 6, 0, 26, 190, 32 

71 ВАТА 10, 35, 19, 16, 248, 126, 50, 115, 250, 24, 17, 72,6,0, 9, 35, 62, 199, 190, 40,2, 24, 225, 33, 115, 250, 

54, 201,58, 115, 250, 71, 62, 0, 184, 216, 33, 24, 251,58 

72. ВАТА. 115, 350:6,:0,79, 95602. 1,190, 192,58, 115,250:0,0;128,50.115:250..201,35,0:05, 95450, 3, 

16, 251, 17,0, 0, 6, 0, 58, 24, 251, 33, 124, 251 

73 ВАТА 190, 40,4, 35, 16, 250, 201, 79, 62, 0, 144, 18, 19, 35, 121, 24, 243, 33,0,0,6,0, 54,0, 35, 16, 251, 17, 

0, 0,6, 0, 62, 99, 33, 124, 251, 190, 40 

74 БАТА 4, 35, 16, 250, 201, 79, 62,0, 144, 18, 19, 35, 121, 24, 243, 17,7,0, 33,0, 0, 6, 0, 58, 24, 251, 190, 40, 

3.29,16,250.598,115;,250,71,35,160,253,126 


- 
2 
4 


ВАТА, 50,115; 250,201, 33,24,251, 17,139,250,1,150,0,.237,176,201,33, 130,250, 17:24:25, 150, 


0,.297;110,201;:33,24,251:6,150,:54,0.35,16:251,1,:24,251 
БАТА 62, 0,2, 33, 99,0, 9 

ВЕЗТОНЕ 80: РОВ Х=64048 ТО 64059 

ВЕАБ 7: РОКЕ Х,7: МЕХТ Х 

ВАТА. 17, 51; 99; 125, 1:2055 181,3, 195,18,252 

ВЕТОВМ 

ВОНОЕН 7: РАРЕВ 7: ТМК 0: (15 : РОКЕ 23658,8: @0 508 8 

0 50В 40: 60 58 50: 60 508 40 

РОВ Х=1 ТО 11: ВЕЕР .1,Х: МЕХТ Х 

РОН Х=10 ТО 1 5ТЕР -1: ВЕЕР .1,Х: МЕХТ Х 

РАТМТ АТ 2,0; " 
ВВЕДИТЕ ПОЛНОЕ КОЛИЧЕСТВО ГЛА- 
ГОЛОВ, ИСКЛЮЧАЯ: 
ДТИ, ВЗЯТЬ (БРАТЬ), ПОЛОЖИТЬ 
(БРОСИТЬ), ПРОВЕРЯТЬ, СМОТРЕТЬ, 
НВЕНТАРЬ (И), СТОП (КОНЕЦ), С0- 
РАНИТЬ, ЗАГРУЗИТЬ; 
АКЖЕ БУКВ, ЗАДАЮЩИХ НАПРАВЛЕ- 

‚: С(ЕВЕР), Ю(Г). ВСОСТОК), 

ПАД), (ВВЕР)Х, (В)Н(ИЗ) - ВСЕ 
ТО УЖЕ ВВЕДЕНО С ПОМОЩЬЮ КОДОВ :” 
ИДТИ ея 0” 


хо фр х 
= 
> - 


- 
не 
РОВЕРИТЬ. .3 
"СМОТРЕТЬ. ..4” 
НВЕНТАРЬ. .5” 
6" 
7 
8 


(2) 
Е 
| 
- 


ох=оз==оэ 


ОХРАНИТЬ. . 
“ЗАГРУЗИТЬ. . 


29 
| 
5======= = 
| 
> 
[ээ) 
со © с © © © © © © 


РАТМТ ТМК 7; РАРЕВ 2; ВАТОНТ 1;АТ 5,2; “СИМВОЛЫ ИДЕНТИФИКАЦИИ КОМАНДЫ” 
РАТМТ АТ 8,0; " 

ВВЕДИТЕ КОЛИЧЕСТВО СИМВОЛОВ, 

КОТОРЫЕ СЛУЖАТ ДЛЯ СРАВНЕНИЯ 

ВВЕДЕННОГО ГЛАГОЛА С ОРИГИНАЛОМ. " 

РВТМТ ТМК 2;АТ 13,4; “ВВЕДИТЕ ЧИСЛО ОТ 3 ДО 7" 

ТМРОТ УЕ 

ТЕ \1<3 ОН \Е>7 ТНЕМ ВЕЕР .5,20: 60 ТО 127 

ГЕТ \МР=\Е+1: ТЕТ УРР=\Р+1 

ГЕТ БА\/=64000- (\*\Р) 

60 508 40 
РАТМТ АТ 8,0; " 

ВВЕДИТЕ КОЛИЧЕСТВО ОБ`ЕКТОВ, 
КОТОРЫЕ БУДУТ ВХОДИТЬ В ИНВЕН- 
ТАРЬ ИГРЫ: " 

ТМРОТ МОВ 


ТЕ МОВ>50 ТНЕМ РВТМТ ТМК 2;АТ 12,1; “ИЗВИНИТЕ, НО ЭТО СЛИШКОМ МНОГО! ": ВЕЕР .5,20: РАУЗЕ 


50: 60 ТО 140 

60 508 40 

РАТМТ ТМК 7; РАРЕВ 1; ВАТОНТ 1;АТ 5,2; “СИМВОЛЫ ИДЕНТИФИКАЦИИ ОБ’ЕКТА” 
РАТМТ АТ 8,0; “ 

ВВЕДИТЕ КОЛИЧЕСТВО СИМВОЛОВ, 

ПО КОТОРЫМ СУЩЕСТВИТЕЛЬНОЕ СРАВ- 

НИВАЕТСЯ С ОРИГИНАЛОМ” 

РВТМТ ТМК 1; АТ 13, 4; "ВВЕДИТЕ ЧИСЛО ОТ 3 ДО 7" 
ТМРОТ № 

ТЕ №<3 ОН №>7 ТНЕМ ВЕЕР .5,20: 60 ТО 160 

ГЕТ МР=М+1: ТЕТ МРР=ЮР+1 


РАТМТ АТ 8,0; ” ВВЕДИТЕ МАКСИМАЛЬНУЮ ДЛИНУ ОПИСАНИЯ ОБ`ЕКТА:” 
ТМРОТ Е 


176 ТЕ 1>32 ТНЕМ РАТМТ ТМК 2; АТ 12, 1; "МАКСИМАЛЬНАЯ ДЛИНА - ТОЛЬКО 32!": ВЕЕР .5,20: РАЦЗЕ 
50:60 ТО 170 
179 ТЕТ А\УА$=0 
180 60 58 40 
190 РВТМТ АТ 8,0; " 
ВВЕДИТЕ ЧИСЛО ОБ’ЕКТОВ, КОТО- 
РЫЕ МОГУТ ИЗМЕНЯТЬ СВОЕ ОПИСАНИЕ 
ПО ХОДУ ИГРЫ, НАПРИМЕР:”” ТМК 1`ТАВ 5; "ФАКЕЛ - ГОРЯЩИЙ ФАКЕЛ”` ТМК О’”ЕСЛИ ЭТО НЕ 
ТРЕБУЕТСЯ, ВВЕДИТЕ 0” 
195 ТМРОТ МСОВ 
196 ТЕ АУАЗ=0 АМО МСОВ>7 ТНЕМ РВТМТ ТМК 2; АТ 19,5; "ВЫ АБСОЛЮТНО УВЕРЕНЫ?”: ВЕЕР .5, 20: 
РАЦЗЕ 50: ТЕТ А\А$=1: 60 ТО 180 
200 60 $50В 40 
210 РНТМТ АТ 8,0; " 
ВВЕДИТЕ ЧИСЛО ПРОЧИХ СЛОВ, 
КОТОРЫЕ ПО ВАШЕМУ ЖЕЛАНИЮ ДОЛЖНЫ 
РАСПОЗНАВАТЬСЯ ПРОГРАММОЙ: " 
215 ТМРУТ МОМ 
220 ТЕТ №М=МОВ+МОМ+22 
225 ТЕТ ВАМ=ВА\-(М№»МР)-5 
230 60 $508 40 
235 РНТМТ АТ 8,0; " 
ВВЕДИТЕ МАКСИМАЛЬНОЕ — ЧИСЛО 
ОБ`ЕКТОВ, КОТОРЫЕ ОДНОВРЕМЕННО 
ОЖНО ВЗЯТЬ: ” 
240 ТМРОТ МАХ 
245 60 $50В 40 
255 РВТМТ АТ 8, 0; "ВВЕДИТЕ КОЛИЧЕСТВО ЛОКАЦИЙ: " 
260 ТМРИТ МН 
265 60 50В 40 
270 РАТМТ РАРЕВ 2; ТМК 7; ВВТЕНТ 1;АТ 5,8; “ФАКТОР СКРОЛЛИНГА” 
272 РНТМТ АТ 8,0; " 
ВЫ МОЖЕТЕ СДЕЛАТЬ ТАК, ЧТОБЫ 
ЕСКОЛЬКО  ВЕРХНИХ СТРОК НЕ 
СКРОЛЛИРОВАЛИСЬ ПРИ ПЕЧАТИ НА 
ЭКРАНЕ ДЛИННЫХ СООБЩЕНИЙ. СКОЛЬ- 
КО СТРОК ОСТАВИТЬ НЕПОДВИЖНЫМ 
РЕШИТЕ САМИ. 
273 РАТМТ "ЕСЛИ ТАКОЙ ЭФФЕКТ НЕ НУЖЕН - 0” 
277 ТМРУТ $СНО 
279 ТЕ $СНО>15 ТНЕМ РАТМТ ТАК 2; АТ 18,7; "ЭТО СЛИШКОМ МНОГО! ": ВЕЕР .5,20: РАЦЗЕ 50: 60 ТО 
205 
280 ТЕТ $СВО=23-$СВО 
285 60 $50В 40 
290 РВТМТ АТ 8,0; "В КАКОЙ ЛОКАЦИИ НАЧИНАЕТСЯ ИГРА?” 
295 ТМРОТ ВЕб 
330 РОКЕ 64821, ВА\-256»*ТМТ (БА\/256): РОКЕ 64822, ТМТ (БА\У/256) 
335 РОКЕ 64860, ВАМ-256»*ТМТ (БВАМ/256): РОКЕ 64861, ТМТ (БАМ/256) 
340 РОКЕ 64903, МСОВ: РОКЕ 64924, (МОВ-МСОВ): РОКЕ 64934, МОВ: РОКЕ 54944, МОВ 
345 РОКЕ 64960, (МОВ+1): РОКЕ 64972, МОВ: РОКЕ 64997, (МОВ+1) 
350 РОКЕ 64982, МОВ: РОКЕ 65012, МОВ: РОКЕ 64453, $СНО 
355 РОКЕ 65072, ВЕВ 
360 РОКЕ 64750, МЕ: РОКЕ 64772, МЕ: РОКЕ 64827, \Ё: РОКЕ 64810, МЕ:РОКЕ 64866, МЕ 
365 60 $508 40 
370 РНТМТ АТ 6,0; 
ЕСЛИ ВСЕ ДАННЫЕ ВЫ ВВЕЛИ КАК ПО- 
ЛОЖЕНО, НАЖМИТЕ <ЕМТЕА> И НАЧ- 
НЕТСЯ ГЕНЕРАЦИЯ СИСТЕМНОГО КОДА. " 
372 РНТМТ ТМК 2; АТ 13,4; “ИНАЧЕ ВВЕДИТЕ <5> - 5ТОР” 
373 ТМРИТ [ТМЕ А$ 
374 ТЕ А$="5”" ТНЕМ 60 ТО 9999 
500 60 $50В 40 
502 РНАТМТ ТМК 2; ВАТСНТ 1; ЕЁГАЗН Т;АТ 8,12; “ЖДИТЕ...”;АТ 10,5; ” ИДЕТ ГЕНЕРАЦИЯ ДАННЫХ. ^ 
505 НЕЗТОВЕ 1000 
506 БТМ \$(\, МЕ) 


и 


РОВ \У=1 ТО \ 

ВЕАО №$(У) 

РОВ Х=1 ТО МЕ 

РОКЕ (((БАУ-УРР)+(У*\Р)+Х)), СО0Е №$(У,Х) 

ТЕ С00Е \$(У,Х)=32 ТНЕМ РОКЕ (((БАМ-УРР)+(У*\УР)+Х)), 0 
МЕХТ Х 

ВЕАО 7 

РОКЕ ((БА\У-1)+(У*\Р)), 2 

МЕХТ У 

РОКЕ (БА\+(\*\Р)), 199 

1м 0$((МОВ), Е) 

ВЕЗТОВЕ 2000 

ОТМ №$( (МОВ+№0№+21), №.) 

ТЕ МСОВ=0 ТНЕМ 60 ТО 670 

РОВ У=1 ТО МСОВ 

ВЕАО №$(У) 

РОВ Х=1 ТО МЕ 

РОКЕ (((БАМ-МРР)+(У*МР)+Х)), СООЕ №(У,Х) 

ТЕ С00Е №(У,Х)=32 ТНЕМ РОКЕ (((БАМ-МРР)+(У*МР)+Х)), 0 
МЕХТ Х 

ВЕАО 7 

РОКЕ ((БАМ-1)+(У*№Р)), 2 

ВЕАО В$ 
ГЕТ 0$(у)=В$ 
ВЕАО В$ 
ГЕТ 0$(\+МОВ-МСОВ)=В$ 
МЕХТ У 
РОВ Х=0 ТО ((МСОВ*МР)-+1) 

РОКЕ (РАМ+Х)+( (МОВ-МСОВ)*МР), РЕЕК (БАМ+Х) 

МЕХТ Х 

РОВ У=(МСОВ+1) ТО (МОВ-МСОВ) 

ВЕАО №$(У) 

РОВ Х=1 ТО № 

РОКЕ (((БАМ-МРР)+(У*МР)+Х)), СООЕ №(У,Х) 

ТЕ С00Е №(У,Х)=32 ТНЕМ РОКЕ (((БАМ-МРР)+(У*МР)+Х)), 0 
МЕХТ Х 

ВЕАО 7 

РОКЕ ((БАМ-1)+(У*№Р)), 7 

ВЕЛО В$ 

СЕТ 0$(\)=В$ 

МЕХТ У 

РОВ У=(МО0В+1) ТО (МОВ+МОМ+21) 

ВЕАБ №(У) 

РОВ Х=1 ТО № 

РОКЕ (((БАМ-МРР)+(У*МР)+Х)), СООЕ №(У,Х) 

ТЕ С00Е №(У,Х)=32 ТНЕМ РОКЕ (((БАМ-МРР)+(У*МР)+Х)), 0 
МЕХТ Х 

ВЕАО 7 

РОКЕ ((БАМ-1)+(У*№Р)), 7 

МЕХТ У 

РОКЕ (ОАМ+(М»МР)), 199 

ВЕЗТОВЕ 3000 

СЕТ ОМО\=БАМ- (№0В*7)-5 

СЕТ ОМО\=ОМО\-256*ТМТ (0М0\/256): ЕЕТ ОМОУМ=ТМТ(ОМО\/256) 
РОКЕ 65009, ОМОМЕ: РОКЕ 65010, ОМОММ 

РОВ У=ОМОУ ТО (0МО\+(МОВ»7)-1) 

ВЕАО А: РОКЕ У, А: МЕХТ У 

ВЕЗТОВЕ 4000 

РОВ Х=65078 ТО (65078+( (МОВ-1)*4)) ЗТЕР 4 

РОКЕ Х,35: РОКЕ Х+1,62: РОКЕ Х+3, 119 

ВЕАО А: РОКЕ Х+2, А 

МЕХТ Х 

РОКЕ 65078+(МОВ*4), 201 

[ЕТ РВ$=65078+(МОВ*4)+5 

СЕТ РВ! =ЕВ$-256*1МТ (РВ$/256): ЕТ РВЗМ=ТМТ (РВ$/256) 


РОКЕ 64931, РВЗГ: 
РОКЕ 64941, РВ: 
РОКЕ 64969, РВ: 


РОКЕ 64932, РВЗМ 
РОКЕ 64942, РВЗМ 
РОКЕ 64970, РВЗМ 
РОКЕ 64980, РВЗМ 


РОКЕ 64979, РВЗЕ: 
ЕОВ Х=1 ТО 11: ВЕЕР .1,Х: МЕХТ Х 
РОВ Х=10 ТО 1 $ТЕР -1: ВЕЕР .1,Х: МЕХТ Х 
ВЕМ ЗЕ ВУ ВАЗТС 
СЕТ ЗА\УЕ=ОМОУ-10: ТЕТ 1Е\=65368-ЗА\УЕ 
СЕТ ЗА\УЕЕ=ЗАМЕ-256*ТМТ (ЗАУЕ/256): ГЕТ ЗАМЕМ=ТМТ (ЗАМЕ/256) 
СЕТ ГЕМ=ЕЕМ-256=ТМТ (1ЕМ/256): ЕТ ГЕММ=ТАТ (ЕЕМ/256) 
ВЕЗТОВЕ 874 
РОВ Х=0 ТО 9 
ВЕАО 7: РОКЕ (64116+Х),7: МЕХТ Х 
ОАТА ЗАМЕЕ, ЗАМЕМ, МАХ, МОВ, ТЕМЕ, ГЕММ, РВЗЕ, РВЗМ, ОМОМЕ, ОМОММ 
60 ИВ 40 
РАТМТ АТ 8,0; " 
ПОДГОТОВЬТЕСЬ К ВЫГРУЗКЕ НА 
ПЕНТУ. НАЖМИТЕ <ЕМТЕВ>, КОГДА 
БУДЕТЕ ГОТОВЫ. " 
ТАТ ТМК 2; АТ 12,0; " 
ЕСЛИ НЕ УВЕРЕНЫ, ЧТО ВСЕ ПРА- 
ВИЛЬНО, ТО ВВЕДИТЕ <5> - ТОР." 
ТМРИТ А$ 
ТЕ А$="5" ТНЕМ 60 ТО 9999 
60 ИВ 40 
РАТАТ АТ 8, 11; "ЗАПИСЬ. ..” 
ЗАМЕ "ЗУЗТЕМ"СООЕ ЗАМЕ, ГЕМ 
ЗАМЕ “Обдестз” ВАТА 0$() 
РАТМТ АТ 8,0; " 
ПРЕЖДЕ, ЧЕМ БЕЙСИК-ПРОГРАММА 
КОДЫ БУДУТ ЗАГРУЖЕНЫ В ПАМЯТЬ, 
ДОЛЖНО БЫТЬ ВЫПОЛНЕНО: "° ТАК 2°ТАВ 10; "СЕЕАВ "; ЗАМЕ-1 
ВЕЕР .5,20: РАОЗЕ 50 
РАТМТ РАРЕВ 2; ТМК 7; ВВТЕНТ 1:АТ 15,0; " 
ТМОТАЙТЕ ЛЕНТУ 

И ВЫПОЛНИТЕ ВЕРИФИКАЦИЮ 
ВЕЕР .5,20: РАОЗЕ 50 


|<) 


935 РНТМТ АТ 18,0; " 
НАЖМИТЕ ЛЮБУЮ КЛАВИШУ, КОГДА БУДЕТЕ ГОТОВЫ. ” 
940 РАЦЗЕ 0 
945 60 $508 40 
950 РНТМТ АТ 8,9; "ВЕРИФИКАЦИЯ. ..” 
955 МЕВТЕУ “зузфет”СО0Е ЗА\Е, ЕЕМ 
960 \УЕВТЕУ “об]есф$” БАТА 0$() 
965 (1$ 
970 60 ТО 9999 
999 НЕМ ГЛАГОЛЫ ВАТА 0-8 ====== 


1000 ВАТА “ИДТИ”, 0, "СЕВЕР", 0, "С", 0, "ЮГ", 0, "Ю”, 0, "ВОСТОК", 0, "В", 0, "НАПРАВО", 0, "ЗАПАД", 0, "3", 


ТМТ АТ 8, 0; "ОТМОТАЙТЕ ЛЕНТУ ДЛЯ ВЕРИФИКАЦИИ. " 
ЕЕР 


0, “НАЛЕВО” , 0, "ВВЕРХ", 0, "Х", 0, "ВНИЗ", 0, "№", 0, "ВЗЯТЬ", 1, "БРАТЬ", 1, “ПОЛОЖИТЬ”, 2, 
“БРОСИТЬ”, 2, “ПРОВЕРИТЬ”, 3, “ОСМОТРЕТЬ” , 3, “СМОТРЕТЬ”, 4, “ИНВЕНТАРЬ” ‚ 5, "И", 5, "СТОП", 6, 
“КОНЕЦ “, 6, "СОХРАНИТЬ" , 7, "ЗАГРУЗИТЬ", 8 
1002 ВЕМ ДАННЫЕ ДЛЯ ПРОЧИХ ГЛАГОЛОВ (КОМАНД) ================= 
1999 НЕМ ОБ`ЕКТЫ, КОТОРЫЕ ИЗМЕНЯЮТ СВОЕ ОПИСАНИЕ В ХОДЕ ИГРЫ== 
2019 ВЕМ ПРОЧИЕ ОБ’ЕКТЫ ======== 
2189 ВЕМ ПРОЧИЕ СЛОВА. РАСПОЗНАВАЕМЫЕ ПРОГРАММОЙ ============== 
2190 ВАТА “СЕВЕР”, МОВ+1, “С”, МОВ+1, "ЮГ", МОВ+2, "Ю”, МОВ+2, "ВОСТОК" , МОВ+3, “В”, МОВ+3, “НАПРАВО”, 
ОВ+3, ° 'ЗАПАД", МОВ+4, ° :3' ‚ МОВ+4, НАЛЕВО”, МОВ-4, ` 'ВВЕРХ” ‚ МОВ+5, 'Х” ‚ МОВ+5, ВНИЗ”, МОВ+6, 
“Н”, МОВ+6, ° "СМОТРЕТЬ" ‚99, ` 'ИНВЕНТАРЬ” ‚99, И. 99, СТО" 99: КОНЕЦ", ПО. 'СОХРАНИТЬ", 99: 
“ЗАГРУЗИТЬ”, 99 
2999 ВЕМ ДАННЫЕ О ВОЗМОЖНЫХ ПЕРЕМЕЩЕНИЯХ ===================== 
3999 ВЕМ ИСХОДНОЕ РАЗМЕЩЕНИЕ ОБ`ЕКТОВ ======================= 
9990 60 $0В 40: ЗАМЕ "АВЗ” ЕТМЕ 2 
9991. ВЕ 
РЕ 
В 


.1,20: РАЦЗЕ 50 


9995 РВТМТ АТ 12, 0; "НАЖМИТЕ ЛЮБУЮ КЛАВИШУ, КОГДА БУДЕТЕ ГОТОВЫ. ": РАЦЗЕ 0 
9996 60 $0В 40 

9997 РАТМТ АТ 8,7; “ВЕРИФИКАЦИЯ. ...... - 

9998 \УЕНТЕУ “АВ$” 

9999 ВОНОЕВ 7: РАРЕН 7: ТМК 0 


Теперь дополните текст Мастер-копии строками данных для демонстрационной 
программы из Листинга_2 или наберите их отдельно (и сохраните на ленте). В последней 
случае загрузите мастер-копию, объедините ее при помощи МЕВСЕ с данными для 
демонстрационной игры из Листинга_2 и сохраните полученную программу командой РУМ 
9990. Эту выгрузку надо делать на рабочую ленту (назовем ее лента_А). 


Листинг_2. Данные для демонстрационной игры. 
(Объединить с файлом "АВЗ") 


1003 БАТА “ОТКРЫТЬ”, 9, "ОТПЕРЕТЬ”, 10, "КОПАТЬ”, 11, "ВЫКОПАТЬ” , 11, "ЗАЖЕЧЬ”, 12, "ГАСИТЬ”, 13, 
“ПОГАСИТЬ” , 13, "ПОДНЯТЬСЯ", 14, "ЗАЛЕЗТЬ", 14, “ЛЕЗТЬ”, 14, "СПУСТИТЬСЯ" , 15, "СЛЕЗТЬ”, 15 
1005 БАТА “ЗАКРЫТЬ”, 16, "ШВЫРНУТЬ” , 17, "ЗАКОПАТЬ", 18, "ЗАПЕРЕТЬ", 19, "ОДЕТЬ", 20, "НАДЕТЬ”, 20, 
“СНЯТЬ”, 21 
1007 БАТА "ПРЫГАТЬ", 22, "СПРЫГНУТЬ", 22, "ЗАПРЫГНУТЬ" , 22, "ИСПОЛЬЗОВАТЬ", 23 
2000 ВАТА “ПЛЕД”, 1, "ШЕРСТЯНОЙ ПЛЕД”, "ПЛЕД, НАДЕТЫЙ НА ПЛЕЧИ” 


2001 ОАТА "ФАКЕЛ", 2, "МАЛЕНЬКИЙ ФАКЕЛ”, "ГОРЯЩИЙ ФАКЕЛ” 
2020 ВАТА “ШКАТУЛКА”, 3, "ДЕРЕВЯННАЯ ШКАТУЛКА” 

2021 ВАТА “ЛОПАТА”, 4, "КОРОТКАЯ ЛОПАТА” 

2022 ВАТА “КЛЮЧ”, 5, "БРОНЗОВЫЙ КЛЮЧ” 

2023 ВАТА “ЩЕПКИ”, 6, "ДЕРЕВЯННЫЕ ЩЕПКИ” 

2024 БАТА "АЛМАЗ", 7, "КРУПНЫЙ АЛМАЗ” 

2191 ВАТА “ДВЕРЬ”, 16, "БУФЕТ", 17, "ЛУЖАЙКА" , 18, "СТУПЕНИ", 19, "ЛЕСТНИЦА", 20 
2192 БАТА “ВОРОТА”, 21, "КОПАТЬ", 22, "ЯМУ", 22, "САД", 23, "ПОЛЕ", 24 
2194 ВАТА “СЕЙФ”, 25, "ПЯТНО", 26," ПРЫГАТЬ”, 27 

3001 ВАТА 1,0,3,0,0,0,0 

3002 ВАТА 2,0,0,0,0,0,6 

3003 ВАТА 3,1,7,0,0,0,0 

3004 БАТА 4,0,9,5,0,0,0 

3005 ВАТА 5,0, 10,0,4,0,0 

3006 ПАТА 6,0,0, 7, 0,2, 11 

3007 ПАТА 7,3, 13,8,6,0,0 

3008 ПАТА 8,0,0,9,7,0,0 

3009 ПАТА 9,4,0, 10,8,0,0 

3010 БАТА 10,5, 15,0,9,0,0 

3011 ВАТА 11,0,0,0,0,6,0 

3012 ВАТА 12,0,0,13,0,0,0 

3013 ВАТА 13, 7,0, 14, 12,0,0 

3014 БАТА 14,0,0, 15, 13,0,0 

3015 ВАТА 15, 10,0,0, 14,0,0 

4000 ВАТА 4, 10,0,1,0,0,0,0,0 


Теперь наберите загрузчик будущей демонстрационной игры - это Листинг 3 и 
сохраните его командой ВУМ 200. Эту выгрузку делаем на новую ленту (Ленту В). Ленту 
назад не отматывайте. 


Листинг _3З. Загрузчик демонстрационной игры. 


Файл "ИМТВО". 
10 СТЕАН 49999: ГОАБ “спг“СОБЕ 50000 
20 ВОВОЕВ 7: РАРЕН 7: ТМК 0: (1$ : РОКЕ 23606,80: РОКЕ 23607, 194 
30 РАТМТ ТМК 1; ВАТСНТ 1;АТ 2, 6; "ДЕМОНСТРАЦИОННАЯ ИГРА” 
40 РАТМТ АТ 4, 11; "СОСТАВЛЕНА"` "С ИСПОЛЬЗОВАНИЕМ ПРОГРАММЫ” 
50 РНТМТ РАРЕВ 0; ТМК 6; ВАТСНТ 1; АТ 7,3; ” АБУЕМТИУВЕ ВУТЕОЕВ ЗУЗТЕМ ^ 
60 РНТМТ АТ 9,5; “Т.О. РВОЗТ + “"ИНФОРКОМ” "” 
70 РАТМТ РАРЕВ 0; ТМК 5; ВВТОНТ 1;АТ 12,9; ” ЗАГРУЗКА. .. 


80 РВТМТ ТМК 1:АТ 15,0; " 
ЦЕЛЬ ЭТОЙ КОРОТКОЙ ПРОГРАММЫ 
ОЧЕНЬ ПРОСТА. ВАМ НАДО РАЗЫСКАТЬ 
КРУПНЫЙ АЛМАЗ И ЗАВЛАДЕТЬ ИМ. " 
90 РВТМТ АТ 19,0: ТМК 7; 
100 ЕОАБ “адуепфиге” 
200 ЗА\МЕ “ТМТНО” ЕТМЕ 10 


Сейчас наберите сам текст демонстрационной игры - Листинг_4. Точнее сказать, это 
не вся программа, а только первая ее часть. Вторую - мы приведем в следующем выпуске 
"ГХ-РЕВЮ" (то будет Листинг 5). Но для упрощения отладки мы рекомендуем Вам и 
набирать две части программы по отдельности. Когда первая часть заработает, можно 
продолжить набор или догрузить вторую часть при помощи МЕВСЕ. 


Листинг _4 Текст первой части демонстрационной игры. 
Файл "ааметиге". 
45 ТЕТ [$(1)=”НЕ ПОЛУЧАЕТСЯ. " 
50 ЕОВ Х=1 ТО 4 
52 ТЕ Н$(Х, 1) = “а” ТНЕМ ЕТ Х=5: ТМК 6: 60 ТО 195 
54 ВАМООМТУЕ 05В $$: РАТМТ ТМК 5. 4$(Х): ТЕТ В$(Х)=”"»” 
56 МЕХТГ Х 
58 60 ТО 195 
100 ВОВВЕН 0: РАРЕВ 0: ТМК 6: ВВТОНТ 1: (15 
103 60 ЗИВ 7000+РЕЕК Е*10 
104 ТЕ РЕЕК Е=11 АМО РЕЕК (0+9)<>99 ТНЕМ @0 ТО 195 
105 ВАМБОМТУЕ Ц5В 64930 
109 РВТМТ ТАВ 3: РАРЕН 1; "А Ц" 
110 РНАТМТ ТАВ 3; РАРЕН 1: “А”; ТМК 7: ” В ПОЛЕ ВАШЕГО ЗРЕНИЯ: "; ТМК 6; "Ц" 
115 ЕЕТ НЕ=0 
120 РОВ Х=0 ТО (МОВ-1) 
122 ТЕ РЕЕК (РВЗ+Х)=0 ТНЕМ ЕТ Х=МОВ: @0 ТО 128 


124 ВАМООМТУЕ 158 5$: РАТМТ ТАВ 3; РАРЕН 1; ТМК 6; "А"; ТМК 7; " ";0$(РЕЕК (РВЗ+Х)); ТМК 
6; "а": ГЕТ НЕ=НЕ+1 
126 МЕХТ Хх 


128 ТЕ НЕ=О ТНЕМ РАТМТ ТАВ З;РАРЕВ 1; ТМК 6; "А"; ТМК 7; "НЕТ НИЧЕГО ИНТЕРЕСНОГО”; ТМК 6; "6" 

129 РАТМТ ТАВ 3; РАРЕН 1; "СВВВВВВВВВАВВВВВВВВВВВВВЕ”: РОКЕ 64453, РЕЕК 23689-1 

195 ВАМООМТУЕ $8 $$: РАТМТ ТАК 4; "ВАШИ ДЕЙСТВИЯ?”: ВЕЕР .1,20 

196 Т№К 6 

200 НАМБОМТУЕ 058 64459: РАТМТ 

202 ТЕТ \В=РЕЕК 64114 

204 ГЕТ М=РЕЕК 64115 

206 НЕМ АМУ ЗРЕСТАЕ$? ========= 

208 ТЕ РЕЕК [=11 АМО РЕЕК (0+9)<>99 АМБ \В<>0 АМО (\В<>12 АМО \В<>13 АМО \В<>14 АМО \УВ<>6 
АМО \В<>5 АМО \В<>7 АМО \В<>6) ТНЕМ ТЕТ А$(1)="ЗДЕСЬ НЕ ОБОЙТИСЬ БЕЗ СВЕТА!": 60 ТО 
50 

228 ТЕ \В=200 ОН №=201 ТНЕМ 60 ТО 45 

235 60 ТО 1000+\В*100 

1000 ТЕ №0>МОВ+6 ТНЕМ 60 ТО 100 

1002 ГЕТ №=№-МОВ: РОКЕ 64115, № 

1005 ТЕ ((РЕЕК [=8 АМО №=3) ОВ (РЕЕК Е=9 АМО №=4)) АМО РЕЕК (Е+4)=0 ТНЕМ ТЕТ В$(1)="ДВЕРЬ 

ЗАКРЫТА. ": 60 ТО 50 

1010 ТЕ ((РЕЕК [=14 АМО №=3) ОВ (РЕЕК Р=15 АМО №=4)) АМО РЕЕК (Е+7)=0 ТНЕМ ЕТ 

А$(1)="ВОРОТА ЗАКРЫТЫ. ": 60 ТО 50 

1020 ТЕ (РЕЕК Р=7 АМО РЕЕК (Е+5)=1) ОН (РЕЕК Е=15 АМО РЕЕК (Р+6)=1) ТНЕМ С1$ : РВТМТ АТ 
10, 16; ЕГАЗН 1;"*”: 60 $508 8800: (1$ : РНТМТ АТ 2,1 
“ВЫ НЕОЖИДАННО СВАЛИЛИСЬ В ЯМУ. ^;АТ 3,1; 

“КОТОРУЮ САМИ ЖЕ ЗДЕСЬ ВЫКОПАЛИ” 

‚ АТ 4, 1; "И СЛОМАЛИ НОГУ. ”: 
ВЕЕР” 1..2,28;` РАЦЗЕ 100: ВЕЕР: 5,15: 60 ТО 1602 

1090 НАМООМТ7Е 0$В 65005 

1092 ТЕ РЕЕК 64115=0 ТНЕМ 1ЕТ 8В$(1)=“ТУДА ВАМ НЕ ПРОЙТИ. ": 60 ТО 50 

1093 РОКЕ Г, РЕЕК 64115 

1094 60 ТО 100 


|=) 


1800 
1900 


1902 


1905 


1910 


3315 
7010 
7011 


7012 
7019 
7020 
7021 


7022 
7029 
7030 
7031 


7032 
7039 
7040 
7041 


7042 
7049 
7050 
7051 


7052 
7059 
7060 
7061 


7062 
7069 
7070 
7071 


[ЕТ 4$(1)=”В СЛЕДУЮЩЕМ ВЫПУСКЕ ""7Х-РЕВЮ""": 
ТЕ (РЕЕК Р=8 ОВ РЕЕК Р=9) АМО №=16 АМО РЕЕК (Р+4)=0 ТНЕМ РОКЕ (2+4),1: [ЕТ А$(1) = 
“О.К. ТЕПЕРЬ ДВЕРЬ ОТКРЫТА. ”: 60 ТО 50 

ТЕ РЕЕК Е=14 АМО №=21 АМО РЕЕК (Е+7)=0 ТНЕМ 1ЕТ В$(1)=”НЕ ОТКРЫВАЮТСЯ, ЗАКРЫТЫ 


ИЗНУТРИ. ": @0 ТО 50 


ВОРОТА ОТКРЫТЫ. ": 60 ТО 50 


ТЕ РЕЕК Е=15 АМО №=21 АМО РЕЕК (Е+7)=0 ТНЕМ РОКЕ (7+7), 1: 


ГЕТ В$(1)="0.К. ТЕПЕРЬ 


ТЕ (С(РЕЕК Е=8 ОВ РЕЕК [=9) АМО РЕЕК (Е+4)=1 АМО №=16) ОВ (((РЕЕК Е=14 ОВ РЕЕК Е=15) 


АМО РЕЕК (Е+7)=1) АМО №=21)) ТНЕМ ТЕТ В$(1)="ДА ВЕДЬ И ТАК УЖЕ ОТКРЫТО! ": @0 ТО 50 


ГЕТ г$(1)=”В СЛЕДУЮЩЕМ ВЫПУСКЕ “"7Х-РЕВЮ""": 

РАТМТ Т$ 

РАТМТ " 
АВЫ НАХОДИТЕСЬ В ЧИСТОМ И АККУ-б 
АРАТНОМ АМБАРЕ. ФЕРМЕР, КОТОРО-СВ 
АМУ ОН ПРИНАДЛЕЖИТ, ПО-ВИДИМОМУС 
АЛЮБИТ СВОЕ ДЕЛО. С" 

РАТМТ В$ 

ВЕТОВМ 

РАТМТ Т$ 

РАТМТ " 
АЗАБРАВШИСЬ ПО ЛЕСТНИЦЕ НАВЕРХ, С 
АВЫ ПОПАЛИ КАК БЫ НА ОТКРЫТЫЙС 
АЧЕРДАК. СКОРЕЕ ЕГО МОЖНО ОПИ-б 
АСАТЬ, КАК БОЛЬШОЕ ХРАНИЛИЩЕС 
АНАД КОМНАТОЙ. @. 

РАТМТ В$ 

ВЕТОУВМ 

РАТМТ Т$ 

РАТМТ " 
АВЫ ВЫШЛИ НА ДВОР ФЕРМЫ. НИКА-С 
АКИХ ЖИВОТНЫХ НЕ ВИДНО. НА СЕ-б 
АВЕРЕ НАХОДИТСЯ АМБАР, НА ЮГЕ -6 
А-ПОЛЕ. С" 

РАТМТ В$ 

ВЕТОУВМ 

РАТМТ Т$ 

РАТМТ ` 
АУЮТНАЯ ГОСТИННАЯ КРЕСТЬЯНСКОГОС 
АДОМА. ВЫ ЧУВСТВУЕТЕ НА СЕБЕС 
АЧЕЙ-ТО ВЗГЛЯД. С” 

РАТМТ В$ 

ВЕТУВМ 

РАТМТ Т$ 

РАТМТ ` 
АКАЖЕТСЯ, что этой СТолОвойб 
АКОМНАТОЙ ДАВНО НИКТО НЕ ПОЛЬ-б 
АЗОВАЛСЯ. НАВЕРНОЕ, ЗДЕСЬ НИКТОС 
АНЕ ЖИВЕТ. С" 

РАТМТ В$ 

ВЕТОВМ 

РАТМТ Т$ 

РАТМТ ` 
АКОНЮШНЯ СОВЕРШЕННО ПУСТА. НЕТС 
АДАЖЕ ХАРАКТЕРНОГО ЗАПАХА ЖИ-б 
АВОТНЫХ. ЛЕСТНИЦА ВЕДЕТ НА ЧЕР-Сб 
АДАК, ВИДНЫ ТАКЖЕ — СТУПЕНИ, В 
АСКРЫВАЮЩИЕСЯ ГДЕ-ТО ВНИЗУ, ВС 
АТЕМНОТЕ. 9: 

РАТМТ В$ 

ВЕТОВМ 

РАТМТ Т$ 

РАТМТ " 
АВЫ ВЫШЛИ В ОТКРЫТОЕ ПОЛЕ. 0Н0б 
АБЫЛО НЕДАВНО ВСПАХАНО, НО НИ-б 


7072 
7079 
7080 
7081 


7082 
7089 
7090 
7091 


7092 
7099 
7100 
7101 


7108 
7109 
7110 
7111 
7112 


7113 
7119 
7120 
7121 


7122 
7129 
7130 
7131 


7132 
7139 
7140 
7141 


7142 
7149 
7150 
7151 


АЧЕГО ПОСАЖЕНО НЕ БЫЛО.  МОЖНОС 
АИДТИ В ЛЮБОМ НАПРАВЛЕНИИ. О 

РАТМТ В$ 

ВЕТОВМ 

РАТМТ Т$ 

РАТМТ " 
АВЫ НАХОДИТЕСЬ У ДВЕРИ ФЕРМЕР-С 
АСКОГО ДОМА. ДОМ СДЕЛАН ОЧЕНЬС 
АДОБРОТНО И КРЕПКО, КАК БУДТОС 
АХОЗЯЕВАМ БЫЛО ОТ ЧЕГО СКРЫ-6 
АВАТЬСЯ. р 

РАТМТ В$ 

ВЕТОВМ 

РАТМТ Т$ 

РАТМТ ` 
АПЕРЕД ВАМИ НЕБОЛЬШАЯ ПРИХОЖАЯ. В 
АВ УГЛУ СТОИТ БУФЕТ И БОЛЬШЕС 
АНИЧЕГО ЗДЕСЬ НЕТ. НА ВОСТОКЕС 
АКУХНЯ, НА СЕВЕРЕ - ГОСТИННАЯ. С” 

РАТМТ В$ 

ВЕТУВМ 

РАТМТ Т$ 

РАТМТ " 
АКУХНЯ СВЕРКАЕТ БЕЛИЗНОЙ И ЧИ-6 
АСТОТОЙ. В ВОЗДУХЕ ОПРЕДЕЛЕННОВ 
АЧУВСТВУЕТСЯ ЗАПАХ ЧЕГО-ТО ПРИ-б 
АЯТНОГО. С" 

РАТМТ В$ 

ВЕТОВ 

ТЕ РЕЕК (0+9)<>99 ТНЕМ РАТМТ ТАВ 5; РАРЕВ 7; ТМК 0; "ЗДЕСЬ НИЧЕГО НЕ ВИДНО! 

РАТМТ Т$ 

РАТМТ 


АВ ОТЛИЧИЕ ОТ БОЛЬШИНСТВА ОБЫЧ-6 
АНЫХ ПОГРЕБОВ, ЭТОТ - ЯВНО НЕС 
АИСПОЛЬЗУЕТСЯ ДЛЯ ХРАНЕНИЯ ВСЯ-б 
АКИХ ЗАПАСОВ. А В УГЛУ МОЖНОб 
АРАЗГЛЯДЕТЬ БОЛЬШОЙ СТАРОМОДНЫЙВ 
АСЕЙФ (С0 ВСТРОЕННЫМ В НЕГОб 
АБРОНЗОВЫМ ЗАМКОМ. С” 
РАТМТ В$ 


АЭТО ТУПИК. МОЖНО БЫЛО СЮДА ВО-6 
АОБЩЕ НЕ ПРИХОДИТЬ. С” 


РАТМТ “ 
АЭТА ОЧЕНЬ УЗКАЯ ДОРОГА ВЕДЕТ С6 
АВОСТОКА НА ЗАПАД. НО, КАЖЕТСЯ, 6 
АМОЖНО ПРОЙТИ И НА СЕВЕР. С” 

РАТМТ В$ 

ВЕТОВМ 

РАТМТ Т$ 

РАТМТ " 
АДОРОГА УПИРАЕТСЯ В ВОРОТА, ЗАб 
АНИМИ РАСПОЛОЖЕН  ПРИУСАДЕБНЫЙВ 
АСАД. О 

РАТМТ В$ 

ВЕТОВМ 

РАТМТ Т$ 

РАТМТ “ 

АЭТО ДОВОЛЬНО ПУСТЫННЫЙ САД, 6 

АКОТОРЫИ СКОРЕЕ ПОХОЖ НА ЛУЖАЙ-6 


“; ВЕТОАМ 


АКУ С НЕСКОЛЬКИМИ ЦВЕТОЧНЫМИС 

АКЛУМБАМИ. ЗДЕСЬ БЫЛО БЫ СОВСЕМС 

АКРАСИВО, ЕСЛИ БЫ НЕ БЕСЦВЕТНОЕВ 

АВЫТОПТАННОЕ ПЯТНО ПЕРЕД  ВОРО-б 

АТАМИ, ВЕДУЩИМИ НА ЗАПАД. в" 
7152 РАТМТ В$ 


В 

РОВ Х=-5 ТО 15 
ВЕЕР .02,Х: МЕХТ Х 

8804 РОН Х=14 ТО -5 5ТЕР -1 
В 
В 
В 


ЕЕР .02,Х: МЕХТ Х 
ЕТОНМ 
ЕМ СТАРТ ИГРЫ ============ 
9950 ГОАБ “"зузфет”СОБЕ 
9955 [ОАБ "об]есф$” ВАТА 0$() 

9956 ТЕТ [=64280: ЕГЕТ 0=64379: ГЕТ $5=64440 

9957 ТЕТ МАХ=РЕЕК 64118: ГЕТ МОВ=РЕЕК 64119 

9958 ГЕТ РВ$=256»*РЕЕК 64123+РЕЕК 64122 

9959 ТЕТ 5А\Е=256*РЕЕК 64117+РЕЕК 64116: ГЕТ ГЕ№М=256*РЕЕК 64121+РЕЕК 64120 
9960 ГЕТ ОМО\=256*РЕЕК 64125+РЕЕК 64124 


9961 РОКЕ 64130, 0 

9965 ОТМ Н$(4, 32) 

9970 РОВ Х=1 ТО 4: (ЕТ В$(Х, 1)="»"; МЕХТ Х 

9975 ВОНОЕН 0: РАРЕВ 0: ТМК 6: ВВАТСНТ 1: СЕ$ 

9976 РВТМТ АТ 8, 10; “ПОДГОТОВКА. ..” 

9980 ВАМООМТУЕ Ц$Н 65058 

9984 ВЕЗТОВЕ 9987 

9985 РОКЕ 23675,88: РОКЕ 23676, 255: РОН Х=у$Н “А” ТО Ц$В "А"+63 

9986 НЕАО 7: РОКЕ Х,7: ВЕЕР .005,20: МЕХТ Х 

ВУ ВАТА. 128, 120, 128. 128,128, 128; 128,128.0:0;: 00.9.0295. 120: 128,128. 128,120. 128. 128,295, 
255.128, 128; 128. 128,128, 128,128: 255 Чьи 


, , , , , 


255,0,0,0,0,0,0,0 

9988 ЕЕТ Т$="ОННННННННННННННННННННННННННННННЕ": ЕЕТ В$="СВВВВВВВВВВВВВВВВВВВВВВВВВВВВВВЕ” : 
ГЕТ \В=1 
9989 60 ТО 100 
9990 ЗАМЕ “а@уепфиге” (ТМЕ 9940 
9991 (1$ 
9993 РВТМТ ВАТСНТ 1:АТ 8, 0; "ОТМОТАЙТЕ ЛЕНТУ ДЛЯ ВЕРИФИКАЦИИ. " 
9994 ВЕЕР .1,20: РАЦЗЕ 50 

РАТМТ АТ 12,0:” НАЖМИТЕ ЛЮБУЮ КЛАВИШУ, КОГДА БУДЕТЕ ГОТОВЫ. ": РАЦЗЕ 0 
9996 УЕАТЕУ “адуептиге” 

ВОВОЕВ 7: РАРЕН 7: ТМК 0 


Набрав первую часть демонстрационной программы, сохраните ее командой ВУМ 
9990 на ленту _В (сразу же за Листингом_З3З), и ленту назад не отматывайте. 
Пока с вводом программ достаточно, а сейчас некоторые пояснения к листингам 1-4. 


Работа с листингами. 

Загрузите программу с ленты_А, запустите ее и в ответ на запросы программы 
введите: 23,4,9,4,22,2,13,2,15,0,7 (немного ниже мы дадим подробные комментарии к этим 
числам). Так закончится подготовка необходимых данных, программа сама укажет Вам, 
когда надо произвести выгрузку блоков кодов и данных - выгружаются 2 блока. Эту отгрузку 
надо произвести на ленту _В, (следом за листингами Зи 4). 

Теперь мы будем работать с Лентой_В. Отмотайте ее в начало и загрузите. После 
окончания загрузки основной Бейсик-программы демонстрационной игры (Лист _4). Она 
стартует со строки 9940, загружая блок кодов и данные. После этого начнется подготовка 
данных, о чем свидетельствует табличка на экране, а затем игра начинается. 

Вы уже можете начать исследование игровой ситуации. Можете пройти по всем 
локациям, все посмотреть, на Вас никто не будет нападать, правда Вы не сможете делать 
никаких действий, кроме "ОТКРЫТЬ", но этого должно быть достаточно для того, чтобы 
отладить БЕЙСИК-программу (листинг_4) и удалить из нее все ошибки, допущенные при 


наборе. 


Головная программа АВ$. 

После старта головная программа АВ$ выдает серию экранных запросов, по которым 
надо ввести необходимые данные. Проследите по демонстрации, как и в каком формате 
вводятся данные по этим запросам, а мы сейчас их подробно рассмотрим. После каждого 
заголовка раздела стоит число в скобках, обозначающее, что должно вводиться на этот 
запрос в демонстрации. 

1. Количество прочих глаголов. (23). Эти глаголы заносятся в строки БРАТА 1003...1999 
(Листинг_2) Например 

ВАТА “ОТКРЫТЬ”, 9, "ОТПЕРЕТЬ”, 10 

Формат: глагол (полностью) + присвоенный ему номер. Поскольку номера с 0...по 8 
уже присвоены стандартным командам, то первая пользовательская команда (глагол) 
начинается с номера 9. Слова синонимы, такие как ГАСИТЬ, ПОГАСИТЬ, имевшие 
одинаковое действие, но разное написание, вводятся порознь, но им присваивается один и 
тот же номер. Тем не менее, в ответ на запрос "Количество глаголов?" их надо считать как 
отдельные слова 

В системе АВ$ применяется следующий формат ввода команды: первое слово 
считается глаголом, последнее - существительным или направлением (в случае 
перемещения). Можно в отдельных случаях ввод осуществлять и одним словом (буквой), но 
для реализации этого надо, чтобы это слово (буква) было занесено и в список глаголов и в 
список существительных (мы еще вернемся к этому моменту позднее). 

Основные глаголы заданы в строке 1000 Мастер-копии программы АВ$ (Листинг 1). 
Основные существительные - в строке 2190 этого же листинга. 

Такие действия, как ИДТИ НА ВОСТОК, можно вводить также и ИДТИ НА В, или ИДТИ 
В, или ВОСТОК, или только буквой В, а также словами ИДТИ НАПРАВО или просто НАПРАВО. 
При помощи одного слова можно также проверить ИНВЕНТАРЬ (или просто И), ввести СТОП 
и другие - те, которые одновременно заданы и в строке 1000 и в строке 2190. А вот глаголы 
взять или ПОЛОЖИТЬ не могут использоваться отдельно, без существительного и, поэтому, 
они не заданы в строке 2190 

На тот случай, если Вы захотите изменить основные глаголы, заданные в Листинге 1, 
в строке 1000, обращаем Ваше внимание на то, что общее количество глаголов в строке 
1000 отражено также в строке 126 этого листинга. Это число - 28. Если будете изменять 
данные в строке 1000, проконтролируйте и число в строке 126. Аналогично и для строки 
2190 - полное число слов в этой строке отражено числовыми параметрами в строках 603 и 
730. Это число - 21. 

2. Символы идентификации команды (4). Для того, чтобы пользователю не 
приходилось полностью набирать длинные слова (и не дай Бог при этой сделать ошибку), 
программа может идентифицировать команду не по всему слову, а по нескольким первым 
символам. Например, вместо команды прыгать можно дать команду ПРЫГ (если 
установлено число 4) или ПРЫ (если установлено 3). Это число может быть задано в 
диапазоне от 3 до 7. Обычное число - 4 или 5. Для детей - 4, для взрослых программы 
посложнее, можно задать 5, так как при большом числе слов возможны ситуации, когда 
первые 4 буквы разных слов совпадают. Для числа 5 - это происходит значительно реже. 
Число 3 еще как-то приемлемо для несложных английских программ, но в русском языке 
существуют приставки, которые могут быть одинаковыми у разных слов и очень возможны 
ошибки. 

3. Количество объектов (9). Это количество объектов в программе, которые могут 
быть инвентарем, т.е. которые пользователь может брать, переносить с места на место или 
как-то использовать. Подробности, как заносить список этих объектов в листинги, смотрите 
в комментариях к пункту 6. 

4. Символа идентификации объекта (4). Это то же, что и п.2, но для второй части 
команды - для существительных или направления. Эти числа могут и различаться, но лучше, 
чтобы сокращения для глаголов и существительных делались по единым правилам, 
пользователь к ним проще привыкает и чаще пользуется. 


5. Максимальная длина описания объекта (22). Это количество символов, которое 
может занимать самое длинное описание объекта (например, ПЛЕД, НАДЕТЫЙ НА ПЛЕЧИ). 

6. Количество объектов, способных изменять свое описание по ходу игры (2). Этот 
пункт имеет отношение к объектам типа "ФАКЕЛ" - "ГОРЯЩИЙ ФАКЕЛ" и т.п. Данные на эти 
объекты заносятся в строки 2000... 2018 (см. Листинг_2 демонстрационной программы), 
например: 


ОАТА “ПЛЕД”, 1, "ШЕРСТЯНОЙ ПЛЕД”, “ПЛЕД, НАДЕТЫЙ НА ПЛЕЧИ” 
ОАТА “ФАКЕЛ”, 2, "МАЛЕНЬКИЙ ФАКЕЛ”, “ГОРЯЩИЙ ФАКЕЛ” 


Это были объекты 1 и 2, а их измененные версии будут потом названы объектами 8 и 
9. Поэтому при ответе на запрос о количестве предметов, являющихся инвентарем, надо 
задавать число 9, хотя в строках 2000-2024 заданы только 7 предметов. Кроме строк 2000 и 
2001 (объекты, которые могут изменяться), остальной инвентарь, который не может 
изменять свое состояние, задан в строках 2020-2188 в формате: 


ВАТА “ШКАТУЛКА”, 3, "ДЕРЕВЯННАЯ ШКАТУЛКА” 


7. Другие слова, распознаваемые программой (13). Эти слова заданы в строках с 
2191. Первый присваиваемый им номер рассчитывается по формуле: 

(количество объектов) + 7 

Поэтому в демонстрационной программе первое слово дверь имеет номер 16. 


8. Максимальное число объектов, которые одновременно можно взять и иметь при 
себе (2). 


9. Общее число локаций (15). 


10. Фактор скроллинга (0). Если Вы хотите, чтобы определенное количество верхних 
строк не скроллировалось при вводе команд, то можете до запросу задать это число. В 
демонстрационном примере это не используется, поэтому введен 0. 


11. Стартовая локация (7). Это номер локации, в которой начинается игра. 


Возможные перемещения. 

Со строки 3000 (до строки 3999) в Листинге_2 находится таблица расположения 
локаций, она же определяет и возможность взаимных перемещений между локациями. 
Первое число в строке ВРАТА - это номер локации. Всего их 15 (в данной демонстрационной 
программе). Их расположение и наименование для демонстрационной программы показано 
на плане (рис.1). 

Формат задания допустимых перемещений следующий. Первая цифра в строке ВАТА 
- это номер локации. Далее идут номера других локаций, в которые можно попасть из 
данной, если идти в разных направлениях. Всего 6 направлений, по-порядку соответственно 
СЕВЕР, ЮГ, ВОСТОК, ЗАПАД, ВВЕРХ и ВНИЗ. Так, например, для 1 локации возможен только 
переход в 3 локацию при движении на ЮГ: 

ОАТА 1,0,3,0,0,0,0 
а для 7 локации - допустимы 4 направления: 
ОАТА 7,3, 13,8,6,0,0 

в 3 локацию, если идти на СЕВЕР, 

В 13 -//- -//- ЮГ. 

В8 -//- -//- ВОСТОК. 

Вб-//- -//- ЗАПАД 


План расположения локаций 
1 |АМБАР | лопата 
| плед 
2 | ЧЕРДАК 3 |ДВОР 4 |ГОСТИНАЯ 5 |СТОЛОВАЯ 
вверх вниз 
6 Конюшня 7 |ПОЛЕ 8 |ДВЕРЬ 9 |ПРИХОЖАЯ 10 | КУХНЯ 
вниз | | вверх факел 
11 | ПОГРЕБ 
12 | ТУПИК 13 | ДОРОГА 14 | ВОРОТА 15 САД 
КЛЮЧ 


Рис. 1 


Расположение объектов. 

И, наконец, в строке 4000 задается исходное расположение объектов, являющихся 
инвентарем. Формат записи такой. По порядку, начиная с объекта номер 1 (ПЛЕД), задаются 
номера локаций, в которых этот предмет находится. Если предмет в данный момент не 
виден, то заносится 0. Всего в строке ВАТА будет столько цифр, сколько задано объектов, 
являющихся инвентарем (для нашей демонстрационной программы - 9). 

ОАТА 4, 10,0,1,0,0,0,0,0 

Это означает, что ПЛЕД расположен в 4 локации, ФАКЕЛ - в 10 локации, ШКАТУЛКА - 
пока не видна и т.д., для всех 9 предметов, являющихся инвентарем (включая и те, которые 
изменяют свое состояние в процессе игры). Если Вы захотите, чтобы вначале игры какой- 
нибудь объект находился у Вас в руках, то надо для него задать номер 99 - это будет 
соответствовать "объект взят". 


Загрузчик. 
Листинг _3З является загрузчиком. Его функции - переустановка ВАМТОР, загрузка 
русского символьного набора и его активизация, а также загрузка основной Бейсик- 
программы демонстрационной игры (Листинг_4). 


Демонстрационная программа. 

Автостарт программы происходит со строки 9940, где после загрузки кодового блока 
и блока данных, начинается задание параметров, сохраненных в кодовом блоке, задаются 
массивы для переменных и т.д. Затем задаются символы УОС-графики А-Н. Последние 
служат для изображения рамок, оконтуривающих текст. Они встречаются в тексте 
программы в кавычках. Весь текст за редким исключением (символы "\" или "М") набирается 
по-русски, а встречающиеся символы с "А" по "Н" (например, в строке 9988, строки с 7000 и 
др.) - это символы УОС-графики, изображающие рамки. 

Подготовка исходных данных заканчивается строкой 9989, где управление передается 
на начало исполнения программы - строку 100. В процессе отладки, когда Вы будете 
останавливать программу, вновь стартовать ее можно, подав команду СО ТО 100, но не ВУМ 
100. 

(Окончание - в следующем номере) 


Компьютерная новелла 


(С) Матвеев Ю.А., 1993 г 


СТРАТЕГИЯ КАПИТАНА КРЕНОНА 
(по мотивам программы ВЕВЕЕ ЗТАВ) 


Часть 2. Столкновение 


Они смотрели на белый, ослепительно яркий диск Венеры, который занимал добрую 
половину обзорного экрана. У самой кромки диска, в фиолетовой дымке, гигантским 
алмазом сверкал в солнечных лучах орбитальный комплекс "Венера-Центр", окруженный 
целой флотилией грузовых и пассажирских кораблей разнообразных типов и марок. 

Полет близился к концу. Через час космический лайнер "Викинг" должен был достичь 
границы действия гравитационного поля комплекса. Кренон сидел в пол-оборота к экрану и 
часто поглядывал на внука, наблюдая за его реакцией на великолепный космический 
пейзаж, созданный природой и человеком. 

- Здорово! - не отрывая глаз от экрана с восхищением сказал юноша. - Это не то, что 
на наших тренажерах в школе. 

Кренон похлопал внука по плечу: 

- Ничего, учись пока, скоро сам летать будешь. 

- Скорей бы, - вздохнул будущий пилот сверхскоростных звездных кораблей. Он 
развернулся в кресле и хитро прищурился. - Дед, мы уже скоро прилетим, а ты еще не 
рассказал мне про вашу встречу с инопланетянами. 

Кренон посмотрел на часы. Через два часа они будут на Венере, в гостях у его друга 
детства, Дона Кейлони, и тогда ему трудно будет найти свободную минуту, чтобы спокойно 
рассказать внуку о той трагической встрече с коварными звездными монстрами. 

Это случилось во времена великих завоеваний человечества. Расширялись границы 
обитания, открывались новые миры, строились огромные звездные лайнеры, способные 
переносить все большее количество землян на дальние космические колонии. Человеческая 
цивилизация заняла достойное место во Вселенной и была одной из самых молодых и 
быстрорастущих. Космическое пространство на десятки парсеков от Солнца было 
досконально изучено и тщательно исследовано, белых пятен оставалось все меньше, 
однако... 

* * * 

Эта первобытная планета ему сразу не понравилась. Вполне подходящая для жизни, 
она по каким-то не вполне понятным причинам, еще долгое время оставалась неизученной. 
Странно, что Земля, испытывающая постоянную нехватку пригодных для жизни планет, так 
вяло проводила исследования на Зеро. В название планеты первооткрыватели вложили 
двойной смысл: с одной стороны этот мир некоторое время действительно был 
перевалочной базой для крупных межзвездных экспедиций, своего рода “точкой отсчета" 
новых завоеваний. С другой стороны, не внушающие оптимизма скудная растительность и 
серенький животный мир, еле умещавшиеся на единственном материке, который скорее 
походил на остров, омываемый со всех сторон холодным океаном. Планета не оправдала 
надежд космобиологов и серьезные исследователи с разочарованием умывали руки. 

Один единственный город, построенный колонистами, располагался на юге материка. 
Там же находился и космопорт. Север, из-за своей труднодоступности, был малоизучен и 
здесь оставались обширные земли, где еще не ступала нога человека. 

Периодически из числа колонистов формировались экспедиции для изучения 
природы материка, которые с каждый разом уходили все дальше и дальше на Север. Жизнь 
на Зеро текла своим чередом и, казалось, ничто не могло поколебать ее спокойствие и 
размеренность. Однако вскоре произошло непредвиденное. 


В один ясный, холодный день прервалась связь с экспедицией профессора Джонсона, 
который был ведущим специалистом по флоре и фауне дикого Севера планеты. 
Спасательный отряд, собранный наспех из добровольцев и в срочном порядке 
отправленный на поиски, бесследно исчез на следующие сутки. Тогда руководство колонии 
и обратилось за помощью в Зональный Центр Космической Безопасности. 

Капитан Кренон возглавил десантный отряд из шестнадцати человек. В его 
подчинении были неплохо подготовленные десантники. Многие из них уже прошли хорошую 
закалку в поисковых и спасательных операциях. 

Получив задание, отряд капитана Кренона немедленно приступил к его завершению. 
Город выделил десантникам легкий винтолет, на котором сразу из космопорта их доставили 
в район поиска пропавшей экспедиции. 

Надо сказать, что северная часть материка буквально утопала в смердящих болотах, а 
небольшие участки суши покрывали непроходимые заросли ползучих лиан и болотного 
тростника. Иногда здесь можно было встретить не очень высокие пальмообразные деревья 
с толстыми сочными листьями ядовито-фиолетового цвета. Живности здесь было немного, 
если не считать болотных крыс размером с корову, да местных крокодилов с длинными 
электрическими щупальцами. И с теми и с другими встреча не сулила ничего хорошего: 
острыми, словно лезвие бритвы, клыками, болотные крысы могли, пожалуй, перегрызть 
стальной канат в руку толщиной, а об электрических крокодилах, которых колонисты 
называли свамперами, и говорить не приходилось. 

Отряд шел цепью. Вот уже вторые сутки, используя светосабли, они продирались 
сквозь заросли лиан. От сырого воздуха, наполненного зловониями болотных испарений, 
мутило, а ноги деревенели от постоянного сопротивления вязкой хлюпающей жижи. 

В два часа пополудни Кренон связался с Центром и доложил о результатах первых 
суток поисков. Получив необходимые инструкции он решил дать отдохнуть уставшим 
десантникам. 

Отряд располосился на небольшой поляне, окруженной со всех сторон густым 
кустарником. На привале они обменялись мнениями. Рыжеволосый Зира Кама скептически 
относился к приказу центра продолжить поиски. Он протирал забрызганное грязью 
лазерное ружье и угрюмо бубнил что-то про свамперов и крыс. В той или иной степени его 
поддерживали еще трое: Джекки Доннелли, Лазарь Шарки и дон Кейлони. 

- Им там легко рассуждать, - ворчал Шарки. - Пойдите туда, пойдите сюда... Пусть 
сами подышат местным ароматом. Этого профессора наверняка давно сожрали свамперы, 
а мы тут ищем сами не знаем что. 

- Да ладно тебе,- одернул его Дон Кейлони, уловив мрачный взгляд Кренона. - Скоро 
вернемся, не вечно же нам здесь блуждать. Правда, капитан? 

Кренон многозначительно посмотрел на Дона и, расстегивая крючки комбинезона, 
повернулся к Диане Вудлей - врачу отряда: 

- Больные есть? 

- Все здоровы, - ответила Диана. 

- Тогда какого дьявола мне здесь закатывают истерику? - вскипел капитан, 
поднимаясь с надувного походного кресла, давая тем самым понять, что любые споры 
закончены. - Значит так. Здесь разбиваем постоянный лагерь. Со мной продолжат поиски 
десять человек. Остальные, включая врача, остаются в лагере до нашего возвращения. 
Вопросы?.. 

- Кто остается? - спросил Люк Соло. 

Что? Я разве не сказал? - Кренон задумался. - В лагере останутся капрал Хикс, 
Дэниел Дар, Хадсон, Диана Вудлей и Лазарь Шарки. Займетесь благоустройством лагеря. 
Ну и ужин хороший приготовьте. Мы к вечеру вернемся. 

- Смотрите только сами себя свамперам не скормите, - добавил любимец публики 
Хенли, разряжая обстановку. 

Кренон оставлял в лагере самых молодых десантников, рассчитывая лишь на опытных 
партнеров. 

Спустя полчаса группа из одиннадцати человек продожила поиски. Тогда они еще не 


знали, что в лагерь им не суждено будет вернуться, а некоторые из них и вовсе навсегда 
останутся в этих проклятых Богом болотах. 

Когда в воздухе прогремели выстрелы, разрывая привычную тишину, Кренон 
остановился и прислушался. Шедший рядом с ним Дон Кейлони ловким движением перевел 
лазерное ружье в боевое положение и вопросительно посмотрел на него. Командир 
десантников включил рацию: 

- Кто стрелял? Прием... 

Какое-то время в эфире царила мертвая тишина. Все замерли в ожидании ответа, 
затем на связь вышел Сью Шоу. Его хриплый, вечно простуженный голос трудно было с кем- 
нибудь спутать: 

- Это я. По-моему, мы забрели в гости к болотным крысам. Одна меня только что чуть 
не слопала. Вы там смотрите в оба. Не нравится мне все это. 

- Слушайте мой приказ, - решительно сказал Кренон. - Держитесь ближе друг к другу. 
Оружие привести в боевую готовность. 

Он посмотрел налево и увидел как к ним с Доном Кейлони идут Хенли и Курт Левин. 
Справа приблизились Люк Соло, Джим Дигриз и Эйра Кама. Кренон подал знак рукой, давая 
понять, что дистанция стала оптимальной, и они продолжили путь. 

Вскоре им вновь пришлось преодолевать непроходимые заросли ползучих лиан. Дон 
обнажил светосаблю. Неожиданно справа зашелестели упругие стебли и прямо перед ними, 
обжигая горячим дыханием, появилась огромная серая морда болотной крысы. С черной, 
покрытой жесткой щетиной клыкастой пасти стекала желтая пена. Готовясь к прыжку, крыса 
попятилась и угрожающе приподнялась на задние когтистые лапы. Все произошло 
настолько быстро, что Дон даже не успел ударить хищника светосаблей. Кренон, шедший 
следом, отпрыгнул в сторону и два раза нажал на пусковую кнопку фотонного излучателя. 
После первого выстрела крыса с дымящимся брюхом по инерции еще двигалась к Дону, но 
когда в раскрытую пасть ударил второй луч, агрессор, заливая траву малиновой кровью, в 
предсмертных конвульсиях завалился на бок. Длинный, похожий на канат, облезлый хвост 
крысы несколько секунд судорожно метался по траве, пока не замер. 

- Спасибо, друг, - Дон благодарно посмотрел на капитана. 

У Кренона дрожали руки, но он старался не подавать виду: 

- Идем... 

Местное светило стояло почти в зените, однако тепла практически не ощущалось. 
Толиман - так называлась звезда, вокруг которой вращалась планета. Очень похожая на 
Солнце, эта звезда, однако, не могла согреть Зеро, из-за обилия космической пыли, 
плотным облаком прикрывавшей планету от света. Вероятно в далеком будущем из этого 
скопления пыли образуется спутник Зеро и тогда света станет несомненно больше и жизнь 
на планете начнет развиваться бурными темпами. А пока, скорее похожая на царство теней, 
планета оставалась холодным шариком, населенным опасными хищниками, выжившими в 
жестокой схватке с природой. С этими мыслями Кренон пересек небольшое болотце и 
вышел на обширное сухое пространство, покрытое низкой травой и мхом. То, что он увидел, 
никак не вписывалось в рамки его представлений об этой планете. Прямо по центру поляны, 
образовывая правильную окружность, стояли несколько тщательно отполированных 
булыжников высотой с человеческий рост. В центре окружности располагался гладкий 
плоский камень красного цвета таких размеров, что на нем могли без особого труда 
уместиться пара взрослых болотных крыс. Пространство вокруг этого странного сооружения 
было усеяно костями. Картинка из древних фильмов про кровожадных туземцев. Кренон 
застыл в нерешительности. Он не заметил, как сзади тихо подошли Дон Кейлони и Курт 
Левин. 

- Что скажешь, командир? - спросил Дон, ловким движением убирая светосаблю в 
ножны. 

Кренон не ответил. Дон хотел еще что-то спросить, но его слова потонули в треске 
близких выстрелов. Стреляли сразу из нескольких стволов. Потом они услышали чьи-то 
выкрики и ругательства. Курт Левин, не говоря ни слова, выхватил из кобуры лазерный 
пистолет и помчался через всю поляну на звук выстрелов. Кренон уже успел понять, что 


отряд столкнулся с целым полчищем болотных крыс. Когда все стихло на связь вышел Леон 
троцкий: 

- У нас все в порядке. Завалили парочку крысенышей. Никто не пострадал... Капитан, 
мы на берегу ручья, переходить? 

- Подождите,- Кренон смотрел на Джима Дигриза, который стоял вдалеке, на 
противоположном конце поляны и подавал какие-то знаки. - Джим, вижу тебя. Что 
случилось? 

- Там кто-то есть,- Дигриз показывал рукой на север, в сторону ручья. - На крыс вроде 
не похоже. 

- Я тоже заметил какое-то движение. - Это был голос Сью Шоу, который замыкал цепь 
десантников. Элмер Кренон внимательно посмотрел вокруг. Странное сооружение из 
камней и, замеченное многими движение на другом берегу ручья, заставляли задуматься. В 
голове вихрем пронеслись кровавые сцены расправы загадочных аборигенов с мирной 
исследовательской зкспедицей профессора Джонсона и с колонистами, ушедшими на ее 
поиски. 

Удивительным было то, что ни в одном справочнике по этой планете не было ни слова 
о какой-либо, пусть даже примитивной, форме разумной жизни. Видимо, недаром Джонсон 
уделял такое пристальное вникание северной части материка. Перспектива оказаться на 
религиозном обряде аборигенов в качестве жертвы, приносимой в угоду местному 
божеству, Кренона конечно же не устраивала. Но и отступать ему совсем не хотелось. Он 
успокаивал себя тем, что вооруженным и хорошо обученным солдатам не составят особого 
труда разобраться с доисторическими туземцами, стоявшим на несомненно более низком 
уровне развития. Ну разве могут спорить с лазерный оружием каменные топоры? 

Кренон хотел было уже отдать приказ собраться всем на поляне как в воздухе рядом с 
ним со свистом пронеслась стрела и глубоко воткнулась в ствол одиноко стоящей 
фиолетовой пальмы в пяти шагах от него. Невидимый лучник прятался в небольшой роще 
ниже по ручью. 

- Быстрей сюда!- Это кричал Дон Кейлони, который вовремя сориентировался и уже 
успел спрятаться за ближайшими кустами. Возможно, его окрик спас Кренону жизнь: вторая 
стрела просвистела, рассекая воздух, прямо над тем клочком земли, на котором только что 
стоял капитан. Эфир заполнили голоса и крики десантников. Стрелы летели с 
противоположного берега ручья сразу из нескольких мест. Похоже, что лучников было 
много, может быть десяток, ато и два. 

- Командир, говорит Джекки Доннелли. У нас тут ранили Сью Шоу. Я осмотрел стрелу. 
Облита какой-то гадостью. Похоже на яд... 

- Я в порядке, - скрипя зубами перебил напарника Сью. - Задета только кисть руки. 

- Вы как хотите, а я открываю огонь,- решительно прозвучал в эфире женский голос. 
Это была Васкез - молодая горячая девушка, только недавно закончившая Школу 
Космических Десантников, но по уровню боевой подготовки не уступавшая многим 
сослуживцам - мужчинам. 

- Васкез, успокойся, - сказал Кренон, внимательно разглядывая противоположный 
берег. - Аборигенов надо отвлечь. Леон Троцкий возглавит группу, которая попробует 
обойти их с тыла. С ним пойдут Дон, Курт, Люк Соло и Эйра Кама. Пройдете направо вверх 
по ручью, перейдете на тот берег и атакуете туземцев с тыла. Джим, ты будешь прикрывать 
группу Леона с этого берега. Выбери удобную позицию. Я, Зира Кама и Хенли пойдем 
следом за ними и, в случае чего, поддержим огнем. Васкез, Сью и Джекки Доннелли - 
оставайтесь пока в укрытии и смотрите в оба, чтобы нас самих не обошли. Задача ясна? 

Вопросов не было. Кренон хлопнул по плечу притаившегося рядом Кейлони: 

- С Богом! 

Дон короткими перебежками от куста к кусту стал пробираться к Леону Троцкому. За 
спиной, не сказав ни слова, прошмыгнул и Курт Левин. 

Кренон подождал пока к нему подойдут Зира Кама и Хенли, а затем быстро перебежал 
ближе к ручью, который мирно журчал по ту сторону поляны. За ним последовали 
остальные. Выбрав удачную позицию за полуразвалившимся валуном, утопавшим в 


болотной жиже, Кренон осмотрел противоположный берег ручья, основательно заросший 
высокой травой и кустарником. Пальмовая роща, из которой вылетела первая стрела, 
находилась левее, ниже по ручью. Ничего подозрительного там не наблюдалось. Видимо, 
туземцы были хорошими воинами и удачно использовали естественную среду для 
маскировки. 

- Леон, отзовись, - Кренон не отрывал глаз от пальмовой рощи. 

- Все в порядке, - доложил Троцкий, - Только что видели свампера. Быстро плавает, 
ничего не скажешь. Правда, мы его все равно обогнали. Так что, когда пойдете через ручей, 
будьте осторожны - дедушка крокодил остался голодным. 

- Учтем обязательно, - ответил Кренон. 

Тишина уже действовала на нервы. Казалось, что не было никакой атаки туземцев, не 
свистели ядовитые стрелы. Но внутреннее чутье подсказывало, что враг рядом и пристально 
следит за каждым их движением. Кренон посмотрен налево и увидел, как из плотной стены 
болотного тростника выскочил Джекки Доннелли и, чуть пригнувшись, побежал к берегу 
ручья. В этот момент капитан десантников и заметил аборигена. Сначала как-то 
подозрительно зашевелился развесистый куст на противоположном берегу прямо напротив 
пересекавшего поляну Джекки, а затем, словно из-под земли, появилось ОНО. Кренон 
находился в удобной позиции, под углом к существу, и ему удалось хорошо рассмотреть 
его. Высокого роста, передвигавшийся на двух мускулистых ногах, покрытых серой чешуей, 
монстр скорее походил на динозавра из-за своей продолговатой, с хорошо развитой 
челюстью, головы. В любой другой ситуации Кренон никогда бы не поверил, что перед ним 
разумное существо, но массивный лук в мускулистых руках и кожаный колчан, туго набитый 
отравленными стрелами, говорили сами за себя. 

Абориген собирался стрелять по бегущему десантнику и Кренону требовалось во что 
бы то ни стало опередить его. Он прицелился в голову и в тот момент, когда монстр уже 
натягивал тетиву, выстрелил. Неприятель дернулся, словно от удара током, однако на ногах 
устоял и попытался спрятаться за кустом, но второй луч насквозь прожег покрытый чешуей 
череп. Кренон был неприятно удивлен увидев, что монстр не свалился после первого 
выстрела, а даже попытался скрыться. Такой степенью защиты не обладали даже 
бронежилеты землян. Кренон помахал рукой в ответ на благодарственное приветствие 
Доннелли, который успешно добрался до зарослей тростника у самого берега. 

- Командир, - вышел на связь Троцкий, - я видел, как ты его уложил, но похоже это 
только начало. 

Над болотами пронеслось эхо выстрелов. Кренон на слух определил, что стреляли из 
фотонного излучателя и из лазерного пистолета. Видимо, группа Троцкого столкнулась с 
аборигенами. 

Под прикрытием Джекки Доннелли Кренон, Хенли и Зира Кана в мгновение ока 
перебрались на крутой берег. 

Впереди за деревьями они увидели двух аборигенов, отступавших под мощным 
натиском десантников. Кренон и его партнеры находились в очень выгодной позиции и им 
не составило труда отправить незадачливых лучников к праотцам. 

Когда все стихло капитан вышел в эфир: 

- Леон, не стреляйте. Мы идем к вам. 

Из-за деревьев появились фигуры десантников. Кренон направился к ним. На Леона 
Троцкого он сразу обратил внимание. Тот был явно чем-то озабочен и, когда капитан 
подошел к нему, Троцкий молча показал в сторону голубой полоски небольшой реки, 
которая отделяла их от... Впрочем, Кренон не сразу понял, что он там увидел. В редких 
просветах пальмового леса, начинавшегося сразу за рекой, были видны какие-то постройки 
и сооружения. 

- Похоже, это их логово, - сказал Троцкий - Что будем делать? 

- Вообще-то это уже не по нашей линии, - заметил Зира Кама. - Нет никакого смысла 
туда соваться. 

- Надо идти. - Кренон был непоколебим. - И мы должны выяснить все, чтобы те, кто 
придет после нас, могли здесь спокойно работать. 


Он включив передатчик: 

- Васкез, как у вас? 

- Тут пришли Диана, Хикс и Хадсон. Они услышали стрельбу и поэтому поспешили к 
нам. 

- Командир, - вмешался капрал Хикс, - Мы можем чем-нибудь помочь? 

- Вызывайте из лагеря остальных. Мы нашли логово этих папуасов. Все идем туда. 
Ваша группа пойдет по левому флангу через устье реки. Направление точно на север. 
Заодно прикроете нас. Старший группы капрал Хикс. Все, кто еще не перешел ручей, 
присоединяются к вам. Понятно? 

Капрал Хикс не ответил. Вместо этого по лесу прокатилось эхо выстрелов. 

- Я думаю, они разберутся, - пробормотал Кренон. - Пошли. 

Где-то совсем рядом просвистела стрела. Он услышал сдавленный крик и обернулся. 
На траве без движений лежал окровавленный десантник. Это был Люк Соло. Стрела угодила 
ему в висок. 

- Убит, - выдохнул Зара Кама, склонившись над телом. 

Едва он успел произнести это слово, как над его головой, сшибая ветки кустов, 
пролетели пули. Зира плюхнулся на землю и замер. Вся группа затаилась в ожидании. На 
время все стихло. Кренон прятался за толстым стволом старой пальмы. Это было что-то 
новенькое: туземцы, как оказалось имели огнестрельное оружие. "Вот тебе и каменные 
топоры," - подумал командир десантников, прислушиваясь к каждому шороху. 

- Одного я вижу, - прошептал стоящий рядом Дон Кейлони. - Попробую... 

Он не договорил. На их группу снова обрушился град пуль и стрел. Аборигены засели 
у самого берега реки и, видимо, никого не собирались пропускать на другую сторону. Но 
Дону удалось использовать секундную паузу: его лазерное ружье выстрелило в тот момент, 
когда один из аборигенов попытался проскочить между деревьями. Выстрел оказался 
точным. Массивное тело монстра покачнулось и, под хруст ломаемых веток, завалилось на 
землю. Вдохновленные удачей Кейлони, десантники открыли огонь по зарослям тростника, 
за которым прятались туземцы. Под хорошим прикрытием лазерных лучей Курт Левин 
добрался до трупа аборигена, убитого Доном и там подобрал смертоносное оружие 
внеземного происхождения. 

Когда десантники прекратили обстрел вражеских позиций, Курт показал оружие 
инопланетян Кренону. 

- Так это же терминатор! - воскликнул капитан, взяв в руки ружье. 

Курт утвердительно кивнул. Всем опытным десантникам было известно это новое 
оружие, которое по своим характеристикам могло сравниться, пожалуй, даже с фотонным 
излучателем. Терминатор стрелял разрывными пулями, наполненными кислотой. В магазин 
помещалось до двухсот пятидесяти патронов, что являлось неоспоримым преимуществом 
перед многими другими видами оружия. Помимо этого ружье имело оптический прицел с 
встроенным прибором ночного видения и еще массу всякого рода достоинств. Впервые 
терминаторы обнаружили на одной давно вымершей планете в системе Сириуса. Там был 
найден целый арсенал всякого рода вооружений. Цивилизация, оставившая это наследство, 
перестала существовать задолго до появления первого человека на Земле и, вообщем-то, 
не достигла больших высот в освоении Вселенной из-за глобальной термоядерной войны, 
практически уничтожившей планету. Кто дал оружию название терминатор никто уже не 
помнил, но оно было во всех учебниках по вооружениям. 

- Боюсь, что мы их не за тех приняли, - вслух подумал Кренон, отдавая инопланетное 
оружие Курту Левину. 

- Насколько мне известно, в системе Сириуса цивилизация была гуманоидной, а эти 
монстры ничего общего с ними не имеют, - Курт повесил терминатор на плечо. 

- А это уж пусть ученые решают, как терминаторы попали к этим... Кренон не нашел 
подходящего названия для существ, с которыми они столкнулись. 

В продолжение этого разговора они двигалась к реке, за которой находилось логово 
монстров. Несколько раз им пришлось вступать в перестрелку с туземцами, вооруженными 
терминаторами и луками. С лучниками все было достаточно просто, а вот с обладателями 


оружия из системы Сириуса приходилось повозиться. 

Когда они добрались до огромного каменного строения, изумлению их не было 
предела. Неправильной формы, с многочисленными окнами, походившими скорее на 
бойницы старинных крепостей, строение действительно напоминало приземистую 
крепость, каких на Земле, впрочем, никогда не строили. То, что издалека им казалось 
многочисленными постройками, на самом деле оказалось одним единственным домом, 
имевшим несколько прилегавших друг к другу флигелей. Ухоженная площадь перед логовом 
монстров была пустынной. Интересным было еще и то, что у этого дома не было дверей, в 
привычном понимании. Вместо них в стенах чернели проходы, похожие скорее на норы 
диких животных. 

Группа капитана Кренона приблизилась к строению с правой стороны и, под 
прикрытием каменных стен, направилась ко входу. Остановившись возле норы, ведущей 
внутрь, Кренон вышел на связь с группой капрала Хикса. 

- Нас окружили, - без предисловий сообщил Хикс. - Мне удалось прорваться и я 
сейчас иду к вам. 

- Диана, - позвал Кренон.- Отзовись! 

- Погибла Диана, - прохрипел Сью Шоу. Свамперы убили. Она была ранена и не 
успела перейти ручей... Васкез, прикрой меня. 

Прогремели залпы далеких выстрелов. Всем было ясно, что группе капрала Хикса 
пришлось туго. Но лишь благодаря им Кренон и его партнеры получили возможность 
добраться до логова монстров. 

Капитан подождал пока затихнут выстрелы, а затем снова вышел в эфир: 

- Все кто меня слышат - отзовитесь. 

- Дэниел Дар на связи. Мы с Шарки вызвали спасательный корабль. Он уже вылетел, 
сейчас идем к вам по вашему следу. 

- Хорошо. 

- Капитан, это Джим. Мы с Васкез и с Хадсоном пытаемся вырваться из окружения, 
как слышно? Прием. 

- Слышу вас, Сью. Ты где?.. Прием. 

Сью Шоу на связь не вышел. Напрасно Кренон вызывал его. Видимо ему так и не 
пришлось перейти злосчастный ручей. Никто больше не видел Сью с того рокового момента, 
когда он, под прикрытием Васкез, попытался прорваться сквозь окружение. 

- Говорит Джекки Доннелли. У меня все в порядке, я подхожу к реке. 

- Мы идем в гости к монстрам, - сообщил для всех Кренон и, повернувшись к 
десантникам, которые стояли рядом, добавил: - Ну что ж, посмотрим, как они нас встретят. 

В небе сгущались сумерки, когда они вошли в дом. Прямо у входа их встречали два 
монстра с трезубцами в сильных руках. Впрочем, для десантников не составило особого 
труда быстро с ними расправиться. За спинами монстров прятались детеныши этих 
загадочных существ. Когда Кренон вошел в просторное помещение с фотонным 
излучателем наперевес, детеныши бросились врассьпную. 

- Курт и Хенли налево, остальные за мной,- скомандовал Кренон. 

Каменный пол и стены небольшого зала, в котором они оказались, были расписаны 
причудливыми узорами. Справа от них, у стены прямо сквозь пол рос небольшой куст 
какого-то растения с широкими плотными листьями, а на противоположной стороне они 
увидели два огромных яйца, из которых по-видимому и вылуплялись аборигены. Каждое 
яйцо лежало отдельно в небольшом углублении с подстилкой из сухой травы. 

Осмотр зала занял всего несколько секунд, но как только десантники приблизились к 
своеобразному инкубатору, произошло то, чего так опасался Кренон. В широком проходе в 
соседнее помещение появилась громадная тварь, только отдаленно напоминавшая 
монстров, с которыми они воевали. Скрюченное туловище существа, покрытое серым 
панцирем, венчала гигантская голова с чешуйчатой мордой. Из продолговатого рыбьего рта 
торчали клыки, а большие выпуклые глаза малинового цвета зло смотрели из под свисавших 
мешкими век. Уродливые тонкие руки были сложены на покатой груди. Тварь передвигалась 
на двух жирных коротких ногах, похожих на широкие тумбочки. Вне всяких сомнений это 


была матка монстров. Десантники открыли огонь. Лазерные лучи шипя вгрызались в 
прочный панцирь, оставляя на сером теле черные выжженные пятна. Но, похоже, мамаше 
этих тварей, лучи лазерных ружей и пистолетов не доставляли особых неудобств. Под 
лавиной огня матка ухитрилась несколько раз выплюнуть кислотной слюной, едва не 
зацепив кого-то из десантников. Каменная стена, в которую попала тварь, в считанные 
секунды превратилась в пыль. Их спасало только то, что расстояние, на которое долетала 
кислота, было небольшим и, выдерживая безопасную дистанцию, они достаточно спокойно 
вели обстрел. Положение осложнялось, однако, тем, что детеныши монстров не остались в 
стороне во время этой схватки, а бросились на помощь своей мамаше. Они были без 
оружия, но их крепкие зубы без особого труда могли перегрызть горло любому человеку. От 
клыков одного детеныша пострадал Хенли. Он перезаряжал пистолет, когда к нему сзади 
подкрался детеныш и, запрыгнув на спину десантнику, вцепился клыками в шею. От 
неминуемой смерти Хенли спас Леон Троцкий, одним выстрелом уложившй монстра. Битва 
закончилась неожиданно. После очередного залпа матка, обстрелянная со всех сторон, 
издала предсмертный крик и опрокинулась навзничь, звонко ударившись панцирем о 
каменный пол. Разобраться с отдельными защитниками королевы племени было уже 
нетрудно. Группа Кренона прошла вглубь опустевшего логова и с радостью встретила там 
до зубов вооруженных инопланетным оружием Хикса, Васкез, Хадсона и Джима Дигриза. 

- Агде Джекки Доннелли? - поинтересовался Кренон у Васкез. 

- На корабле. 

- За нами уже прилетели? - он выглянул в окно и действительно увидел стальную 
громадину корабля, удачно посаженного прямо у выхода из жилища монстров. 

Кренон связался с Дэниелом, который вместе с Шарки в эти минуты уже пересек 
поляну перед домом и сейчас направлялся к кораблю. Дэниел ответил после недолгого 
молчания: 

- Нам надо поторапливаться. Мы только что видели целый отряд туземцев, который 
пришел с юга. Они видимо вернулись с охоты и сейчас направляются сюда. 

Как в подтверждение этих слов, со стороны реки прогремели выстрелы. 

- Хватит нам бессмысленных смертей, всем быстро на корабль! - выкрикнул Кренон, 
подталкивая десантников к выходу. 

Они пересекли просторный коридор и оказались в помещении расстрелянной 
королевы аборигенов. Здесь они снова увидели полуметровые яйца, в которых развивались 
зародыши монстров. 

- Наверное их нужно прихватить с собой,- высказал мнение Дон Кейлони. 

- Конечно, пусть ученые поломают головы, - поддержал его Троцкий. 

Кренон с ними согласился и приказал взять с собой несколько яиц. Повесив ружья за 
спину, Дон, Хадсон и Зира Кама подняли по одному яйцу и последовали за всеми к выходу. А 
укорабля уже шла перестрелка и всем стало ясно, что выйти без боя из дома им не удастся. 

У трапа корабля лежал сраженный пулями Лазарь Шарки. Раненый Дэниел Дар с 
перекошенным от боли лицом прятался за углом дома. 

- Мы прикроем вас, - сказал Кренон застывшим в нерешительности десантникам, 
которые несли тяжелые яйца, подобранные в комнате матки. 

Это были самые трудные минуты в его жизни. Один за другим десантники перебегали 
опасную зону, разделявшую выход и трап корабля. 

На его глазах, не добежав до трапа двух шагов, замертво рухнул на землю Зира Кама, 
настигнутый пулей. Яйцо, выпавшее из его рук, осталось лежать на траве, мешая проходу 
другим. В эти последние минуты был ранен и сам Кренон. Выбросив бесполезный фотонный 
излучатель с опустевшим магазином, Элмер Кренон рванул к трапу. Пули зацепили его в тот 
момент, когда капитан бежал вверх по ступенькам. Все уже были на борту, и как только 
Кренон, тяжело дыша ввалился в люк, корабль стал медленно отрываться от земли. 

Долго еще он не мог забыть эту высадку на Зеро. Иногда по ночам ему снились 
кошмарные сны, в которых он опять вел свой отряд в логово монстров, а из зарослей 
болотного тростника погибшие Зира Кама, Сью, Люк Соло и Лазарь Шарки укоризненно 
смотрели ему в спину и молчали. После этой истории Кренон ушел из отряда и подался на 


небольшой частный корабль, капитан которого был дальним родственником Кренона. И 
долгие годы он провел, занимаясь межпланетной торговлей. Многих из своего отряда он 
больше так и не увидел. Кто-то погиб на далеких планетах, а некоторые, как и он, оставили 
службу и поселились в разных концах Галактики. 


Впервые за последние годы Кренон выбрался, чтобы навестить своего друга Дона 
Кейлони, который к этому времени уже возглавлял Центр Космической Безопасности 
Солнечной Системы. Впервые он так отчетливо вспомнил события на Зеро и рассказал о них 
внуку. Но он не смог удовлетворить любопытства юноши, поскольку не знал всех 
подробностей расследования гибели профессора Джонсона. 

- Дед, ну откуда тогда у этих монстров взялось инопланетное оружие? 

- Одно время ходили слухи, что эти существа все-таки были дальними 
родственниками гуманоидов с Сириуса, но по каким-то причинам они пошли по другому 
пути развития. Возможно, главную роль здесь сыграла термоядерная война, разразившаяся 
на их родной планете. 

- Акак они тогда оказались на Зеро? 

Кренон встал из кресла и, застегивая костюм, устало посмотрел на внука: 

- Ты знаешь, спроси это лучше у дяди Дона, когда мы прилетим. 

Он посмотрел на экран. Их корабль уже медленно входил в шлюзовые ворота 
стыковочного отсека станции "Венера - Центр"... 


ПОСЛЕДНИЕ ИЗВЕСТИЯ 
В эти октябрьские дни "ИНФОРКОМУ" исполнилось четыре года. В связи с этим мы 
предприняли ряд важных шагов, для которых, как нам кажется, настало время. 


* * * 


На днях принято решение (и соответствующие меры), чтобы “7Х-РЕВЮ" стал в 
будущем году полноценным изданием с полиграфической точки зрения. У него будет 
стандартный книжный формат, высококачественная печать, красочная обложка, большее 
количество страниц и значительно увеличится тираж. В отличие от прошлых лет мы не будем 
искусственно сдерживать темп его распространения. Стиль и содержание останутся теми 
же. В соответствии с пожеланиями читателей больше внимания будет уделяться вопросам 
музыки, графики и работы в дисковых системах. К концу года планируется начать 
освещение работы "Спектрума" в сетях. 

Благодаря качественному полиграфическому исполнению каждого номера мы 
откажемся от традиционной практики выпуска в конце года годового сборника. Итак, 
годовой сборник "7Х-РЕВЮ-93" станет последним. 


* * * 


Объявленное в прошлом выпуске акционерное общество "ИНФОРКОМ-ПРЕСС"” 
прошло государственную регистрацию и уже работает. Заканчивается подготовка первого 
номера электронного журнала "РС-РЕВЮ", посвященного чисто игровой тематике для РС- 
совместимых компьютеров. Объем, содержание и оформление этого журнала пока 
являются беспрецедентными для нашей страны. 

Редакция нового журнала будет представлена читателям в первом выпуске, который 
пойдет в распространение 01.01.94г. 

Журнал будет распространяться по каналам собственной сети региональных 
дистрибуторов фирмы без защиты от копирования. Подробности см. в "7Х- РЕВЮ" М 7-8 за 
этот год. 

Подготовлены условия для продажи ограниченного количества экземпляров этого 
издания в подарочном исполнении (в красочном альбоме) через специализированные 
компьютерные салоны г. Москвы по престижно высоким ценам (порядка 7-12 $ за номер). 
Эта мера принята для поддержки региональных дистрибуторов. Наличие в Москве 
престижно высокого ценового уровня будет способствовать успеху их деятельности в 
регионах. 

х *х х 

Вышел из печати и поступил в рассылку владельцам именных сертификатов второй 
том "Графики Спектрума". 

В ближайшие дни выходит из печати книга "30 часов БЕЙСИКа". 

х * * 

Заключено соглашение между фирмами "СЛОТ" и "ИНФОРКОМ" об эксклюзивном 
освещении в "7Х-РЕВЮ-94" дисковой операционной системы для "Спектрума" |5КгаОО35. 

Разработан план совместных мероприятий по продвижению этой системы на рынки 
программных средств СНГ. Эти шаги согласованы с владельцем авторских прав на систему, 
компанией 1$КгаЗОНТ, г. С.-Петербург и получили поддержку. (Фирма "СЛОТ", г.Москва, 
является Генеральным дистрибутором компании 15КгаЗОРТ). 

Подготовлена и передана в печать книга, посвященная работе с этой системой. 

Систему 1$-00$, пакеты прикладных программ, разработанные под нее и 
сопутствующую литературу можно будет приобретать как у фирм 15КгаЗОРТ и "СЛОТ", так и 
по каналам "ИНФОРКОМа". 
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"ИНФОРКОМ" 121019, Москва, Г-19, а/я 16 


Вниманию читателей! 
Мы продолжаем публиковать адреса пунктов, в которых можно приобрести наши материалы. 
г. МОСКВА, ул. Новый Арбат, д. 2. 19-е отделение связи, 1-ый этаж операционного зала. 
г. МОСКВА, радиорынок в Митино, проезд до ст. метро Тушинская или поездом до пл. Трикотажная 
(Рижское направл.). Суббота, воскр. 9 - 14. Киоск М .-37. 
г. МОСКВА, радиорынок в Царицыно, проезд до ст. метро Царицыно. Суббота, воскр, 9 - 14. 
г. БЕЛГОРОД, магазин "РАДИОТОВАРЫ", ул. Ленина, 32. 
г. БЕЛГОРОД, Октябрьская 84, кв. 103, "СТУДИЯ КОМПЬЮТЕР". 
г. ВЛАДИВОСТОК, Океанский проспект, 140, магазин "ПАНОРАМА". Проезд трамваем до ост. 
Некрасовская. 
г. ВОРОНЕЖ, студия компьютерных игр ЗАМ-ЗАМ, магазин-салон "ЭЛЕКТРОНИКА", тел. 14-00-73. 
. ДНЕПРОПЕТРОВСК, ул. Шевченко, 34. фирма "ЭКОС". 
. ЕКАТЕРИНБУРГ, магазин “"СПЕКТРУМ", Главный проспект, 99. 
ИЖЕВСК, радиорынок "Козий парк". 
. КЕМЕРОВО, магазин "ТЕХНИЧЕСКАЯ КНИГА", ул. Весенняя, 24. 
. КЕМЕРОВО, магазин "ОРБИТА", пр. Ленина, 133. 
КИРОВ, "Дом науки и техн.", магазин-салон "МАРС", ул. Производственная, Д.27. 
. КРАСНОЯРСК, радиорынок, проезд до ост. "Затон", субб, вскр. 
. НАБЕРЕЖНЫЕ ЧЕЛНЫ, Татарстан, Новый Город, салон-магазин "ПРИНТЕР". 
. НИЖ. НОВГОРОД, ИМА "Фф-ПЛЮС". Магазин "ФОТОЛЮБИТЕЛ", ул. Горького, 146. 
. ОРЕНБУРГ, магазин "ВОЕННАЯ КНИГА", ул. Советская. 
. ПРОКОПЬЕВСК, Кемеровской об. Тырган, магазин "ОДЕЖДА", фирма "РОНЭТ". 
. РЫБИНСК, ул. Гоголя, 5. ТТЦ "ГНОМ". 
ХАБАРОВСК, ул. Запарина 65, магазин "ФИЛАТЕЛИЯ". 
. ЧЕБОКСАРЫ, маг. "ЭКСПРЕСС". НПК фирма "НОВА", ул. Привокзальная, Д.6. 
. ЯРОСЛАВЛЬ, магазин "РАДИОСПОРТ-ТУРИЗМ", Ленинградский пр-т. 


СПЕКТРУМ В ШКОЛЕ 


В последнее время наши статьи из рубрики "Спектрум в школе" предназначались в 
основном для старшеклассников. Но ведь если в Вашей школе есть кабинет информатики, 
то, наверное, и малышам было бы интересно в него заглянуть. 

Предельно простая программа, которую мы приводим сегодня, послужит для 
развлечения и приобщения к компьютеру тех, кто только-только учится считать до десяти. 

Суть программы состоит в том, что на экране на некоторое время изображаются 
несколько фигурок и малыш должен сосчитать, сколько их и нажать соответствующую 
клавишу на компьютере. В качестве фигурок мы приняли любимый детьми "черепашек- 
ниндзя", изобразив их с помощью четырех символов УО)С-графики. Несмотря на свою 
очевидную простоту, эта программа может иметь вполне реальный успех, если ей сделать 
приличный художественный дизайн, ввести в нее элементы мультипликации и красиво 
озвучить. Так что дерзайте, все в Ваших руках. 

Конструкция одного "героя" сделана из четырех символов ЦУОС и имеет размер 16Х16 
пикселов. Символы располагаются следующим образом: 

[А] [В] 

[2] [8 

Для того, чтобы отличить символы ЦБС в программе от обычных символов, мы взяли 
их в квадратные скобки. Вам, конечно, никаких скобок набирать при наборе программы не 


надо (надо только перейти в графический режим - САР$З ЭНЕТ + 9 - курсор "С"). 


10 ВЕМ **СОСЧИТАЙКА** 

20 [ЕТ малт = 310 

25 [ЕТ ро\фог=140 

30 КЕМ Ввод символов графики пользователя. 

40 РОВ п=0 ТО 31 

50 ВЕАБ а 

60 РОКЕ Ц5В “а”+п, а 

70 МЕХТ п 

80 ВАТА 1, 1, 3, 15 

81 ПАТА З1, 59, 63, 15 

82 ПАТА 128, 129, 134, 248 

83 ВАТА 252, 198, 194, 124 

84 ПАТА 55, 70, 134, 12 

85 ВАТА 12, 12, 24, 16 

86 ПАТА 224, 112,48, 48 

87 ПАТА 96, 96, 112,0 

90 ВЕМ Запустите набранные строки командой ВИМ, после чего можете продолжать набор 
программы. 

100 ТЕТ а$="[АВ]” 

110 ГЕТ 6$="[С0]” 

120 ОТМ х(10): БТМ у(10) 

130 ВОВОЕН 1: РАРЕВ 7: ТМК 2: ВАТОНТ 1 

140 ВЕМ роутог 


160 ТЕТ соипЕ=1+ТМТ (9»*АМО 
170 ВЕМ Расположение черепашек 
180 ТЕТ х(1)=2*ТМТ(16»*АМО 
190 ЕЕТ у(1)=2»ТМТ( 10» ВМО 


200 ЕОВ п=2 ТО соипЕ 

210 (ЕТ х(п)=2*ТМТ(16»АМБ 
220 [ЕТ у(п)=2»*ТМТ( 10» ВМО 
230 ЕОВ К=1 ТО п-1 


240 ТЕ х=(п)=х(К) АМО у(п)=у(К) ТНЕМ [ЕТ п=п-1: АЕМ Если у нас случайно совпали координаты 
позиции печати двух черепашек, то играющий на экране увидит только одну и потому этот 
вариант надо исключать. 

250 МЕХТ К: МЕХТ п 
260 НЕМ Печать “черепашек” 
270 РОЕ п=1 ТО соип* 
280 РНТМТ АТ у(п), х(п); а$ 
282 1ЕТ у(п) = у(п)+1 
285 РНАТМТ АТ у(п),х(п); 6$ 
290 МЕХТ п 


310 НЕМ ма 

320 ТЕ ТМКЕУ$="" ТНЕМ 60 ТО ма1*: ВЕМ здесь между кавычками не должно быть пробела 
330 ТЕ ТМКЕУ$ <> 5ТВ$ соипЕ ТНЕМ ВЕЕР .5,0: ВЕЕР 1,-24: 60 ТО мал 
340 ВЕМ Правильный ответ 

350 ЕЁГАЗН 1: 01$ 

360 РОН п=1 ТО 10 

370 ВЕЕР .33, 12 

380 ВЕЕР .33, 24 

390 МЕХТ п 

400 ЕГАЗН 0 

410 60 ТО роуРог 


УМСЕАВ ГОСО 


(Окончание) 
Начало см. на с. 69-74, 90-96, 134 - 138, 180 - 186. 


ГЛАВА 9. ВВОД И ВЫВОД ИНФОРМАЦИИ 


До сих пор мы рассматривали только один метод ввода информации в компьютер - 
ВЕАОМ$Т и (если не учитывать черепашью графику) только один метод вывода информации 
- РЁЕМТ. В этой главе мы рассмотрим некоторые методы, которые дадут программисту 
новые возможности для ввода/вывода, хотя и ценой более сложного программирования. 

ВЕАОСНАН ждет, когда пользователь нажмет какую-либо клавишу, принимает один 
символ с клавиатуры и выдает его в качестве выходного результата. После нажатия клавиши 
не надо нажимать ЕМТЕВ, принятый символ не изображается на экране, ввод символа не 
сопровождается изображением "приглашения". Попробуйте: 

МАКЕ “СНАКАСТЕВ ВЕАОСНАВ 

Нажмите ЕМТЕН - система ожидает нажатия любой клавиши. Нажмите любую клавишу. 
На экране появится приглашение "?" - это означает, что ЛОГО-систена вернулась в 
командный режим. 

Вы можете проверить, что за символ был введен: 

РАТМТ :СНАВАСТЕВ 

Это обычный прием, когда надо узнать, что за клавиша была нажата. Вот, например, 

программа, с помощью которой Вы можете управлять движением черепашки по экрану. 


ТО ОВА 
МАКЕ “СНАВАСТЕВ ВЕАБСНАВ 
ТЕ :СНАНВАСТЕН = “Р-Р [РОВМАВО 5] 
ТЕ :СНАВАСТЕН = “В [ВАСК 5] 
ТЕ :СНАНАСТЕН = “В [ВАТОНТ 10] 
ТЕ :СНАНАСТЕН = “Е [1ЕРТ 10] 
ТЕ :СНАНАСТЕН = “5 [5ТОР] 
ОНАМ 

ЕМО 


Функция ВЕАОСНАН бывает очень полезной, когда вместо символов Вы работаете с 
их кодами. Коды символов с 0 по 127 называют кодами АЗСИ (Атейсап Запаага Соае Гог 
штогтаНоп Нтегспваподе). Коды с 0 по 31 используются компьютером в качестве управляющих 
при операциях ввода/вывода (например для перемещения курсора) и не являются 
печатными, т.е. их нельзя изобразить на экране, хотя они и влияют на то, как изображаются 
другие (печатные) коды. Коды с 32-го по 127 - печатные символы (буквы, цифры, знаки 
препинания). Дополнительно к стандарту АЗСИ "Спектрум" имеет еще ряд кодов для 
символов. 

Коды 123 - 143 представляют символы блочной графики, а символы 144 - 164 - это 
символы графики пользователя. 

Вы можете узнать, какому символу какой код соответствует с помощью следующей 
несложной программы. 

ТО ЗНОМАЗСТТ 
МАКЕ “СНАКАСТЕВ ВЕАОСНАВ 
РАТМТ АЗСТТ :СНАВАСТЕВ 


НОМАЗСТТ 
ЕМО 


Создав такую процедуру, Вы можете дать команду ЗНОМ/АЗСИ и, нажав любую 
клавишу, увидеть на экране код этого символа. 

Противоположное действие имеет команда СНАВ. Она переводит код от 32 до 143 в 
соответствующий графический символ. 

Так, РАМТ СНАВ 65 даст: 

А 


Можно использовать команду СНАН совместно с командой АЗСИ. Нижеприведенная 


процедура будет шифровать ту информацию, которую Вы введете с клавиатуры. 
ТО СОМРУЗЕ 
МАКЕ “СОБЕ АЗСТТ ВЕАБСНАА 
ТЕ :С00Е = 13 [5Т0Р] 
ТУРЕ СНАН (:С00Е + 1) 
СОМЕИЗЕ 
ЕМО 


<> 


Процедура прекратит свою работу, когда будет нажата клавиша ЕМТЕН (ее код = 13). 

Если Вам не надо ожидать нажатия клавиши, то Вы можете использовать функцию 
КЕУР. Она проверяет факт нажатия какой-либо клавиши и выдает ТВОЕ или РАЁЗЕ в 
зависимости от того, имело или нет место такое событие. 

Вот еще одна программа для черепашки, отличающаяся тем, что между нажатиями 
клавиш черепашка продолжает свое движение. 

ТО ОВАМ2 
ТЕ КЕУР [Отт] 
РОВМАВО 5 ОВАМ2 


ЕМО 
о ВОтТТ 
МАКЕ “СНАНАСТЕН НЕАБСНАВ 
ТЕ СНАВАСТЕВ =”М [АТСНТ 90] 
ТЕ СНАВАСТЕВ =”7 [1ЕРТ 90] 
ЕМО 


Клавишами М и 2 Вы теперь можете управлять движением черепашки по экрану. 

Символы от 144 до 164 включительно могут задаваться непосредственно 
пользователем. О том, как это сделать, рассказано в инструкции к компьютеру (и в книгах 
ИНФОРКОМа). Но для того, чтобы задать эти символы, в определенные адреса памяти 
компьютера надо внести свои значения. В языке ЛОГО для этой цели служит команда 
.ОЕРОЗТ. Но будьте осторожны при работе с этой командой. Она напрямую меняет 
содержимое ячеек памяти компьютера. ЛОГО-система не в состоянии проверить 
правильность Ваших действий и, если Вы станете использовать эту команду без четкого 
понимания того, что и зачем Вы делаете, есть большая вероятность того, что Вы можете 
разрушить созданные Вами и хранящиеся в памяти компьютера процедуры. 

Пара нижеприведенных процедур демонстрирует задание нового символа графики 
пользователя путем помещения в память компьютера (начиная с адреса 64215) списка из 
восьми чисел, которые и определяют конструкцию нового символа. 

ТО ОБЕРСНАН {СН :АЁТУТ 


ТЕ ОВ МОТ МОМВЕНР :СН МОТ ЕТЗТР :АЕТЗТ [$ТОР] 
ТЕ ОВ :СН<144 :СН>164 [5ТОР] 


РОБЕЕ :АЁТЗТ 0 
ЕМО 
ТО БОБЕР :АЕТЗТ :СОУМТ 
ТЕ ЕМРТУР :АЁЕТЗТ [$ТОР] 
‚ОЕРОЗТТ 64216 + :СН*8 + :СОУМТ ЕТАЗТ :АЁТФТ 
РОБЕЕ ВОТЕТАЗТ :АЕТЗЬТ :СОУМТ +1 


ЕМО 

Для того, чтобы определить, какими должны быть эти восемь чисел, задающие 
конструкцию символа, Вам придется почитать соответствующую литературу или 
поэкспериментировать. Так, например, следующая группа чисел задаст символ 144 в виде 
стрелки, направленной вниз: 

ОЕРСНАВ 144 [16 16 16 16 146 84 56 16] 

Для управления выводом текста на экран компьютера тоже существует ряд полезных 
процедур и мы последовательно их рассмотрим. 

ЗЕТСУВАЗФОН - принимает в качестве входных параметров список из двух чисел и 
помещает курсор в соответствующую позицию экрана. С этой позиции и начнется в 
последующем печать выводимого текста. Первое число списка указывает на номер 
экранного столбца (от 0 до 31), а второе число - на номер экранной строки (от 0 до 21). 
Левому верхнему углу соответствуют координаты (0,0). 

ЗЕТТС (ЗЕТ Тех{ Союг) тоже принимает на входе два числа. Первое число задает цвет 


фона (аналог оператора БЕЙСИКА РАРЕВ), а второе число задает цвет символов (аналог 
МК). Обычная ситуация для режима печати черным по белому - [7,0]. Вы можете 
поэкспериментировать со следующей процедурой: 

ТО ТЕЗТСОЕ 
ТЕХТОСНЕЕМ 
ЗЕТСИВ [12 10] 
ЗЕТГС [1 6] 


РАТМТ [НЕГЕО ТНЕВЕ] 
МАКЕ "С АЕАОСНАВ 
ЕТО [У 0] 
ЕМО 
В последних строках организовано ожидание нажатия клавиши для восстановления 
нормальных цветов. Параметр яркости фона, на котором печатаются символы, может 
задаваться командой ВЕСНТ (как и в БЕЙСИКе). Команда ВЕИСНТ должна иметь при себе 
один параметр, который может быть равен 0 или 1. ВЫСНТ 1 - повышенная яркость, ВН@НТ 
0 - обычный режим. 
Команда ИМ\УЕЛЗЕ включает режим печати символов в инвертированном виде, т.е. 
цвет символов становится цветом фона и наоборот. 
Команда Е-АЗН включает режим мигания символов, когда попеременно цвета 
символов и фона меняются местами. 
Команда МОРМАЁГ отбивает эффект команд ВАСНТ, 1МУЕАЗЕ, РЕ-АЗН и 
восстанавливает исходный режим печати текста. 
Для тех, кто хочет посмотреть эти команды в работе, предлагается следующий 
пример: 
ТО РГАМСУМАМЕ 


РВТМТ [\МНАТ 1$ УОУН МАМЕ? ] 
МАКЕ “МАМЕ ВЕАОЕТЗТ 
ТЕХТОСНЕЕМ 
ВАТСНТ 1 
ЭНОММАМЕ 
ЕТО [90] 
ЗЕТСУВ [0 21] 
ЕМО 
ТО $НОММАМЕ 
ТЕ КЕУР  [5Т9Р1 
МАКЕ “Х ВАМООМ 31 
МАКЕ “У ВАМООМ 21 
МАКЕ “ВС ВАМООМ 8 
МАКЕ “ЕС НЮАОСОЕ 
ЗЕТТС ЗЕМТЕМСЕ :В@ :Р@ 
ЗЕТСУВ ЗЕМТЕМСЕ :Х :\ 
ТУРЕ :МАМЕ 
НОММАМЕ 
ЕМО 
ТО ВМОСОЕ 


МАКЕ “Ра ВАМООМ 8 
ТЕ :Рб=:В@ [ОУТРУТ ВМОСОЕ] ГОУТРУТ :Е@] 
ЕМО 


Здесь процедура ВМОСОЕ не только генерирует случайное число для установки цвета 
печатаемого сообщения, но еще и проверяет, не совпадает ли выбранный цвет символов с 
ранее установленным цветом фона и, если это так, то вызов АМОСОЕ повторяется до тех 
пор, пока эти цвета не станут разными. 

А вот еще один пример для демонстрации приведенной выше техники. Группа 
процедур обрабатывает результаты матчей небольшой футбольной лиги. Главная процедура 
организует списки и печатает в цвете заголовки будущей таблицы, затем вызывается 
процедура НЕАОСОЕ, которая печатает заголовки столбцов, а потом процедура ПОТЕАМ, 
обрабатывающая результаты для каждой команды. 

ТО ТЕАСИЕ 


Е "ТЕАМ$ [ЗРАВТАК ОТМАМО А\МАМСААО РВОСВЕЗ$ ] 
МАКЕ "С01$ [РМОЕРТ$] 
ТЕХТЗСВЕЕМ 


ТУРЕ [(ЕАСОЕ ТАВЕЕ] 
ЗЕТСУНЗОВ [0 2] 


ЕМО 
Процедура НЕАОСОЕ выбирает данные из списка заголовков колонок и печатает эти 
заголовки в нужной позиции экрана с помощью команды ЗЕТСУА$ОН. Работа 


продолжается, пока все пять заголовков не будут распечатаны. 
ТО НЕАБСОЕ :С0Е 
ТЕ :С0[>5 5ТОР 
ЗЕТСИА$ОА ЗЕМТЕМСЕ (3З»«: СО + 11] 2 
ТУРЕ ТТЕМ :С0Е :С01$ 
НЕААОСОЕ :С0Ё + 1 
ЕМО 


Процедура ВОТЕАМ определяет номер строки, в которой печатаются результаты для 
данной команды (он зависит от номера команды в списке команд). Она принимает из списка 
название команды, а затем принимает от пользователя с клавиатуры количество сыгранных 
игр (Р), количество побед (\\/) и ничьих (0). При этом она использует еще одну процедуру - 
СЕТМОМ. 

Первыми двумя входными параметрами СЕТМУМ являются координаты позиции 
экрана, в которой должна состояться печать. Третий входной параметр поначалу - пустое 
слово, оно будет содержать число, введенное пользователем. 

Количество проигрышей команды (1) и набранные ею очки (РТЗ) вводить не надо, они 
могут быть рассчитаны самой программой. Предполагается, что победа оценивается двумя 
очками, а ничья - одним очком. 


ТО ООТЕАМ :ТЕАММО 
ТЕ ТЕАММО СОУМТ :ТЕАМ$ [5$ТОР] 
АКЕ “ЕТМЕ 2»: ТЕММО + 2 
ЗЕТСУВ$ОВ ЗЕМТЕМСЕ 0 :1ТМЕ 
ТУРЕ ТТЕМ :ТЕАММО :ТЕАМЗ 
АКЕ “РЕАУЕВ СЕТМОМ 14 :ЕТМЕ " 
АКЕ “МОМ СЕТМОМ 17 :ЕТМЕ ” 
АКЕ “ОВАММ СЕТМОМ 20 :1ТМЕ 
АКЕ “ЕОЗТ :РЕАУЕОВ - МОМ - :ОВАММ 
ЗЕТСУВ$ОВ ЗЕМТЕМСЕ 23 :ЕТМЕ 
ТУРЕ. + ОТ 
АКЕ “РОТМТ$ 2»:МОМ + :ОНАММ 
ЗЕТСУВ$ОВ ЗЕМТЕМСЕ 25 :ЕТМЕ 
ТУРЕ :РОТМТ$ 
РОТЕАМ :ТЕАММО + 1 


ЕМО 
Прежде, чем рассмотреть процедуру СЕТМИМ, мы рассмотрим еще одну связанную с 
ней процедуру СЕТО!@. Она принимает цифру с клавиатуры, а возвращает и эту цифру и ее 
код АЗСП. Она передает также коды ЕМТЕН (13) и ОЕТЕТЕ (12), если соответствующие 
клавиши нажаты. Если же нажата любая другая клавиша, процедура ее игнорирует и вызов 
повторяется. Цифрам от нуля до 9 соответствуют коды АЗСИ от 48 до 57. 
ТО СЕТОТС 
МАКЕ “ОТ@ НЕАОСНАВ 
МАКЕ “СОБЕ АЗСТТ :0Т6 
ТЕ ОН :С00Е = 13 :С00Е = 12 [5ТОР] 
ТЕ ОН :С00Е<48 :С00Е>57 [6ЕТОТ@] 


ЕМО 


Теперь рассмотрим процедуру СЕТМИМ. Начинается она довольно странно. Сначала 
устанавливается курсор в позицию, соответствующую ее первым двум входным 
параметрам, после чего печатается ее третий параметр, хоть он и пустой при первом 
вызове. Это нужно потому, что процедура работает рекуррентно и в процессе ее работы 
третий параметр будет изменяться. 

В качестве курсора для печати используем мигающий вопросительный знак. Это легко 
реализуется следующими строками: 

ЕГАЗН 
ТУРЕ *? 
МОВМАЕ 

Цифра, введенная пользователем, поставляется из процедуры СЕТО!@. Оттуда же 
могут поступить и коды ЕМТЕВН или ОЕТЕТЕ. При появлении этих кодов следует убрать 
вопросительный знак из текущей позиции, в противном случае он продолжает мигать. 
Удаление вопросительного знака исполняется печатью на его месте пробела (символ 32). 
Могут быть проблемы с точным определением местоположения вопросительного знака. 
Самый лучший способ - пойти к началу вводимого числа (мы знаем где это начало) и снова 
напечатать число, а за ним уже пробел - на месте вопросительного знака. 

ЕТСОВЗОВ ЗЕМТЕМСЕ :Х :У 
ТУРЕ № 
ТУРЕ СНАН 32 

Процедура СЕТО!@ может выдать три возможных результата: была нажата цифра с 
кодом от 48 до 57, либо клавиша ЕМТЕВН (код 13) либо ОЕТЕТЕ (код 12). 

Если это цифра, то ее просто надо напечатать, добавив к ранее напечатанным цифрам 
вводимого числа. В нижеследующем примере предполагается, что числа имеют не более 
двух знаков и при попытке ввести третью цифру она игнорируется. 

ТЕ АМО :С00Е>13 (СОУМТ :№)<2 МАКЕ "№0 МОНО :№0 :0Т@ 

Если нажата клавиша ЕМТЕВ и если число не пустое, то мы можем напечатать это 
число. 

Если нажата клавиша ОЕТЕТЕ, то мы должны удалить последний символ числа, 
используя ВИТЕАЗТ. Но и в этом случае сначала надо удостовериться, что число не является 
пустым словом. И если Вы рассмотрите нижеприведенную процедуру, то увидите в ней 
несколько необычную строку: 

ТЕ ЕМРТУР :М№0 [МАКЕ “№0” ] 

Кажется, что в ней нет необходимости, но это не так. Дело в том, что когда мы 
применяем ВИТЕАЗТ к слову, в котором есть только один символ, то рассчитываем получить 
пустое слово, но вместо него получаем пустой список, с которым команда \М/ОВО, 
помещающая очередную цифру в число не сможет работать. Эта странная операция 
конвертирует пустой список в пустое слово, 

ТО СЕТМУМ Хх :У №0 

ЗЕТСИА$ОА ЗЕМТЕМСЕ :Х :\ 

ТУРЕ :№ 

ЕГАЗН 

ТУРЕ "? 

МОВМАЕ 

СЕТОТО 

ЗЕТСИА$ОА ЗЕМТЕМСЕ :Х :\ 

ТУРЕ :№0 
ТУРЕ СНАН 32 

ТЕ АМО :СОО0Е = 13 (МОТ ЕМРТУР :№0) [ОУТРУТ :№0] 

ТЕ АМО :СОО0Е = 12 (МОТ ЕМРТУР :№0) [МАКЕ "МО ВОТЕАЗТ :№01] 

ТЕ ЕМРТУР :М№0 [МАКЕ “№О”] ТЕ АМО :С00Е>13 (СОПМТ :№0)<2 МАКЕ "№ МОАВ :№ :0Т@ 

ОПТРУТ СЕТМИМ :Х :У :№0 

ЕМО 


Программу можно улучшать и дальше. Можно предусмотреть, чтобы пользователь не 
смог ввести число побед больше, чем было сыграно игр, в результате чего число поражений 
станет отрицательным. Совершенствованию нет предела, но сама техника Вам теперь 
должна быть понятна. 


Фр) 


ЗВУК. 

"Спектрум" может выдавать звуковые сигналы. Это делается с помощью команды 
ЗОЧМО, после которой идет список из двух чисел. Первое число выражает длительность 
звучания ноты в секундах и должно быть в диапазоне от 0 до 10.5. Второе число - высота 
ноты, измеренная в полутонах относительно ноты "до" первой октавы. Это число должно 
быть в диапазоне от -60 до +69. Следующая процедура превратит клавиатуру Вашего 
компьютера в электроорган, но играть на нем весьма сложно. 

ТО КЕУВОАВО 

МАКЕ “КЕУ (АЗСТТ ВЕАОСНАА)-65 

ТЕ АМО :КЕУ>-59: КЕУ<70 

[$00№0 ЗЕМТЕМСЕ 0.5 :КЕУ] 

КЕУВОАВО 

ЕМО 

Сыграть список нот равной длительности Вы можете с помощью процедуры: 

ТО РЕАУ :АЁТУТ 

ТЕ ЕМРТУР :АЁТЗТ [5ТОР] 

500№0 ЗЕМТЕМСЕ 1 ЕТА$ЗТ :АЁТУТ 

РЕАУ ВИТЕНУТ :АЁТУТ 

ЕМО 

Полутон - это звуковой интервал между двумя соседними (белыми или черными) 
клавишами на фортепиано. Если Вы не знаете, как складывается музыкальный ряд из 
полутонов, то попробуйте сыграть следующую гамму "до мажор". 

РЕАУ [02457911 12] 

К сожалению, способ задания звуков с помощью команды ЗОЧМО очень далек от 
общепринятой нотной нотации. Впрочем, можно написать процедуру, которая сделает за 
нас необходимое преобразование. Для этого служит следующая приведенная нами 
процедура. Первый параметр, который она ожидает, задает темп музыкальной мелодии. Это 
продолжительность звучания (в секундах) ноты, длительность которой принята нами за 
единицу. Затем процедура принимает список нот и размещает их в предварительно 
созданном списке ЭМ$Т, после чего исполняется мелодия. 

ТО Му$ТС 
Е “МОТЕЕТЗТ [00 00# ВЕ ВЕН МТ РА РАН $0 50# ТА ГА# 5Т 00°] 
МАКЕ “УЁТ$ТГ] 
РАТМТ [ТЕМР? ] | 
РАТМТ [ВВЕДИТЕ НОТЫ ПО ОДНОЙ, СНАЧАЛА ДЛИТЕЛЬНОСТЬ] 
б 
Р 


р 


= 

> 

р 
Т 


ЕТМИ$ 
ГАУ :5ЕТ5Т 


ЕМО 

Процедура СЕТМУ$ принимает с клавиатуры список из двух чисел. 

Первое число - длительность ноты. Предполагается, что самая короткая из них имеет 
длину 1, а длительность прочих - 1, 2, 3.... и т.д. Реальная же длительность (в секундах) 
будет зависеть от введенного Вами параметра ТЕМР. 

Высоту ноты будет определять ее название - Оо, Ве, М! ит.д. 

Процедуре СЕТМУ$ нужна еще одна вспомогательная процедура НЕМО, которая 
найдет объект в списке. Первые два входных параметра для процедуры ЕМО - это имена 
объекта и списка, а третий параметр - стартовый номер, с которого начинается отсчет в 
списке. Если мы хотим, чтобы первой нотой была "ДО" первой октавы, то положим этот 
параметр равным нулю. 

ТО СЕТМИ$ 
МАКЕ “МТОТЕ ВЕАБЕТЗТ 
ТЕ ЕМРТУР :МОТЕ [5ТОР] 


МАКЕ “ОБИВ :ТЕМР*ЕТАЗТ :МОТЕ 
МАКЕ “РТТСН РТМО ГАЗТ :МОТЕ :МОТЕЕТЗТ 0 
МАКЕ “5ЕТУТ ЕРУТ ЕТ$Т :БУВ :РТТСН :5ЕТ$Т 
СЕТМУ$ 

ЕМО 


ТО ЕТМО :ОВУЕСТ :АЕТЗТ :№ 
ТЕ ЕМРТУР :АЁТЗТ [ОУТРИТ 0] 


ТЕ ОВУЕСТ = ЕТАЗТ :АЕТУТ 
[ОУТРОТ :№] 
ОУТРУТ ЕТМО :ОВУЕСТ ВУТЕТА$Т :АЁТЗТ :М + 1 
ЕМО 


И, наконец, само исполнение музыки реализует процедура Р\АУ. Она отличается от 
ранее приведенной процедуры с тем же именем РИАУ только тем, что полагает каждый 
элемент своего входного списка тоже списком, состоящим из двух элементов, которые 
затем передаются команде $ОУМО). 

ТО РЕАУ :АЁЕТЗТ 

ТЕ ЕМРТУР :АЁТЗТ [5ТОР] 

509№М0 ЕТАЗТ :АЁТУТ 

РЕАУ ВОТЕТВЗТ :АЁЕТЗТ 

ЕМО 


Введя все процедуры, попробуйте программу в деле: 


ТЕМР? 


ВВЕДИТЕ НОТЫ ПО ОДНОЙ, СНАЧАЛА ДЛИТЕЛЬНОСТЬ 


Когда закончите, нажмите ЕМТЕР и после короткой паузы музыка заиграет. Один раз 
введя мелодию, Вы сможете воспроизвести ее всякий раз, как захотите с помощью 
команды: 

РЕАУ ЗЕТУТ 


ГЛАВА 10. ЕСЛИ ЧТО-ТО НЕ ПОЛУЧАЕТСЯ 


Мы начнем с того, что скажем несколько успокоительных слов тем, кто только что 
понял, что написанная им процедура не работают. Главное, что вам нужно знать о 
программировании и о компьютерах - это то, что неработоспособность - это естественное 
состояние любой компьютерной программы. 

Неопытного программиста легко отличить от опытного. Новичок неприятно 
удивляется, когда только что написанная им программа не желает работать с первого раза. 
Опытные программист всегда удивляется, когда она с первого раза работает как надо и 
начинает искать в ней скрытые подвохи. 

Можно сказать, что при программировании на языке ЛОГО Вас ждут два разных типа 
ошибок. Если Вы сделали ошибку при написания команд и ЛОГО не понимает, что Вы хотите 
сделать, Вы получите сообщение об ошибке. В других случаях ЛОГО понимает, что Вы 
хотели сделать и выполняет Ваши команды, но результат Вы получаете совсем не тот, 
который Вам необходим. 

Методика отыскания и исправления ошибок и в том и в другом случае очень похожа. 
Хотя первый тип ошибок проще поддается исправлению, поскольку ЛОГО-система сама уже 
сказала Вам в своем сообщении что ей не нравится и в какой процедуре она наткнулась на 
препятствие. В этом смысле ЛОГО удобнее многих другие языков программирования, 
поскольку его сообщения как правило более осмысленны и содержательны, чем в других 
языках. Тем не менее, все-таки эти сообщения были написаны создателями языка задолго 
до того, как Вы начали писать свою программу. Им как бы пришлось "предугадать" Ваши 
возможные ошибки. Это не всегда можно сделать точно. Потому не удивляйтесь, если эти 


сообщения будут не абсолютно точны в определении Ваших ошибок. 
Делу может помочь краткий обзор некоторых наиболее часто встречающихся ошибок 
и сообщений. Например: 


1. *Уой аог'Е зау "рае ®о ао м1ЕБ АВСО* 
Вы не указали, что делать с АВС) 

Такое сообщение легко объяснить. Помните, что всякая операция, выдающая какой-то 
результат, слева должна иметь имя команды, которая примет этот результат. В нашем 
примере операция произвела слово АВСВ и либо отсутствует команда, которая примет этот 
результат в качестве входного параметра, либо она есть, но это не тот входной параметр, 
который для нее приемлем. 

Рассмотрим пример. Предположим, что некоторая процедура ЗАУАВСО выдает в 
качестве результата АВСРЬ и Вы запишете такую строку: 

РАТМТ “ВЕЗИЕТ ЗАУАВСО 

В результате Вы получите приведенное выше сообщение об ошибке. Дело в том, что 
команда РАМТ ожидает только один параметр в качестве входного и он здесь есть - 
"ВЕЗОЁТ. Никакого указания, что делать с АВСО, здесь нет. Чтобы исправить ошибку, 
очевидно надо использовать команду ЗЕМТЕМСЕ, дабы команда РЕМТ могла распечатывать 
несколько данных. 


— 


2. *МоЕ епосаб 1приЕ$ Со АВСО* 

(недостает входных параметров для АВС) 

Если Вы рассмотрите определение процедуры АВСЬ, то должны обнаружить, что она 
ожидает большое число входных параметров, чем Вы ей дали. Может быть, это будет 
выглядеть и неочевидным, но метод анализа строк ЛОГО, который мы привели в Главе 3 Вам 
должен помочь. 


3. *ХУЙ аоезр'Е очбраЕ во АВСО* 

(ХУй не выдает данные пля АВСО 

Эта ошибка возникает тогда, когда операция АВСО применяется к некоторой команде 
ХУЙ (не являющейся операцией), которая не выдает выходного результата, необходимого 
для успешной работы АВСЬ. 


4. *Тоо шапу 1п$1аАе рагеп®Вез1$* 

(слишком много скобок). 

Эта ошибка происходит, когда Ваш список имеет слишком много внутренних круглых 
скобок. В большинстве случаев присутствие такой ошибки может так напугать 
программиста, что он вообще будет стараться обходиться без таких скобок, хотя это тоже 
излишняя крайность. 


5. "хуй аоезп'Е 11Ке АВСОЕ аз 1проас* 
(ХУлд не принимает АВСПЕ в качестве входного параметра). 
Эта ошибка может происходить в двух случаях. Либо результат АВСОЕ неприемлем 
для ХУ, т.к. он имеет не тоттип (это, например, число, а должен быть список): 
ЗЕТСИН 10 15 
Либо результат имеет правильный тип, но не находится в допустимых пределах: 
ЕТСИУВ [10 45] 
При появлении такой ошибки Вам следует внимательно вручную проверить что 
именно Ваша процедуру ожидает в качестве входного параметра. 
Сообщение об этой ошибке может иметь весьма обескураживающий вид, например: 
*хуй Чоезп'Е 11Ке аз 1прие* 
Здесь выпало слово АВСПЕ - это потому, что результат АВСПГЕ является в данном 
случае пустым словом. 


Фр) 


6. *МоЕ епосаП зрасе Со ргосее@а* 

(Не хватает рабочего пространства). 

Это сообщение о том, что наступила нехватка оперативной памяти компьютера для 
продолжения дальнейших вычислений. В такой ситуации можно попробовать принять 


предохранительные меры. Один из приемов - запустить процедуру РЕСУСЕЕ. Эта команда 
выполнит то, что на компьютерном жаргоне называют "уборкой мусора". Она разыщет 
области памяти, выделенные в свое время для каких-то операций, в которых более нет 
необходимости и освободит дополнительный объем памяти. Может быть, эта мера и не 
приведет к какому-то положительному результату, поскольку время от времени система 
сама производит "уборку мусора" автоматически. 

Другой, более радикальный прием - удалить из памяти те процедуры, которые Вам 
более не нужны. 

Но команду ВЕСУСЕЕ можно использовать и для повышения быстродействия Ваших 
программ. Поскольку автоматическая "уборка мусора" может занимать некоторое время, то 
работа программы может быть задержана. В разных частях программы, в разных 
процедурах у Вас могут быть разные требования по скорости. Поэтому имеет смысл самому 
поставить ВЕСУСЕЕ в тех местах, где Вы можете позволить себе ожидание, а не дожидаться, 
пока автоматика начнет заниматься этим делом в тех местах, где для Вас это не удобно. 

Теперь мы рассмотрим ряд приемов, с помощью которых отыскивают и устраняют 
ошибки в программах. В качестве примера мы вернемся к одной из ранее рассмотренных 
процедур - это процедура СЕТМУМ из Главы 9. Процедура предназначена для ввода 
двузначных чисел и изображения мигающего курсора в экранной позиции с координатами х 
и у. Процедура СЕТМУМ использует в работе процедуру СЕТОЮ, рассмотренную в 
предыдущей главе. 


ТО СЕТОТ@ 
МАКЕ “ОТ@ ВЕАБСНАВ 
МАКЕ “СООЕ АЗСТТ :0Т6 


ТЕ ОВ :С00Е=13 :С00Е=12[$ТОР] 
ТЕ ОВ :С00Е<48 :СОБЕ>57[ВЕТЬОТЕ] 


ЕМО 
Испытание процедуры СЕТО!@ прошло нормально. При этом нажимались различные 
цифровые клавиши и процедура правильно распечатывала значения О!@ и СОПЕ. 


После этого испытания была набрана (так, как показано ниже) процедура СЕТМИМ. 
ТО СЕТМИМ :Х :\ :№ 


ТЕ АМО :СОБЕ=13 МОТ ЕМРТУР :№ 
[ОУТРИТ :№01] 

ТЕ АМО :С00Е=12 МОТ ЕМРТУР :№ 
[МАКЕ “№0 ВОТЕАЗТ :№0] 

ТЕ АМО :С00Е>13 СОУМТ :№0<2 
[МАКЕ “№0 МОНО :№ :0Т6] 
ОУТРУТ бЕТМУМ :Х :У :№ 


ЕМО 
Может быть Вам будет интересно набрать эту процедуру и проследить этапы отладки. 
Первое тестирование процедуры выполнялось командой: 
РАТМТ СЕТМИМ 10 10" 
Все прошло нормально и мигающий вопросительный знак был напечатан в позиции с 
координатами [10 10]. Но при попытке нажать клавишу 3 появилось сообщение об ошибке: 
5 15 поЕ ТВОЕ ох РАПЦСЕ 1п СЕТМОМ 
(5 не имеет значения "ИСТИНА" или "ЛОЖЬ" в процедуре СЕТМИМ). 
Единственно, где в процедуре СЕТМИМ могут участвовать логические значения ТВИУЕ 
или РАЁЗЕ - это три строки [Е... Неясно только, какая же изтрех работает неправильно. 
Для выяснения этого вопроса в процедуру СЕТМУМ были встроены три отладочные 
строки печати после каждой из строк Е. 
РАТМТ “Т1 
РАТМТ “Т2 
РАТМТ “ТЗ 


После этого вновь была нажата клавиша "3" и был получен следующий результат: 
Г1 
Г2 
5 15 поЕ ТВОЕ ог РЕАГСЕ 1п СЕТМОМ 
Теперь стало ясно, что первые две строки |Е проходят нормально и неприятности 
происходят в третьей строке. Три вспомогательные отладочные строки РАМТ были удалены, 


но перед последним ИЕ были поставлены две новые контрольные строки: 
РВАТМТ :СОБЕ 
РАТМТ СОУМТ :№0 
Процедура была запущена еще раз и вновь нажата клавиша "3". Результат был таким: 
51 
0 
5 15 поЕ ТВОЕ ог ЕАПШСЕ 11 СЕТМОМ 
Итак, 51 - это код символа "3", а 0 - это количество символов в переменной МО (в этот 
момент времени). Так откуда же появилось число 5? Для проверки были опять изменены две 
строки контрольной печати. 
РАТМТ :С00Е>13 
РАТМТ СОУМТ :№<2 
Вторая строка дала неожиданный результат: 
< Чоез поЕ 11Ке аз 1проЕ 
Обратим внимание на то, что единственный случай, когда команда "<" может получить 
пустое слово в качестве входного параметра, может быть только тогда, когда вместо СОУМТ 
:МО будет стоять просто :МО. Итак, может быть все дело просто в порядке исполнения 
операций в этой строке? 
Тогда решение будет в использовании круглых скобок так, чтобы сначала выполнялась 


функция СОЧМТ :МО, а потом ее результат сравнивался бы с числом 2. 
ТЕ АМО :С00Е>1З (СОУМТ :№)<2 
[МАКЕ "№0 МОАО :№ [ :01Т@] 


Итак, что же произошло? Сначала почему-то при сравнении пустого слова :МО и числа 
2 прошел результат РАЕЗЕ (видимо, это некорректное сравнение), а потом СОЧМТ РАЕЗЕ дал 
число 5 (по количеству символов в слове РАЁЗЕ), которое конечно не может служить 
корректным вводом для последующей операции АМО. 

Теперь процедура работает нормально? Нажав клавиши "3" и "2", мы получим на 
экране "32" и мигающий знак вопроса. После нажатия ЕМТЕН на экране появится число 32, 
как результат работы команды РЕМТ. Прочие тесты показывают, что прочие клавиши 
игнорируются и более двух цифр ввести в число не удается. 

Но нам надо еще проверить работу РЕТЕТЕ. Запустим процедуру еще раз. Нажмем 
клавишу "2". На экране появится: 

2? 

Теперь нажмем ОЕТЕТЕ и на экране появится: 

2 

Внимательное исследование показало, что левый знак вопроса появился после 
стирания цифры 2 на ее месте, там ему и положено быть, а правый знак вопроса - это тот, 
который остался там с прошлого раза - его не должно бы быть. Прежде чем стирать цифру 2 
этот вопросительный знак должен быть погашен печатью поверх него пробела. Об этом мы 
говорили в предыдущей главе. 

После исправления и этой ошибки нажатие на цифру "2" дает: 

2? 

А стирание - ОЕТЕТЕ дает: 

о 


Отлично! Теперь для проверки нажмем на цифру "3"... и получим новое сообщение об 
ошибке: 

Мог аоезп'Е 11Кке [] аз 1праЕ 1п СЕТМОМ 

(команда М/ОРВР не принимает [] в качестве входного параметра в процедуре СЕТМУМ) 

Локализовать эту ошибку несложно, поскольку в процедуре СЕТМИМ команда М!ОАО 
встречается только один раз. Но сообщение вполне определенно указывает, что в качестве 
параметра команды \М/ОНО оказалось не слово, а пустой список []. Более того, мы 


обнаружили, что проявляется эта ошибка только после использования ОЕТЕТЕ и потому 
может быть не строка, в которой стоит \М/ОАО является причиной ошибки, а та строка, 
которая реализует операцию РЕЕЕТЕ. 

Теперь можно поэкспериментировать: 


МАКЕ "№ 2 
МАКЕ “МО ВИТЕАЗТ :№ 
И попробуйте дать команду 
РАТМТ :№0 
В качестве результата Вы получите пустую строку, что и следовало ожидать. А теперь 
попробуйте так: 
МАКЕ “МО ОВО :№0 3 
и Вы получите сообщение об ошибке такое же, как в предыдущей процедуре. Теперь 
надо вспомнить об еще одной полезной команде вывода, о которой мы до сих пор не 
говорили. Мы рассказывали только о РАМТ и ТУРЕ, а есть еще команда ЗНО\М/. Она 
отличается тем, что показывает списки вместе с наружными скобками - очень полезная 
вещь для проверок. 
НОМ : №0 
дает: 
[] 
Вот и открыта причина необычного поведения процедуры. После применения 


ВОТЕАЗТ к слову, содержащему только один символ, мы получили не пустое слово, а пустой 
список. Это фактически системная ошибка. Не исключено, что в той версии языка, с которой 
работаете Вы, эта ошибка уже ликвидирована, но для нас она послужила наглядным 
примером технологии отладки программ. 

Способ обхода этой ошибки был нами продемонстрирован в предыдущей главе и 
здесь мы не будем повторяться. 

Можно сделать первые выводы. Во-первых, отлаживайте свои процедуры порознь. 
ЛОГО любезно сообщает вам, в какой процедуре произошла ошибка, но первопричина 
может быть в другой процедуре. Например, причиной ошибки может быть неправильно 
переданный параметр, полученный из другой процедуры. Поэтому прежде чем подключать 
одну процедуру к другой, постарайтесь выполнить в ней все возможные проверки. Может 
быть, Вам потребуется написать специальные тестирующие процедуры для тестирования 
отдельных фрагментов будущей сложной структуры. 

Например, если Вы пишете программу для карточной игры, то прежде чем подключать 
к комплексу процедуру, которая будет сдавать карты из колоды в случайном порядке, 
полезно написать тестирующую процедуру, которая будет просто распечатывать значения 
карт из колоды и убедиться, что они действительно идут в случайном порядке. 

Если Вы убедитесь, что в этой процедуре все в порядке, то столкнувшись 
впоследствии с проблемами в вышестоящей процедуре, Вы сможете сказать себе "Здесь я 
все проверил, здесь ошибку можно не искать, будем искать ее во вновь добавленных 
фрагментах". Хотя, конечно полностью исключить вероятность ошибки удается не всегда. 

Другой метод поиска ошибок - трассирование (трейсинг). Он состоит в 
прослеживании шаг за шагом того, что делает программа. Этот метод является наиболее 
важным в тех случаях, когда программа "зависает", т.е. она работает, но не выдает никаких 
результатов на экран. Возникает впечатление, что она "не работает". 

Трейсинг можно делать двумя разными способами. Самый простой - сделать так, 
чтобы в начале каждой процедуры стоял оператор печати имени этой процедуры. Тогда 
даже при "зависании" программы Вы сможете увидеть, в какой процедуре или в каких 
процедурах это "зависание" произошло. Подобный трейсинг делать очень просто, а эффект 
он дает большой. Когда программа отлажена, то лишние строки печати можно убрать. 

Другой прием трейсинга - состоит в прослеживании не процедур, а переменных. Это 
следующая линия атаки, когда Вы в принципе уже установили, в каких процедурах 
происходит сбой. В этом случае Вы в нескольких местах этих процедур ставите печать 
важных переменных (переменной) и по характеру их (ее) изменения выясняете конкретно 
точку, вызывающую зависание. 


Если Вы столкнетесь с тем, что трассирующие операторы ведут печать на экране так 
быстро, что не удается визуально отследить и понять, что делает программа, то в паре с 
операторами печати надо поставить и замедляющие отладочные операторы. Удобным 
таким оператором является ВЕАОСНАВ, который приостановит работу до тех пор, пока Вы 
не нажмете клавищу. 

Вы можете написать и свою трассирующую процедуру, назвав ее например ТВАСЕ. 
При создании такой процедуры Вы можете использовать три новых примитива. 

СОРУПЕР - выполняет новую копию процедуры 

ТЕХТ - конвертирует процедуру в текстовой список ее операторов. С этим списком 
может работать ЛОГО, как со списком, а не как с исполняемой процедурой. 

ОЕНМЕ - выполняет обратное действие - конвертирует список инструкций в 
исполняемую процедуру. 

Теперь мы можем создать трассирующую процедуру ТВАСЕ, которая будет перед тем, 
как исполнять очередную строку отлаживаемой процедуры, распечатывать ее содержимое 
на экране. Вызывается она так: 

ТВАСЕ “РНОС 
А отключается 
ОМТВАСЕ “РВОС 
РВОС - имя отлаживаемой процедуры. Отладочные строки будут печататься только 
тогда, когда исполняется эта процедура РВОС. 
ТО ТВАСЕ :АРАОС 
ТЕ БЕРТМЕОР МОНО ”. :АРАОС 
[РАТМТ ЗЕМТЕМСЕ :АРВОС [АГВЕАБУ ТВАСЕО] $5ТОР] 
ТЕ МОТ ОЕРТМЕОР :АРВОС 
[РАТМТ ЗЕМТЕМСЕ :АРВОС [МОТ А РАОСЕВИВЕ] $ЗТОР] 
СОРУБЕЕ МОВО ”. :АРАВОС :АРВОС 
МАКЕ :АРАОС ТЕХТ :АРВОС 
МАКЕ “.Р [ТУТ РЕТАЗТ ТНТМ№@ :АРАОС ЗЕМТЕМСЕ “РВАТМТ МОАВ СНАА 34 :АРВОС 
ТАЕЗТ ВИТЕТВЗТ ТНТМ№@ :АРКОС 
ОЕРЕТМЕ :АРАОС :.Р 
ЕМО 
ТО ТВЕЗТ :АЁЕТЗТ 
ТЕ ЕМРТУР :АЁТЗТ [5ТОР] МАКЕ ".Р ТРУТ ЕТЗТ “РАТМТ 
ЕТАЗТ :АЁТЬТ :.Р 
".Р ГРУТ ЕТАУТ .АЁТУТ :.Р 
".Р 1РУТ МАКЕ ”. ВЕАОСНАН :.Р 
ТВЕЗТ ВИТЕТА$ЗТ :АЁТЗТ ЕМО ТО УМТВАСЕ :АРВОС 
ТЕ №0 БЕРТМЕОР МОВО “. :АРНОС [5ТОР] 
СОРУБЕЕ :АРНОС МОНО ”. :АРВОС 
ЕКАЗЕ МОНО ”. :АРВОС 
ЕМО 

Может быть Вы, если захотите, расширите эти отладочные процедуры, чтобы они 
давали еще больше информации. Придется поэкспериментировать. Может, правда, 
случиться так, что из-за слишком высокоразвитых отладочных процедур у Вас возникнут 
проблемы с нехваткой оперативной памяти компьютера. Но, к счастью, необходимость в 
таких отладочных процедурах почти не возникает. В реальной практике вполне достаточно 
тех общих принципов отладки, на которые мы уже указали. 


Стюарт Николс. 


ПРИМЕНЕНИЕ АССЕМБЛЕРА ДЛЯ СОЗДАНИЯ 
БЫСТРОРАБОТАЮЩИХ ПРОГРАММ 


Перевод с английского Пашорина В.И. 
Редактирование текста "ИНФОРКОМ". 


Окончание. 
Начало см. с. 9-12, 48-61, 97-103, 139-144, 187-189. 


10. ПЕРЕВОД БЕЙСИК-ПРОГРАММЫ В МАШИННЫЕ КОДЫ 


Если Вы дошли до этой главы с ясным пониманием всего прочитанного, то примите 
поздравления, теперь у Вас не должно быть проблем с программированием в машинных 
кодах. 

В этой же главе мы разберем способ создания игровой программы полностью в 
машинных кодах, используя в качестве примера программу на БЕЙСИКе. Мы полагаем, что, 
Вы уже умеете программировать на этом языке. 

Весьма важно перед созданием любой программы отработать ее алгоритм в виде 
структурной схемы. Это облегчит выполнение перевода ВАЗ!С-программы в машинные 
коды. Мы займемся переводом в машинные коды игровой БЕЙСИК-программы "СВОЗ$5", 
что позволит приобрести навыки для перевода прочих собственных программ. 

Идея игровой программы "САО$З5" состоит в том, чтобы управляя перемещением 
человечка вернуть его домой целым и невредимым, несмотря на обилие всевозможных 
препятствий (Лист._1). 

Главная программа включает в себя инициализацию программных переменных, вывод 
на экран инструкции пользователю и цикл перемещения человечка по экрану с 
определением его текущего положения. Существует две точки выхода из этого цикла: 

1. Если человечек сталкивается с препятствием, то осуществляется переход к 
процедуре НТ и проводится проверка оставшегося числа жизней. Если это число равно 
нулю, то игра заканчивается, в противном случае осуществляется переход к основному 
циклу главной программы. 

2. Выход к процедуре НОМЕ. Здесь производится проверка числа занятых домов, а 
затем увеличивается значение скорости перемещения и добавляется еще один паук- 
людоед. Из процедуры НОМЕ возврат осуществляется к основному циклу главной 
программы. 

БЕЙСИК-программа довольно проста, хотя для задания ЦОС, цвета и звука, а также 
попиксельного перемещения экрана используются фрагменты в машинных кодах, так как на 
БЕЙСИКе это выполнялось бы крайне медленно. Машинные коды вводятся в программу 
через оператор РОКЕ. Хорошо разберитесь с работой БЕЙСИК-программы, потому что мы 
переходим к построчному переводу ее в машинные коды. 


Листинг_1. 
Программа СВО$$ на БЕЙСИКе (с сокращениями). 


Внимание: Символы графики пользователя [Ч0С] в тексте программы взяты в 
квадратные скобки [...]. Они набираются в графическом режиме. 


20 СЕЕАВ 32243: 060 ТО 40 

25 ВЕЕР .01,0-а 

30 РВТМТ О\МЕН 1; РАРЕВ 8; ТМК 8; АТ а,у2; “"[@а]”: ВЕТУВМ 

40 РВТМТ АТ 11,5; “"Р1еазе мал” 

50...140 - запись кодов процедуры ВОГ через цикл ЕОВ...МЕХТ с помощью ВЕАБ...ОБАТА и РОКЕ. 
150 ЕЕТ а=РЕЕК 23675 + 256»РЕЕК 23676 


РОН 6=а ТО а+167: НЕАВ с: 


ВАТА. ... 


Данные по 


РНТМТ АТ 11,3; 


символов И0@-график 
(168 байтов) 
"Бо уои мапт 11$ 


РОКЕ 
конструкции 


ЕХТ с 


гис{10п$?”: АТ 13, 11: 


ЕТУ, 


Е ТЕ 


(п 


0” 


фа туег, 


№]” 


РЕАЗН 1; 


, 


РОКЕ 32469, 201 


РАРЕВ 1; 


0“. 


[ЕТ а$=ТМКЕУ$: ТЕ а$=”" ТНЕМ 60 ТО 290 
ТЕ а$<>”у” ТНЕМ 60 ТО 400 
(1$: РАТМТ АТ 0, 11; "ОВУЕСТ": РАТМТ: РАТМТ "То ди19е а [@] асгоз$ а гоаа ап 
ауо1а1та [АВ] [С0Е] [Е] [еН8$] [тТу]”: 
РАТМТ: РАТМТ "А [0Р] рафго1$ Пе сепфга1 1$1апа.”: 
РАТМТ: РАТМТ “Тпеге аге 4 НОМЕЗ То бе 1111е9. 1.е. дарз 1п Тепсе [МММ] [№ 
РАТМТ: РАТМТ “Опсе а11 4 НОМЕб аге 1111е4 пе зреед м11] 1псгеазе, ап ехфга зртаег 1$ 
ад49е апа тпе НОМЕЗ м111 етрфу” 
РАТМТ АТ 18,9; “Ргез$ апу Кеу” 
РАЦЗЕ 0 
(15: РАТМТ АТ 7, 11; "СОМТАОГ5”: РАТМТ 
РАТМТ ” ! <0>”; РЕАЗН 1 
РАТМТ АТ 11,6; “1”; ЕЕАЗН 0; "2345678 "РАЗН 1; "9"; РЕЕАЗН 0: 
ЕЕАЗН 0 
РАТМТ АТ 18,5; “Ргезз апу Кеу То РЕАУ” 
РАЦЗЕ 0 
ВАТСНТ 1: РАРЕН 5: ВОВОЕН 5: (1$ 
ГЕТ 61=0 
РАТМТ РАРЕВ 4; АТ 10,0; " [ОР] 
ГЕТ 11\е$=9: 1ЕТ зсоге=0: [ЕТ Поте=0: РОКЕ 32425, 201: РОКЕ 32450, 201: 
РАТМТ АТ 0, 0; РАРЕВ 4; “[ММММ]”; РАРЕВ 7; ""; 
РАРЕВ 4; “[ММММММ]”; РАРЕВ 7:” ”; 
РАРЕВ 4: "[МММММММ”; РАРЕН 7;” ”: 
РАРЕН 4; "МММ МММ”; РАРЕВ 7; " 
РАРЕВ 4; “[ММММ]” 
ТЕ ноте<>0 ТНЕМ 60 ТО 660 
РАТМТ РАРЕВ 4; ТМК 5 еее неенныа 
РАТМТ "[ОВВАЗ ОВАА$  ОАНЗВ ОВАЗ 
РАТМТ ТМК 7; | МММ ММ ММ ММ ] 
РАТМТ ТМК 2; ВТ п п 
РАТМТ ТМК 7; "[ММ М ММММ ММ 1] 
РАТМТ ТМК 1; "[ Аб ОВА$ ОНВВАЗ$ ОВААТ” 
РАТМТ ТМК 7; [ММ  ММММММ ММ 1” 
РАТМТ "О Ту т то Те 
РАТМТ РАРЕВ 4; "[ ММММММММММ МММУММУММУММУММММА ” 
РАТМТ РАРЕВ 0; ТМК 7 АТ 11,0; — “[ММММММММММ МММММММММУММУММММА ” 
РАТМТ РАРЕВ 0; ТМК 3 Г АВ Е АВ  С0С0Е ЕЕ 1" 
РАТМТ РАРЕВ 0; ТМК 7 
РАТМТ РАРЕВ 0; ТМК 5 АВ АВ АВ АВ АВ ] 
РАТМТ РАРЕВ 0; 1М№7 == "==ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ 
РАТМТ РАРЕВ 0; ТМК 4 [В АВ АВ АВ А ] 
РАТМТ РАРЕВ 0; ТМК 7 
РАТМТ РАРЕВ 0; ТМК 6 [ (60 АВ АВ ЕЕ ЕБСОС ]" 
РАТМТ РАРЕВ 4; | `[МММММУМУЮУ АНА ЮМ АНА ЮМ АУМ ммм" 
РАТМТ РАРЕВ 4; 
РАТМТ РАРЕВ 1; ТМК 7 "” 5СОВЕ “;АТ 21,11;:" МЕМ ”; РАРЕВ 5; ТМК 0; 
7; “ НГ 5СОВЕ " 
ГЕТ Х1=20: [ЕТ У1 = 16: 1ЕТ х2=х1: [ЕТ у2=у1 
РАТМТ РАРЕВ 8; ТМК 8; АТ х1,у1; “” 
ВАМООМТУЕ 1$Н 32295 
ТЕ ЭСВЕЕМ$ (х2,у2)=” " ТНЕМ 60 ТО 880 
ГЕТ а=х2. РОВ 6=25 ТО 35: 060 $508 25: 60 508 25: МЕХТ Ь 
РОВ а=х2 ТО 20 5ТЕР 2: 60 508 25: @0 58 25: МЕХТ а 
ГЕТ 11\уе$=11уе$-1: РАТМТ АТ 21, 16; 11\е$ 
ГЕТ х2 = 20 
ТЕ 1уез <> 0 ТНЕМ ©@0 ТО 680 
ТЕ №1 >зсоге ТНЕМ @0 ТО 790 
ГЕТ 1 = зсоге: РАТМТ АТ 21,27; 11 
РАТМТ ЕЁГАЗН 1; РАРЕВ 7; АТ 12,0: САМЕ — О\ЕВ 
РАТМТ АТ 14,0; “Апотпег даме? (у)ез (п)о “" 


, 


ТАК 


840 ТЕ ТМКЕУ$ = “п” ТНЕМ ВАМООМТУЕ 158 0 
850 ТЕ ТМКЕУ$ <> “у” ТНЕМ 60 ТО 840 


860 РНТМТ РАРЕН 5; АТ 21,7; " ”: 60 ТО 480 
880 ТЕ х2<>0 ТНЕМ 60 ТО 1050 
890 РНТМТ РАРЕВ 8; ТМК 8; АГх1,у1; ” ”: РАТМТ АТ х2, у2; "[6]" 


900 ВЕЗТОВЕ 920: ЕОВ а=1 ТО 8: ВЕАО Б, с 
910 ВЕЕР 6, с: МЕХТ а 
920 ВАТА .1,11,.1,11, .8, 16, .05,11,.05,16, .05, 11, .05, 16, 1, 20 
930 ГЕТ Помте=Номе+1: [ЕТ зсоге=зсоге+50: РАТМТ АТ 21,7; зсоге 
950 ТЕ поме/4<>ТМТ(потме/4) ТНЕМ 60 ТО 660 
960 ТЕ Поте=4 ТНЕМ РОКЕ 32425, 0 
970 ТЕ Поте=8 ТНЕМ РОКЕ 32450, 0 
980 ТЕ Поте=12 ТНЕМ РОКЕ 32469, 0 
985 ТЕ Поте>36 ТНЕМ @0 ТО 450 
990 [ЕТ а=АМО*30 
1000 ТЕТ а=а+1 
1005 ТЕ а>31 ТНЕМ ЁЕТ а=0 
1010 ТЕ $СВЕЕМ$ (10, а)="”” ТНЕМ 60 ТО 1000 
1020 ТЕ $СВЕЕМ$ (10, а+1) = “” ТНЕМ 60 ТО 1000 
1030 РАТМТ РАРЕВ 4; АТ 10, а: “[ОР]” 

ВЕЗТОВЕ 920: РОН а=1 ТО 8: ВНЕАО 6, с: ВЕЕР Б,с: МЕХТ а 
1040 60 ТО 450 

РАТМТ РАРЕВ 8; ТМК 8; АТ х2, у2; “[6]" 
1060 ТЕТ х1=х2: 1ЕТ у1=у2 
1070 ТЕ ТМКЕУ$ <> "1" ТНЕМ 60 ТО 1100 
1080 ВЕЕР .001, 33 
1090 ТЕТ х2=х2-2: ЁЕЕТ зсоге=зсоге+5: РАТМТ АТ 21,7; зсоге 
1100 ТЕТ у2=у2+(Т№КЕУ$="0” АМО у2<>31)-(Т№МКЕУ$="9" АМО у2<>0) 
1110 60 ТО 670 


СТРОКА 20. Эта строка не нужна в окончательной версии, так как она устанавливает 
верхнюю границу ВАМТОР для БЕЙСИК-программы. 

СТРОКИ 25 и 30. Это две строки подпрограммы, вызываемой в строках 700 и 730. 
Размещение ее в начальных строках необходимо для сокращения времени поиска при 
вызове этой подпрограммы, так как всегда поиск нужных подпрограмм начинается с 
начальных строк БЕЙСИКа. Машинные коды, соответствующие этим двум строкам, 
размещаются в участке памяти, где будет записана процедура НТ. 

СТРОКА 40. Для того, чтобы ввести фрагменты программы в кодах с помощью РОКЕ 
требуется время. Поэтому в БЕЙСИК-программе и введена эта строка с сообщением о 
необходимости немного подождать. В программе, написанной полностью в кодах, давать 
такое сообщение, конечно, нет необходимости 

СТРОКИ 50...140. Это строки для ввода через РОКЕ процедуры “ВО”, 
обеспечивающей попиксельное смещение изображения на экране. Понятно, что для 
программы в машинных кодах эту операцию выполнять также не нужно, так как эти коды 
будут записаны в соответствующие адреса при загрузке программы в память (см. листинг 
процедуры ВО в конце статьи). 

СТРОКИ 150...270. Это первые строки, которые нуждаются в преобразовании для 
перехода к программе в машинных кодах. Здесь осуществляется запись в область ЦОС всех 
графических элементов пользователя, так как этот участок памяти занимает 158 байтов, то и 
в строках ВАТА записаны 168 чисел, определяющих форму ЦОС. 

В дальнейшем, конечно, для задания УЧО@ мы будем непосредственно записывать в 
участок памяти УО@ значение этих 168 байтов. Сначала мы разместим данные, 
характеризующих форму ЧОС, начиная с адреса 24001, а затем перешлем их в участок 
памяти ЧОС@, использовав команду ОВ. При этом в регистровую пару ОЕ записывается 
начальный адрес участка ЧОС из системной переменной 5С7В (83675), а в регистровую 
пару НЁ начальный адрес данных, характеризующих форму УОС. Процедура пересылки, 
написанная в машинных кодах, размещается сразу же за данными 168 байтами. Вызов этой 
процедуры поэтому производится по команде ВРАМРОМИЕ ЦЗ$В 24169. 


ИУбсо-графика. 
БОСЛН 


ВЕРВМОЕ: 12.22 ДР ЕРУЕР28. О 
ОЕРВ 80 40 20 РЕ РЕ ЕЕ 28 10 
ВЕРЕ УИ Е-ТР ЕЕ т15. 08 
РЕРВ ЕЕ РЕ РЕ РЕ РЕ ЕР 40 80 
ОЕРВ 00 Е8 С4 С4 ЕЕ ГЕ 28 10 
РЕРВ 18 18 24 7Е ЗС 5А АЗ 42 
РЕРВ 38 28 92 72 38 38 28 6С 
РЕРВ 01 02 04 7Р 7Е ЕР 14 08 
ОЕРВ РО 48 44 РЕ ЕЕ РЕ 14 08 
РЕРВ 00 12 23 23 7Е 7Е 14 08 
РЕРВ 7Е 7Е 7Е 7Е РЕ ЕЕ 02 01 
РЕРВ РЕ РЕ РЕ РЕ РЕ РР АЗ 10 
РЕРВ 10 29 С7 00 26 00 00 00 
РЕРВ 00 44 РЕ 44 44 ЕР 44 00 
РЕРВ 00 22 55 87 97 АЗ АО 00 
РЕРВ 00 44 АА [1 ЕЭ (5 05 00 
ВЕЕВ 10 ОО ЕЕ. ЗВ ЕО” 07 
РЕРВ 00 00 00 00 ЛЕ ЕЕ РЕ РЕ 
ВЕРВ- 607. 7С. 254-18-72 РЕ. ЕЕ. 76 
РЕРВ 00 00 03 02 ОЕ ЗЕ РЕ 00 
ОЕРВ`` 05, 0096 Р0:Е0:`55РР300 
5Еб9 


24169 10 ГЕ, (5С7В) 
24173 10 НЕ, 5061 
24175 Ш ВС, 00АВ 
24179 ОТВ 

24181 ЧН, 5ЕА2 


СТРОКА 280. Сообщение, выводимое на экран по команде РАМТ в этой строке, можно 
выводить на экран, используя процедуру ОЗУ, находящуюся по адресу 3252 (203СН). 
Машинные коды этой процедуры записаны в участке 5ЕА2... 5ЕАЕ, а сам текст сообщения - в 
участке 5Е77...5ЕА1 (Листинг-4). 


Печать сообщения. 

БЕТУН 

БЕРВ 16 ОВ 03 44 5Е 20 79 6бЕ 
БЕРВ 75 20 77 61 6Е 74 20 69 
БЕРВ 6бЕ 73 74 72 75 63 74 69 
БЕРВ 6Е 6Е 73 ЗЕ 16 00 ОВ 28 
БЕРВ 79 29 65 73 16 ОЕ ОВ 28 
БЕРВ 6бЕ 29 6бЕ 


5ЕА2 

24225 ША, 02 
24228 — САЁЕ 1601Н 
24231 ЕО ПЕ, 5Е77УН 
24234 |1 ВС, 002ВН 
24237  САЁЕ 203СН 


СТРОКИ 290 и 295. Эти строки необходимы, чтобы приостановить выполнение 


программы до тех пор, пока не будет нажата клавиша. Если будет нажата клавиша "у", то на 
экране появится инструкция по правилам игры. Если же будет нажата любая другая 
клавиша, то произойдет переход к адресу 608АН. Машинные коды, соответствующие этим 


строкам, записаны по адресу с 5ЕВОН по 5ЕВЕН (Лист.5) 


Проверка нажатия клавиши "у". 
24240 — НАЁТ 
24241 ВТТ 5, (1\+01) 
24245 В 7, -07 


24247 ША, (5С08Н) 
24250 СР 79 
24252 ЧР №2, б08АН 


СТРОКА 300:1 С1$ - Перевод этой команды в машинные коды мы уже разбирали 
(Листинг-6). 


Очистка экрана. 
БЕВЕН 
24255 [Ш А, 02 
24257  САШ 1601ЛН 
24260 — САШЕ ОО6ВН 
24263 УР 5Е7ТЗН 


СТРОКИ 300:2...350. Для вывода сообщений на экран снова будем использовать 
процедуру вывода на экран последовательности символов ПЗУ, коды которых записаны в 
участок памяти с именем БРАТА. Коды символов первого сообщения находятся в памяти с 
БЕСАН по 5Е72Н, а второго сообщения 5ЕВАН...5РЕЭН. Процедуры же вывода РАМТ ОАТА 
находятся соответственно 5Р7ЗН...5Е8ЗН и 5ЕРАН... 6002Н (Листинг 7). 

В ячейках с б00ЗН по б0О0СН находятся машинные коды, реализующие команду РАЧЗЕ 
0. Не забывайте, что бит 5 переменной 23611 (№+1) должен быть сброшен (ожидание 
нажатия клавиши). 


Печать сообщений, пауза. 

БЕСАН 

ВЕРВ 16 00 ОВ 4Е 42 4А 45 43 
БЕРВ 54 00 00 54 6Е 20 67 75 
ВЕРВ 69 64 65 20 61 20 96 20 
ВЕРВ 61 63 72 6Е 73 73 20 61 
ВЕРВ 20 72 6Е 61 64 20 61 6Е 
ОРЕРВ 64 20 61 72 69 76 65 72 
РЕРВ 2С 61 76 6Е 69 64 69 6Е 
РЕРВ 67 20 90 91 20 92 93 94 
ВЕРВ 20 95 20 АО АТ А1 А? 20 
ОРЕРВ АЗ А4 00 00 41 20 9Е 9Е 
ВЕРВ 20 70 61 74 72 6Е 6С 73 
ОРЕРВ 20 74 68 65 20 63 65 6Е 
ВЕРВ 74 72 61 6С 20 69 73 6С 
ВЕРВ 61 6Е 64 ЕЕ 00 00 54 68 
ВЕРВ 65 72 65 20 61 72 65 20 
ВЕРВ 34 20 48 42: 40 45 53 20 
ВЕРВ 74 6Е 20 62 65 20 66 69 
ОРЕРВ 6С 6С 65 64 2Е 20 69 2Е 
ВЕРВ 65 2Е 20 67 61 70 73 20 
ОРЕРВ 69 6Е 20 65 65 6Е 63 65 
РЕРВ 20 90 90 90 20 90 90 90 
ОБЕРВ 00 


ЭР7ЗН 

24435 1 А, 02 
24437  САЁШЕ 1601Н 
24440 — 10 ОЕ, 5ЕСАН 
24443 |) ВС, ООАЭН 
24446 — САЁЕ 203СН 
24449 ЧР 5ЕРАН 


ЭРВАН 

ОЕРВ 00 4Е 6Е 63 65 20 61 6С 
ОЕРВ 6С 20 34 20 48 4Е 40 45 
ВЕЕВ:` 53.20; 61 72-65.20:606769 
ОЕРВ 6С 6С 65 64 20 74 68 65 
ОЕЕВ 20 73 70 65 65 64 20 77 


РЕРВ 59 6С 6С 20 69 6Е 63 72 
РЕРВ 65 61 73 65 20 20 61 6бЕ 
РЕРВ 20 65 78 74 72 61 20 73 
РЕРВ 70 69 64 65 72 20 59 73 
РЕРВ 20 61 64 64 65 64 20 61 
РЕРВ бЕ 64 20 74 68 65 20 48 
РЕЕРВ 4Е 40 45 53 20 77 69 6С 
РЕРВ 6С 65 60 70 74 79 16 12 
РЕРВ 09 50 72 65 73 73 20 61 


РЕРВ` ОЕ: 29+ 20-68659 


ЭРЕАН 

24570 1 ПЕ, 5Е84Н 
24573 10 ВС, 0076Н 
24576 — САЁШЕ 203СН 
24579 — ВЕФ 5, (Т\+01) 
24583  НАЁЕТ 

24584 — ВТ 5, (Т\+01) 
24568 ЧН 1, -07 


СТРОКА 370: 1 СЕ$. В участке памяти с 600Е по 6012 записаны машинные коды 


процедуры очистки экрана. Здесь применяется другой способ, основанный на применении 
процедуры ПЗУ ОЕ4АН, которая очищает столько строк экрана (считая снизу), сколько 
установлено в регистре В(Листинг 8). 


600 


Очистка экрана. 


ЕН 


24590 10 В, 18Н 
2459Е  САЁЕ 0Е44Н 
24595 ЧР 6076Н 


СТРОКИ 370:2...390. Коды символов, выводимых на экран, записаны в участке 


6бО16НнН... 6075Н, а сама же процедура печати находится в адресах - 6076нН... 607ЕН. Здесь 
опять же имеются машинные коды, реализующие команду РАЦЗЕ 0 (Листинг _9). 


Печать сообщений, пауза. 


6015Н 

РЕРВ 16 07 ОВ 43 4Е 4Е 54 52 
РЕРВ 4Е 4С 53 00 00 20 20 20 
ВЕЕВ::20:.20:20..5Е 20.2020 20 
ОЕРВ 20 20 20 20 20 20 20 20 
ОЕРВ 20 20 20 ЗС 30 ЗЕ 12 01 
РЕРВ 16 ОВ 06 31 12 00 20 32 
РЕРВ 20 33 20 34 20 35 20 36 
РЕРВ 20 37 20 38 30 12 01 39 
ОЕЕВ 12 00 20 12 01 30 12 00 
РЕРВ: 16: 12. 0550726523 19 
РЕЕРВ.20. 61 6Е 79 20'.68:*65.._ 79 
РЕРВ 20 74 6Е 20 50 4С 41 59 
6076Н 


24694 — 10) ПЕ, 6016Н 
24897 1 ВС, 0060Н 
24700 — САЁЕ 203СН 
24703  ВЕЗ 5, (Т\+01) 
24707  НАЁТ 

24708* ВЕТ 5 ТУ0Т 


247 


12, ‘чВ-2, 507 


Строка 400. В первой главе обсуждался порядок перевода всех операторов этой 


строки в машинные коды. Вызов процедуры СЕ$ здесь необходим для установки на экране 
соответствующих атрибутов, как и в БЕЙСИК-программе. Машинные коды записаны в 


участке 608АН...609ВН. 


Установка атрибутов 


б08АН 
24714 
241716 
24719 
24721 
24724 
24725 


ГО А, 05 
САЕЕ 2298ВН 
ГО А, 6 8Н 


ЕО (5080), А 


ГО А, 02 
САЕЕ 1601Н 


СТРОКА 410. В этой строке переменной 1, являющейся показателем достигнутого 
присваивается нулевое начальное значение. Полагая, что значение этой 
переменной не может быть больше 65535, выделим в буфере принтера 2 байта для хранения 
значения этой переменной. Соответствующие этому оператору машинные коды записаны в 
участке памяти б09СнН ...6бОАЛН. 


уровня, 


Инициализация переменной 1". 


боэсн 
24732 
24735 
241738 


ЕО НЕ, 0000 


ЕО (5В00Н), НЕ 


УВ +25Н 


СТРОКА 420. Коды символов сообщения, выводимого на экран, записаны в адресах 
бОА4Н...60С8Н. Процедура печати - б0СЭН...6006Н. 


Печать строки. 


бОА4Н 

ОЕРВ 11 04 16 ОА 00 20 20 20 
ОЕЕВ 20 20 20 20 20 20 20 20 
ОЕРВ:`20;. 20>20; 20.-9Е`9Е`20` 20 
ОЕЕВ 20 20 20 20 20 20 20 20 
ВЕЕВ:. 20.20 -20-20-.20 

босэн 

24717 ША, 02 

24779  САЁЕ 1601Н 

24182 1 ПЕ, б0А4Н 

241785 Ш ВС, 0025Н 

24788 — САЁЕ 203СН 


СТРОКА 430. В этой строке определяются исходные значения количества "жизней", 
занятых домов и достигнутого уровня. Эти значения также хранятся в буфере принтера по 
следующим адресам: 


количество "жизней 


Ут 


- 5802 


достигнутый уровень - 5803/4 
количество домов 
Машинные коды, соответствующие этой строке, см. 6007Н...60ЕБЗН. 


- 5805 


Инициализация переменных. 


6007Н 
24191 
24193 
24196 
24199 
24802 
24803 


ГО А, 09 
ЕО(5В02Н) ‚А 
ЕО НЕ, 0000 


ЕО (5В0ЗН), НЕ 


ХОН А 


ЕО (5805), А 


СТРОКА 440. Операторы этой строки обнуляют скорость перемещения и 
устанавливают команды 


ВЕТ в соответствующих ячейках подпрограммы 


НМЕ ВОШ.. 


Машинные коды см. бОЕбнН...6бОЕРЗН. 


Коррекция процедуры ВОН. 
бОЕбН 
24806 | А, СЭН 
24808 10 (7ЕАЭН), А 
24811 10 (7ЕСЗН), А 
24814 10 (7ЕБЗН), А 
24817 ЧР 6129Н 


СТРОКА 450. Коды символов этой строки и процедура печати: 


Печать строки. 


бОЕ4Н 

РЕРВ 16 00 00 11 04 90 90 90 
РЕРВ 90 11 07 20 11 04 90 90 
РЕРВ. 90:90-90:90. 117072011 
РЕРВ 04 90 90 90 90 90 90 90 
РЕРВ 11 07 20 11 04 90 90 90 
ВЕЕВ: 90.90. 90.90.11 97720: 11 
РЕРВ 04 90 90 90 90 

6129Н 

24873 ША, 

24875  САЁЕ 1601Н 

24878 — 10 ПЕ, б0Е4Н 

24881 1 ВС, 0035 

24884 — САЁЕ 203СН 


СТРОКА 455. В этой строке проверяется количество домов и, если оно равно нулю, то 
осуществляется перевод к строке 660. Для реализации этой строки в машинных кодах 
необходимо извлечь содержимое ячейки 5ВО5Н, где записано количество домов, записать 
это значение в регистр А и использовать для проверки на нулевое значение команду АМР А. 
Если флаг нуля (ЕВРО) после этой операции не будет установлен, то осуществляется 
переход к процедуре РЕМТ О!ЗРЕАУ. Если же этот флаг не включен, то эта процедура 
пропускается и начинается игра. Машинные коды, соответствующие этой строке, записаны 
в ячейках 6137Н...6140Н. 


Проверка переменной Поте. 


6137Н 
24687 ША, (5В05Н) 
24890  АМО А 


24891 ЧР №, 641ЕН 
24894 ЧР 6302Н 


СТРОКИ 460...640. Машинные коды, соответствующие этим строкам, занимают 
большой объем памяти. Коды всех символов сообщений этих строк записаны в участке 
памяти 6141Н... 6бЗО1Н, а процедура печати - 6З02Н...6ЗОЕН. 


Инициализация экрана. 
6141Н 


ОЕРВ 11 04 10 05 8С 80 8С 8С ОЕЕВ 9С 9С 20 20 20 20 20 9С ОЕРВ 9С 9С 20 20 20 20 10 01 
РЕВ 8С 8С 80 8С 8С 8С 8С 8С ОЕЕВ 9С 9С 20 20 20 20 20 20 ОЕЕВ А1 А? 20 20 20 20 20 00 
РЕРВ 8С 8С 80 8С 8С 8С 8С 8С ОЕЕВ 9С 10 02 20 20 АЗ А4 20 ОЕЕВ А1 А1 А2 20 20 20 20 20 
РЕРВ 8С 8С 80 8С 11 05 10 00 ОЕЕВ 20 20 20 20 АЗ А4 20 20 ОЕЕВ 20 АО АТ А1 А1 А1 АЕ 20 
ОЕРВ 20 АО А1 АТ А2 20 20 20 ОЕЕВ 20 20 20 АЗ А4 20 20 20 ОЕЕВ 20 20 20 20 АО А1 А1 А1 
РЕРВ АО А1 А1 А1 А2 20 20 20 ОЕЕВ 20 АЗ А4 20 20 20 20 20 ОЕЕВ 10 07 20 20 20 90 9С 20 
РЕРВ 20 АО А1 А1 АЗ 20 20 20 ОЕРВ 20 АЗ А4 20 10 07 90 9С ОЕРВ 20 9С 9С 9С 9С 90 20 20 
РЕРВ АО А1 А1 А2 20 20 20 20 ОЕРВ 20 20 20 9С 20 20 20 20 ОЕРВ 20 9С 9С 20 ЕЙ 20 20 20 
ОЕЕВ 10 07 20 20 20 90 9С 9С ОЕРВ 20 20 9С 9С 9С 9С 95 20 ОЕРВ 20 9С 9С 9С 20 20 20 80 
ВЕРВ`: 20, 20`20 20:20 96 90.96 ОЕЕВ: 20, 20: 20.20.2020; 20-906 ОЕЕВ 20 20 10 00 А4 20 20 20 


РЕРВ 
РЕРВ 
РЕРВ 
ОЕРВ 
РЕРВ 
РЕРВ 
РЕРВ 
ОЕРВ 
РЕРВ 
РЕРВ 
РЕРВ 
РЕРВ 
РЕРВ 
РЕРВ 
РЕРВ 
ОЕРВ 
РЕРВ 


6302Н 
25554 
Рон б 
25559 
25562 
25565 


20 20 20 20 20 20 АЗ 
20 20 20 20 20 АЗ Ад 
20 20 20 20 20 АЗ Ад 
20 20 20 АЗ 11 04 90 
90 90 90 90 90 90 90 
90 90 90 90 90 90 90 
90.:90 90.9090: 99 
УВ 5Эр: 90.90.9049: 11 
10 07 16 ОВ 00 90 90 
90 90 90 90 90 90 90 
90 90 90 90 90 90 90 
ЭВ. 9.90: 90.90:-90 96 
90 90 90 90 90 10 03 
909-91 :20.:99520' 2090 
20 20 92 93 92 93 94 
95.20: 95.20'-20::20. 92 
94 20 20 20 20 20 20 

ГВ А, 02 

САЕЕ 1601Н 

ЕО БЕ, 6141Н 

ЕО ВС, 0291Н 

САЕЕ 203СН 


СТРОКА 650. Для реализации этой строки в машинных кодах необходимо 
записанное в ячейке 5В02Н. Для этого оно 


мю№ 
о © ^ 


ее Ж<Д <<< <Д <<) 
<> с) С С С <> С С С С 


ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 


07 20 20 20 20 20 30 20 ОЕЕВ 07 20 20 20 20 20 20 
20 20 20 20 20 20 20 20 ОЕЕВ 20 20 20 20 20 20 20 
20 20 20 20 20 20 20 20 ВЕЕВ:, 20*:20..20.20203ЕБ.-20 
20 20 20 20 20 20 20 20 ВЕРЕ; .20..20`20.20 2020 
20 10 05 20 90 92 20 20 ОЕЕВ 20 10 06 ЭА ЭВ 20 20 
20 20 90 91 20 20 20 ЕЙ ОЕЕВ 97 98 20 20 97 98 20 
90.91520..20: 90. 3120.20 РЕВ. бро ао 20:99 ЭА 
20:20: 20:20:20: 2090591 ОЕЕВ ЭА ЭВ 20 20 20 95 20 
20 20 20 10 07 30 39 ЗВ ОЕЕВ 20 20 99 11 04 10 00 
30 30 30 30 ЗВ 35 39 39 ОЕЕВ 90 90 90 90 90 90 9 
30 30 30 30 ЗВ 35 39 39 ОЕЕВ 90 90 90 90 90 90 9 
30 30 30 30 ЗВ 35 39 ЗВ ОЕЕВ 90 90 90 90 90 90 9 
30 30 30 30 30 10 04 98 ВЕЕВ: 90: 9В: 90. 95.9690. ЭВ 
20 20 20 20 20 97 98 20 ОЕРВ 04 20 20 20 20 20 20 
20.20.97 `98.:20'.20;:20..20 ОЕРВ 20 20 20 20 20 20 20 
20 20 20 97 98 20 20 20 ОЕРВ 20 20 20 20 20 20 20 
20 20 20 20 20 20 97 10 ОЕРВ 20 20 20 20 20 20 20 


предварительно преобразовать число, 


извлекается из этой ячейки, суммируется с числом 48 и результат записывается в ячейку 
6402. Машинные коды этой операции 6ЗЕОН...6ЗЕЭН. Коды символов сообщения для вывода 
на экран записаны в 6ЗЕАН...640ЕН, а процедура печати - 6410Н...641ЕН. 


6ЗЕОН 
25568 
25571 
25573 
25576 


бЗЕАН 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 
ОЕРВ 


6410Н 
25616 
25618 
25621 
25624 
25627 


Инициализация строки результата 


ГОА, (5802Н) 
АБВ А, 30 

ЕО (6401Н), А 
УВ +26 


11 01 10 07 20 53 43 4Е 
52 45 20 16 15 ОВ 20 40 
45 4Е 20 11 05 10 00 39 
11 01 10 07 20 48 49 20 


53 43 4Е 52 45 20 


ГО А, 02 

САЕЕ 1601Н 
ЕО БЕ, 6ЗЕТН 
ЕО ВС, 0026Н 
САЕЕ 203СН 


СТРОКА 660. В этой строке определяются исходные координаты положения человечка 
на экране х1 и У1, а также координаты его нового положения х2 и у2. Для программы в 


машинных кодах эти координаты хранятся также в буфере принтера: 


х1 - 5БВОбН х2- 5ВО8Н 

у1-5В07Н у2- 5В0ЭН 

Для записи в буфер принтера координат лучше использовать шестнадцатиричную 
систему счисления, тогда процедура записи будет иметь следующий вид: 


Инициализация координат героя. 


род ооо фФа„Яюооо м 


641ЕН 

25630 10 НЕ, 1014Н 
25633 1 (5ВО6Н), НЕ 
25636 1 (5ВО8Н), НЕ 


Из этого примера понятно, что использовать десятичную систему счисления для 
записи координат в регистровую пару НЁ не удобно, т.к. трудно будет представить 
положение объекта на экране. 

СТРОКА 670. Поскольку здесь необходимо выводить на экран только один символ, то 
лучше использовать команду В$Т 10Н. 


Печать героя. 


6427Н 

25639 1 А, 02 
25641  САЕЕ 1601Н 
25644 10 А, 1Н 
25646 — В5Т 10Н 
25647 1 А, 08 
25649  В5Т 10Н 
25650 ПШ А, 10Н 
25652 ВОТ 10Н 
25653 ПШ А, 08 
25655 ВОТ 10Н 
25656 |1 А, 16Н 
25658 — В5Т 10Н 
25659 ША, (5ВО6Н) 
25662 ВОТ 10Н 
25663 ША, (5В07Н) 
25666 — В5Т 10Н 
25667 10 А, 20Н 
25669  В5Т 10Н 


СТРОКА 680. В этой строке производится вызов процедуры НОШ-, записанной в 
машинных кодах с адреса 7Е?27Н. Код, соответствующий этой строке: 


Вызов процедуры РОЦ.. 
6446Н 
25670  САЕЁЕ 7Е27Н 


СТРОКА 690. в этой строке проверяется состояние символьной ячейки с 
координатами х2, у2. Для реализации этой строки в машинных кодах будем использовать 
процедуру ЗСВЕЕМФ$, описанную в главе 8, передающую значение параметров исследуемой 
ячейки на стек калькулятора и затем в регистры А,В,С,О,Е. Для определения состояния 
ячейки используем: 

ЕВ А, (0Е) 
СР 20Н 

Помните, что для продолжения программы, после использования калькуляторного 
стека, необходимо очистить рабочий участок. Если в исследуемой ячейке не пробел, то 
осуществляется переход к процедуре НП, которая начинается с адреса 6548Н. В БЕЙСИК- 
программе соответственно переход к строке 880. Машинные коды, соответствующие этой 
строке записаны в участке 6449Н...6450Н. 


Проверка местоположения героя. 
6449Н 
25673 1 ВС, (5В08Н) 
25677  САЁШЕ 2538Н 
25680 — САШЕ 2ВЕЛН 
25683 ША, (ОЕ) 
25684 — РИЗН АЕ 
25685 — САШЕ 16ВЕнН 


25688  РОР АР 
25689 СР 20Н 
25691 УР №, 6548 Н 


СТРОКА 880. В этой строке проверяется: достиг ли человечек вершины экрана, т.е. 
дошел ли он до дома. В машинных кодах для этого записываем значение координаты х2 в 
регистр А: 

ЕО А, (5808) 

и сравниваем это значение с нулем. Если это значение равно нулю, то выполняется 
переход к процедуре НОМЕ, которая начинается с адреса ббАбН. В Бейсик-программе 
соответственно осуществляется переход к строке 1050. Машинные коды, соответствующие 
этой строке 645ЕН...6465Н. 


Проверка достижения "дома" 


645Е 
25694 [Ш А, (5В08Н) 
25697 СР 00 


25699 ФР 1, ббАбнН 

СТРОКА 1050. Здесь также для вывода на экран одного символа в позицию с 
координатами х2, у2 лучше использовать команду ВЗТ ТОН, как и в строке 670. Машинные 
коды - 6466Н... 6484Н. 


Печать героя в новой координате 


6466Н 

25702 ША, 02 
25704 — САЕЕ 1601Н 
25707 ША, 11 
25709  В5Т 10Н 
25710 ША, 08 
25712  В5Т 10Н 
25713 ША, 10Н 
25715 ВОТ 10Н 
25716 1 А, 08 
25718 — В5Т 10Н 
29719. 19 А ТОН 
25721  В5Т 10Н 
25722 ША, (5В08Н) 
25725 ВОТ 10Н 
25726 ША, (5ВО9Н) 
25729  В5Т 10Н 
25730 ПШ А, 96Н 
25733  В5Т 10Н 


СТРОКА 1060. Для реализации этой строки в машинных кодах достаточно переписать 
значение ячеек 5808 и 5В09 в ячейки 5В06 и 5807 соответственно. 


Запоминание новой координаты. 
6485Н 
25733 ЕО НЕ, (5В08Н) 
25736 ЕВ (5В06Н), НЕ 


СТРОКА 1070. Чтобы улучшить работу програлмы в машинных кодах для проверки 
состояния клавиатуры и контроля нажатия клавиши лучше использовать не системную 
переменную ГАЗТ КЕУ, а непосредственно команду М А,(С). Причем, чтобы проверить 
нажата ли клавиша "1", достаточно проверить состояние только клавиш "1"..."5" так, как это 
описано в главе 5. Машинные коды - 648 ВН...649ЗН. 


Проверка нажатия клавиши "1". 
648ВН 


25739 1 ВС, Е7ТЕН 
25742 ТМА, (С) 
25744  ВТТ О, А 
25746 ЗН №, +1С 


СТРОКА 1080. Поскольку длительность и тональность звукового сигнала 
принципиального значения не имеют, то для реализации этой строки в машинных кодах 
достаточно только вызвать процедуру ВЕЕР из ПЗУ - САЦ ОЗВЗН. 


Генерация звукового сигнала. 
6494Н 
25748 ЕО НЕ, 0032Н 
25751 ЕО ОЕ, 0005Н 
25754  САЁЕ ОЗВБН 


СТРОКА 1090. Для записи этой строки в машинных кодах необходимо извлечь 
содержимое ячейки 5В08 и вычесть из этого значения число 2, а результат вновь записать в 
эту же ячейку. Значение текущего счета, записанное в ячейках 5В03/4, увеличивается на 5 и 
вновь записывается в эти ячейки. Машинные коды этих операций - 6490Н...64АЕН. Для 
вывода на экран текущего значения счета используются процедуры ЭТАСК ВС и РАМТ 
УАЕУЕ ОМ $ЗТАСК, но первоначально определяются параметры РАМТ АТ. Машинные коды - 
64В1Н...64С8Н. 


Коррекция счета ($соге). 


64902Н 

25757 ША, (5В08Н) 
25760 ПЕС А 

25761  ОЕС А 

25763 10 (5В08Н), А 
25765 ШО НЕ, (5ВОЗН) 
25768 — ТМС НЕ 

25769 — ТМС НЕ 

25770 ТМС НЕ 

25771  Т№МС НЕ 

25772  ТМС НЕ 

25773 ШО (5803ЗН), НЁ 
25776 МОР 

25777 ША, 02 

25779  САЕЕ 1601Н 
25782 ША, 16Н 
25785 ША, 15Н 
25787  В5Т 1ОН 

25788 ША, 07 

25790 Вот 1ОН 

25791 10 ВС, (5ВОЗН) 


25795  САЁЕЁ 202ВН 
25798 — САЁЕ 20ЕЗН 


СТРОКА 1100. Опять же, для чтения состояния клавиатуры и установки значения у2 
используем команду М А, (С). В программе в машинных кодах добавлена процедура, которой 
нет в БЕЙСИК программе. В участке памяти 64ЕЗН...64-4Н записаны машинные коды, 
которые составляют процедуру проверки нажатия клавиши "6". Если эта клавиша нажата, то 
осуществляется выход из программы. На этом главный цикл программы заканчивается. 

Если теперь Вы запустите эту программу, то перемещение человечка по экрану будет 
настолько быстрым, что Вы не будете его замечать. Поэтому необходимо в главный цикл 
программы в машинных кодах включить замедляющую процедуру. 

Этот же эффект можно получить, если в главный цикл включить дополнительно 
процедуру музыкального сопровождения перемещения. Машинные коды этой процедуры 
б4Е5Н...650ВН. Завершающей командой главного цикла является команда УР 6427, 


обеспечивающая переход на начало главного цикла. В БЕЙСИК-программе это выполняется 
переходом к строке 670. 


Опрос клавиатуры, музыка. 


64СЭН 

25801 — |1 ВС, ЕРЕЕН 
25804 ТМА, (С) 
25806 — ВТТО,А 
25808 ФН №, +ОЕН 
25810 ША, (5В09Н) 
25813. ОРЛЕ 

25815. ЗН 0,+01 
25817 МСА 

25818 10 (5В09Н), А 
25831 ЧР 64Р5Н 
25834  ВТТТ,А 
25836 ЭН №, 02 
25838 ША, (5В09Н) 
25831 СР 00 

25833 ФН 1, +01 
25835  ОЕС А 

25836 10 (5В09Н), А 
25839 ЧР 64Р5Н 
64ЕЗН 

25843 ВТА, А 
25844 ВЕТ 7 

64Е5Н 


25845 ПШ В, ОА 
25847 10 ПЕ, 0078Н 
25850 1 НЕ, 0001Н 
25853  РИЗН НЕ 
25854  РИЗН ОЕ 
29895: _ РОЗН ВЫ 
25856 — САШЕ 0385 
25859  РОР ВС 
25860  РОР ОЕ 
25861  РОР НЕЁ 


25883  ТМСА 
25864 ОТ, А 
25865 МОР 


25866  ПУМИ -0Е 
25868 ЧР 6427 


Процедура НТ 

СТРОКА 700. В этой строке вводится новая переменная а = х2. Для того, чтобы 
сохранить значение этой переменной, будем использовать свободную ячейку ЭСВОН из 
области системных переменных. Переменная 6 цикла ЕОВ/МЕХТ записывается в регистр В: 

ЕО В, 19Н (250) 

и в ячейку 5СВЛН для использования в следующей процедуре. Машинные коды, 
соответствующие этой строке - 6548Н...6561Н. Вызов процедуры, соответствующей 
БЕЙСИК-оператору СО ЗОВ 35, выполняется командой САЦ. 650ЕН. 

Непосредственно связаны с этой строкой строки 25 и 30 и мы рассмотрим их здесь 
совместно в едином блоке. 

СТРОКА 25. Для перевода этой строки в машинные коды необходимо использовать 
калькуляторный стек, куда записывается число 0.1 и результат операции Б-а. Вычитание 
проще выполнить, используя последовательность команд: 

ЕО НЕ, (5СВОН) 
[0 А,Н 
ИВ Е 
Затем, используя процедуру 2028Н переписываем значение со стека в регистр А и 


вызываем процедуру ВЕЕР - САЁЕ ОЗЕВН. Машинные коды, соответствующие этой строке, 
650Е...6521. 

СТРОКА 30. Для вывода символа на экран соответственно в позицию а,72 используем 
команды 10 Алпи АЗТ 10Н. Машинные коды - 6522Н...6547Н. 


Расчет Б-а, генерация звука. 
б50ЕН 
25871 ВУТ 28Н ; Калькулятор. 
ОЕРЕВ 34 ЕА 23 07 ОА 30 38 
25679 1 НЕ, (5СВОН) 
25882 ШША,Н 
25883 ЗВ Е 
25884 — САШЁ 2028ВН 
25887  САЁШЕ ОЗЕВН 


Печать "героя" 


6522Н 

25890 ША, 02 
25892  САЁЕ 1601Н 
25895 ША, 15Н 
25897  ВоТ 10Н 
25898 ША, 01 
25900 — В5Т 10Н 
25901 ША, 11Н 
25903  В5Т 10Н 
25904 1 А, 08 
25906 — В5Т 10Н 
25907 ША, 10Н 
25909  В5Т 10Н 
25910 1 А, 68 
25912  В5Т 10Н 
25913 ША, 16Н 
25915 ВОТ 10Н 
25916 ША, (5СВОН) 
25919  В5Т 10Н 
25920 ША, (5В09Н) 
25923  В5Т 10Н 
25924 1 А, 96Н 
25925  В5Т 10Н 
и 


млм 


Создание переменной "а". 
6548Н 
25928 ЕВ А, (5ВО8Н) 
25931 ЕО (5СВОН), А 
25934 ЕО В, ТЭН 
25936 ША, В 
25937  РИЗН ВС 
25938 [0 (5СВ1), А 
25941 САЕЕ 650ЕН 
25944 САБ 650ЕН 
25947  РОР ВС 


25048 ТС В 
25949 ША, В 
25950 СР 23 


2995: а МИ, 11 


СТРОКА 730. Поскольку переменная цикла этой строки у нас хранится в ячейке 5СВОН, 
то организовать цикл в машинных кодах не представляется особенно трудным. Для этого 
необходимо извлекать это значение из этой ячейки, увеличивать его на 2 при каждом 
проходе и сравнивать с числом 14Н (200). Машинные коды - 6562Н... ... 6573Н 


Цикл по "а". 
6562Н 
25954 — САЁШЕ 650ЕН 
25957  САЁШЁ 650ЕН 
25960 ША, (5СВОН) 
25963 1МСА 
25964  ТМСА 
25965 10 (5СВОН), А 
25968 СР 14Н 
25970 А №, -12Н 


СТРОКА 740. В этой строке производится подсчет числа "жизней". Для реализации 
этой строки в машинных кодах необходимо извлекать значение из ячейки 5ВО2Н, уменьшать 
его на 1 и результат опять записывать в эту ячейку. Для вывода на экран этого значения 
необходимо первоначально установить необходимые параметры РАМТ АТ, а затем к числу, 
записанному в ячейке 5ВО2Н добавить 30Н(480) для перевода его в код АЗСИ. Машинные 
коды 6574Н...658ЕН. 


Уп 


Коррекция числа "жизней". 


6574Н 

25972 ША, (5В02Н) 
25975  ОЕС А 

25976 10 (5802Н), А 
25979. [19 А;02 
25981  САЕЕ 1601Н 
25984 1 А, 16Н 
25986 — В5Т 10Н 
25987 1 А, 16Н 
25989  В5Т 10Н 
25990 ША, 10Н 
25992 ВТ 10Н 
25993 ША, (5В02Н) 
25996 — АОО ЗОН 
25998  В5Т 10Н 


СТРОКА 750. В этой строке переписывается значение переменной х2 так, чтобы х2 = 
14Н (200). Машинные коды 658ЕН...659ЗН. 


Коррекция переменной х2. 
б58ЕН 
25999 [В А, 14Н 
26001 ЕО (5802Н), А 


СТРОКА 760. В этой строке выполняется условный переход. Если число "жизней" не 
равно 0, то выполняется возврат к началу главного цикла - строке 680. Для программы в 
машинных кодах это переход по адресу 6446. Машинные коды, соответствующие этой 
строке - 6594Н...659ЭАН. 


Проверка на конец "жизней". 


6594Н 
26004 ША, (5В02Н) 
25007  АМО А 


26008 — УР №2, 5446Н 


Процедура ЕМО САМЕ 
СТРОКА 770. В этой строке сравнивается достигнутый счет в этой игре с лучшим 
результатом прошлых игр. Если новый результат выше, то осуществляется переход к строке 


790. Эту операцию легко выполнить для программы в машинных кодах, используя команду 
5ВС НЕ, ОЕ 


и проверяя значение флага переноса (СААВУ). Если флаг будет включен после 


команды $ЗВС, то выполняется переход по адресу 6611Н. Машинные коды для этой строки - 
659ВН...65АбН. 


659ВН 
26011 
26012 
26015 
26019 
25021 


Проверка на новый рекорд. 


ХОН А 

ЕО НЕ, (5ВОЗН) 
ЕО ОЕ, (5000Н) 
ВС НЕ, ВЕ 

УВ С, +6АН 


СТРОКА 780. В этой строке устанавливается новое значение лучшего результата и это 


значение выводится на экран. В машинных кодах для выполнения этой операции достаточно 


переп 


исать значения из ячеек 5В03/4 в ячейки 5800/1. Для вывода на экран используем 


процедуры ЭТАСК УАШУЕ1М ВС иРЕМТ ТОР \АШУЕ ОМ САЕСУТАТОВН $ТАСК, предварительно 
установив параметры РАМТ АТ. Машинные коды 65АТН...66С2Н. 


65А7Н 
26023 
25026 
26029 
26030 
26031 
26034 
26036 
25039 
26041 
26042 
26044 
26045 
25047 
26046 
26051 


Коррекция рекорда. 


р НЕ, (5ВОЗН) 
О (5В00Н), НЕ 
ОУН НЕ 

ОР ВС 

АЁЕ 202ВН 


| 
| 
Р 
Р 
С 
Г 
С 
ГО А, 16 Н 
В 
В 
В 
| 
В 
С 
Ч 


Е 20ЕЗН 
+ 


СТРОКИ 790 и 800. В этих строках печатаются сообщения. Коды символов находятся в 


65С5Н...6610Н, а сама процедура печати - 6611Н...6619Н. 


Печать сообщений. 


ЕО БЕ, 65С5Н 
ЕО ВС, 004СН 
САЕЕ 203СН 


СТРОКИ 840...850. В машинных кодах, соответствующих этим строкам, для проверки 


нажатой клавиши используется системная переменная ГАЗТ КЕ\У, а после проверки 


осуществляется соответствующий переход. Если ни клавиша у, ни клавиша п 


не будут 


нажаты, то осуществляется возврат к циклу ожидания нажатия клавиш. 


Проверка нажатой клавиши. 


661АН 

26138 — НАЁЕТ 

26139. ВТ 5; (1401) 
26143 ЧН 1, -07 
36145 — ВЕФ 5, (Т\+01) 
26149 ША, (5СОВН) 
26152 СР бЕН 

26154 — ФН №, +03 
26156  САЁЕ 0000 
26159 СР 79Н 

26161 ФН №, -19 


СТРОКА 860. Перед тем, как выполнится переход к началу главного цикла по команде 
УР б0ОСЭН, переписывается значение лучшего результата (переменная 1!) с помощью команд 
ГРА,п : ВЗТ 10Н. 


Печать нового рекорда. 


661АН 

26163 1 А, 02 
26165  САЁЕ 1601Н 
26168 |1 А, 11Н 
26170 ВОГ 10Н 
26171 1 А, 05 
26173 ВОГ 10Н 
26174 |1 А, 16Н 
26176 ВОГ 10Н 
26177 ПА, 15Н 
26179 ВОГ 10Н 
26180 ПА, 07 
26182 ВОТ 10Н 
26183 1 А, 20Н 
26185 ВОГ 10Н 
26186 |1 А, 20Н 
26188 ВОТ 10Н 
26189 10 А, 20Н 
26191  ВоГ 10Н 
26192 10 А, 20Н 
26194 — ВОТ 10Н 
26195 ФР 60СЭН 


ПРОЦЕДУРА НОМЕ 
СТРОКА 890. Для вывода на экран здесь также используется процедура для печати 
символьной строки, но первоначально в данных этой строки переписываются значения 
х1,у1,х2 и у2. Коды символов сообщения при этом записаны в 669АНн...66АБ5Н, перенос 
значений переменных х1,у1,х2 и у2 - в б6бАБбнН..66В1Н, а процедура печати - В 66В2Н... 
...О6ВЕн. 


Печать "героя". 
б6ЭАН 


ОЕРВ 11 08 10 08 08 16 02 04 
ОЕРВ 15 00 04 96 
б6АбН 

26278 10 НЕ, (5ВОбН) 
26281 10 (6692), НЕ 
26284 10 НЕ, (5ВОЗН) 
26287 10 (66бАЗН), НЕ 
26290 1 А, 02 

26292 СА 1601Н 
26295 10) ПЕ, 669АН 
26298 10 ВС, 000С 


26301 — САЁЕ 203СН 


СТРОКА 900. Эта строка в программе в машинных кодах не нужна, т.к. расположенные 
здесь данные для музыки будут загружены непосредственно в память при загрузке 
машинного кода. 

СТРОКИ 910...920. Здесь через САЦ. 566АН вызывается процедура для проигрыша 
торжественной мелодии. Сама мелодия расположена в адресах 6656Н...6669Н, процедура - 
в 666Ан...6699нН, а вызов выполняется из точки 66 СОН. 


Музыка. 
66сон 
26304  САЁШЕ 666АнН 
6656Н 
ОЕРВ 00 00 00 00 00 00 ЕР 0В 
ОВЕРВ ЕС ОВ ЕО 10 ЕС ОВ ЕС 10 
ОВЕРВ ЕС ОВ ЕС 10 
б66АН 
26218 10 В, 07 
26220 [0 НЕ, 665СН 
26223 ША, (НЕ) 
26224  10(6678Н), А 
26227  ТМС НЕ 
26226 — РИЗН ВС 
26229  РИЗН НЕ 


26230 — ВОТ 28Н ; Калькулятор. 
БЕРВ 34 ЕС 4С СС СС СС 38 
26238 — РОР НЕ 

26239 ША, (НЕ) 

26240 — РИЗН НЕ 

26241  САШ 2028Н 

26244 — САШЕ ОЗЕВН 

26247  РОР НЕ 

26248 — РОР ВС 

26249 — ТМС НЕ 

26250 — 0.№7 -10Н 

26252 ША, 01 

26254 — САШЕ З028Н 

26257 ША, 1АН 

26259  САЁШЁ 2028Н 

26262  САШЕ ОЗЕВН 

26265 ВЕТ 


СТРОКА 930. Изменение значения переменных Поте и $соге в машинных кодах см. 
66сзн...6607Н, а вывод значения $соге на экран выполняется с использованием печати 
числа, находящегося на вершине стека калькулятора. Машинные коды 6604Н...66ЕЭнН. 


Коррекция переменных. 


66сзн 

26307 ША, (5В05Н) 
26310  ТМСА 

26311 1 (5В05Н), А 
26314 10 НЕ, (5ВОЗН) 
26317 10 ПЕ, 0032Н 
26320 — АПО НЕ, ОЕ 
26321 1 (5ВОЗН), НЕ 


Печать новых значений. 
6604н 
26324 РИЗН НЕ 
25325 ЕО А, 02 


25327  САЕЕ 1601Н 
26330 ША, 16Н 
26332  Во5Т ТОН 
26333 ША, 15Н 
26335  В5Т 1ОН 
26336 ША, 07 
26338 — ВоТ ТОН 
26339  РОР ВС 
26340  САЁЕ 202ВН 
26343  САЁЕ 20ЕЗН 


СТРОКА 950. В этой строке выполняется проверка: все ли 4 дома уже заняты. Если 
нет, то осуществляется переход к главному циклу. Программа в машинных кодах, 
выполняющая эту операцию, проще, чем строка ВАЗ!С-программы. Для этого достаточно 
записать в регистр А значение из ячейки 5ВОБН и с помощью команды АМО 4 маскировать 
все биты, кроме второго. Если в результате операции флаг нуля (7ЕВО) не будет установлен, 
то выполняется переход к главному циклу с помощью команды УР 641Е. 


Проверка 4-х домов. 
ббЕАН 
26346 —1ША, (58В05Н) 
26349 —АМО 04 
26351 УР №, 641ЕН 


СТРОКИ 960...980. Эти строки позволяют увеличить скорость игры, когда количество 
занятых домов достигает 4,8 или 12. Это достигается путем исключения команд ВЕТ из 
процедуры ВОШ.. 

СТРОКА 985. В этой строке проверяется, выше ли число занятых домов, чем 36. Если 
это так, то пропускается процедура для добавления еще одного паука и осуществляется 
переход к главному циклу. Для реализации этого в машинных кодах достаточно вычесть от 
значения переменной "Поте" число 37. Если при этом флаг переноса (СААВУ) не будет 
включен, то значит число занятых домов >= 37, и выполняется переход по команде УР МС 
6129. Машинный код 6714Н...6718Н. 


Изменение скорости игры. 


66Е2Н 

26354  ХОВ А 

26355 ША, (5В05Н) 
26358 СР 04 

26360 ФН №, +06 
26362 ХОВ А 

26363  1О(7ЕАЭН), А 
26366 ФН +19 

26368 СР 08 

26370 ЧН №, +06 
26372 ХОВ А 

26373 10 (7ЕС2Н), А 
26376 ФН +07 

26378 СР ОС 

26380 ФН №, +06 
26382 ХОВ А 

26383 10 (7ЕБЗН), А 
26386 ФН +5 

26368 °— 50В 25Н 
26390 УР №, 6129Н 


СТРОКА 990. Работу со случайными числами мы уже обсуждали в четвертой главе, 
поэтому объяснять порядок преобразования этой строки БЕЙСИК-программы в машинные 
коды мы здесь не будем. Необходимо только отметить, что для получения случайного числа 
в этой программе вначале извлекается значение системной переменной ЗЕЕВБ, а затем оно 


изменяется по следующей программе: 
ЕВА, С 

АМО ЛЕ 

508 2 


Все операции выполняются с использованием кодов калькулятора. Машинные коды - 
6719Н...6740Н. 


Генерация случайных чисел. 
б718Н 
26393 10 ВС, (5С76Н) 
26397  САЁШЁ 202ВН 
26400 ВОТ 28; калькулятор. 
ОБЕРВ АТ ОЕ 34 37 16 04 34 80 
ОЕРВ 41 00 00 80 33 02 А1 03 


ОЕРВ 31 38 

26419 — САЁЕ 20А2Н 
26422 10 (5С76Р), ВС 
26426 1ША,С 

26427  АМО ЛЕ 

26429 508 02 

26431 ФН С, +05 


СТРОКА 1000. Все, что необходимо сделать, это увеличить на 1 значение переменной 
"а". Машинный код - 6741Н. 

СТРОКА 1005. В этой строке проверяется, не превышает ли значение переменной "а" 
величины 31. Если это так, то значение этой переменной обнуляется. 


6741Н 

26433  ТМСА 
26434 СР 20Н 
26436 ФН №, +01 
26438  ХОВ А 


СТРОКА 1010. Для того, чтобы проверить свободна ли позиция экрана с координатами 
(10,а), используется процедура ЗСВЕЕМ$. Для этого первоначально в регистр В 
записывается значение переменной "а", а в регистр С - значение ОАН (100), и вызываются 
процедуры ЗТАСК МАШОЕ ТМ ВС и ЗСВЕЕМ$, а затем параметры со стека передаются в 
регистры А,В,С,О,Е. Теперь выполняется проверка, ЗСВЕЕМ$(10,а) = 20Н. Если это так, то 
выполняется переход для проверки следующей позиции экрана по команде ФВ 6741. 
Машинные коды, соответствующие этой строке, 6747Н...675ЕН. 


Поиск свободного знакоместа. 


6747Н 

26439  РИЗН АЕ 
26440 10 В, А 
26441 |1 С, ОА 
26443  САЁЕ 2538Н 
26446 — САЁЕ 2ВЕЛН 
26449 |1 А, (0Е 
26450  РИЗН АЕ 
26451  САЁЕ 168ВЕнН 
26454  РОР АР 
26455 СР 20 
26457 ФН 1, +03 
26459  РОР АР 
26460 ФН -Т0 
26462  РОР АР 


СТРОКА 1020. Эта строка повторяет предыдущую, за исключением того, что значение 
переменной "а" увеличивается на 1 перед вызовом процедуры ЗСВЕЕМ$. Обратите 


внимание, что значение переменной "а" сохраняется перед вызовом процедуры ЗСВЕЕМ$ 


(РУЗН АР), чтобы его можно было использовать в следующей процедуре. Машинные коды 
675ЕН...6776Н. 


Поиск свободного знакоместа. 


675ЕН 

26463  ТМСА 
26464  РИЗН АЕ 
26465 10 В,А 
26466 | С, ОА 
26468 СА 2538Н 
26471  САЁШЕ 2ВЕЛН 
26474 | А, (0Е 
26475  РИЗН АЕ 
26476  САЁЕ 168ВЕнН 
26479  РОР АР 
26480 СР 20 
26483 ФН 1, +03 
26484  РОР АР 
26485 ФН -З6Н 


СТРОКА 1030. Значение переменной "а" извлекается со стека и записывается в 
регистр А, а затем размещается в участке памяти с именем ВАТА для следующего вывода на 
экран процедурой РЕМТ ВАТА. Машинные коды 6777Н... 6792Н. 


Печать добавочного паука. 


6777Н 

26487  РОР АР 

26468 — ОЕС А 

26489 10 (6782Н), А 
26492 ФН +07 

ОЕРВ 11 04 16 ОА 19 9Е ЭР 
26501 1 А, 02 
26503  САЁЕ 1601Н 
26506 — |0 ПЕ, 677ЕН 
26509 10 ВС, 0007 
26512  САЁЕ 203СН 


СТРОКА 1039. Здесь повторно вызывается процедура, воспроизводящая фанфары по 
команде САЦ 666А. 

СТРОКА 1040. Это строка безусловного перехода в начало цикла. В машинных кодах 
это выполняется по команде УР 6129Н. 


Музыка и возврат. 
б7эзН 
26515 — САЁЕ 666АнН 
26518 (УР 6129Н 


Как видите, выполнять перевод БЕЙСИК-программы в машинные коды не так уж 
сложно. Лучше использовать при написании программ в машинных кодах 
шестнадцатиричную систему счисления, т.к. она более наглядна, если выполняется запись 
чисел сразу же в регистровую пару. 

Нам осталось только привести машинный код для скроллинга экрана вправо-влево. 
Это код процедуры ВОЦ.. 


ОНС 32244 


АТСНТ 32244 


Ел 


Е2 


[4 


32246 
32247 
32250 
32251 
32252 
32254 
32255 
За25Г 
32258 
32259 
32260 
32261 
32263 
32264 
32265 
32266 
32268 
32281 
32283 
32284 
32285 
32286 
32287 
32289 
32290 
32291 
32292 
32294 
32295 
32298 
32301 
32304 
32307 
32310 
32313 
32316 
32319 
32322 
32325 
32328 
32331 
32334 
32337 
32340 
32347 
32349 
32351 
32354 


Машинный код процедуры ВО. 


виа 
РУЗН НЕ 


| 
|=) 
>> 
ль 
Е 
г” 

шп 


О (НЕ), А 
Г 


В №, (1 


0 (НЕ), А 


САЕЕ ВТЕНТ 
ЕО А, (23673) 


...32346 - МОР 


АМО 02 
м 5 
ГО НЕ, 18496 
САЕЕ ВТЕНТ 


[65 


Еб 


32357 
32360 
32363 
32366 
32369 
32371 
32374 
32377 
32380 
32383 
32386 
32389 
32392 
32395 
32398 
32401 
32404 
32407 
32410 
32413 
32415 
32419 
32422 
32425 
32426 
32429 
32432 
32435 
32438 
32441 
32444 
32447 
32450 
32431 
32454 
32457 
32450 
32463 
32466 
32469 
32470 
32473 
32475 
32479 
32482 
32485 
32486 
32491 
32494 


СГ 
> 
[О 


С СГ 
> 
[О 


ЧИТАТЕЛЬ - ЧИТАТЕЛЮ 


Пао 


Вместо вступления. 

Дорогие друзья! Эту объемную статью не хочется предварять утомительным 
вступлением, но если Вас абсолютно не интересует музыка и, тем более, у Вас нет идей по 
работа с программой \ММНАМ, мы все же просим Вас внимательно просмотреть статью. Дело 
в том, что здесь представлена такая гирлянда идей, полезных советов и маленьких 
хитростей, которая украсит многие программы, даже если они и не имеют отношения к 
музыке. 

"ИНФОРКОМ". 


(С) Алексеев А.Г., 1993г. 


М/НАМ! Тпе Мизс Вох. НОВЫЕ ВОЗМОЖНОСТИ 


Этот музыкальный редактор наверняка уже знаком читателям "7Х-РЕВЮ". Он 
помогает не только освоить азы музыкальной грамотности, но и придать особый блеск 
Вашим собственным программам, тот завершающий штрих, который придает им 
неповторимый облик. 

"МНАМ" достаточно широко распространен на рынке программного обеспечения и 
читатель наверняка имеет ту или иную версию в своем арсенале. Существуют и подробные 
описания к программе. Более широко развить эту тему вынуждают некоторые тонкости, 
связанные с ее работой. В частности, неграмотная адаптация под БЕТА-ДИСК многих 
версий, имеющих хождение на рынке программного обеспечения. В результате этого они 
неправильно выполняют запись на диск скомпилированного кодового музыкального 
фрагмента. Предлагаемый материал вносит ясность в этот вопрос. Остановлюсь и на 
некоторых других особенностях работы этой программы, и главное - довольно 
существенном ее усовершенствовании. 

Надо сказать, что чаще при изложении материала применяется следующий подход: 
какое-то явление или процедура и как ее можно использовать. Этот материал находится 
несколько в иной плоскости: конкретная программа и как к ней применить сведения из 
разных областей, так или иначе имеющие к ней отношение. 

Итак, "ММНАМ". Вот типовой набор файлов, входящих в программу. 

"ИНАМ! " ВАУТС 

"ССВЕЕМ$" СОШЕ 16384,6913 

"ИНАМ!1"  СОБШЕ 65300,235 

"ИНАМ!2"  СОБШЕ 30000,15000 

"ИНАМ!З" СОРЕ 50000, 7000 

"М.ВОХ" ВАУТС 

Первый Бейсик-файл является загрузчиком. Во-первых, он переустанавливает 
значение РАМТОР=29999. Таким образом, для блоков кодов отводится место с адреса 
30000. Во-вторых, именно в этом Бейсик-загрузчике находится команда, переключающая 
символьный набор на загружаемый утолщенный, стилизованный. Новое значение 


системной переменной СНАВ$ задается при помощи РОКЕ: 
РОКЕ 23606,43: РОКЕ 23607, 217 
СНАА$=42+256*217=55594 

Переключение СНАЯА$ происходит в первой же строке Бейсик-загрузчика и является, 
кроме того, методом защиты. Это приводит к тому, что при нажатии ВВЕАК ничего не видно: 
сам символьный набор еще не загружен. Это отпугивает начинающих. На самом деле все 
просто: переключитесь на символьный набор ПЗУ, для этого подайте "вслепую" прямую 
команду РОКЕ 23606,0: РОКЕ 33607,60 и все встанет на свое место. 

Символьный набор расположен с адреса, на 256 большего, чем СНАВ$З: 
55594+256=55650. Если у Вас появятся желание заменить его или русифицировать всю 
программу, то Вы сможете это сделать, расположив новый символьный набор с адреса 
55650. При русификации надо также учесть, что значительная доля текстовых сообщений 
содержится в машинно-кодовой части программы. 

Большая часть программы выполняется в машинных кодах, но программа обращается 
и кБейсику в определенных случаях. Это загрузка-выгрузка мелодии, компиляция и запись 
скомпилированного блока кодов. Одной из первоначальных проблем является то, как 
остановить программу и выйти в Бейсик. Для этого можно в титульном меню нажать "1" или 
"2" (загрузка или запись). Когда в нижней части экрана программа запросит ввод устройства 
- это уже работает Бейсик. Нажимайте ВВЕАК для остановки программы. Запустить опять ее 
можно командой НИМ. 


Забегая вперед, скажу, что, когда появилась идея дополнить программу некоторыми 
новыми функциями, встал вопрос, как уместить все эти дополнения в рамках отведенной 
памяти. Чудес ведь не бывает. Для набивки новых строк необходимо отодвигать ВАМТОР в 
сторону более старших адресов. Поэтому помимо обычных средств по экономии памяти (о 
которых будет рассказано ниже), пришлось пожертвовать частью буфера для хранения 
мелодий. 

В первоначальном варианте "МНАМ" может хранить в памяти 6 мелодий. Новый, 
усовершенствованный вариант - на одну меньше. Но такая жертва, по-моему, все же 
оправдана теми дополнительными возможностями, о которых будет рассказано ниже. 
Поэтому в новом загрузчике в строке 30 устанавливается значение ВАМТОР, равное 31999 а 
не 29999, как в исходном варианте. 

Изначальный текст Бейсик-файла "М.ВОХ" примерно на 80% был переработан. Во 
избежание неоднозначности, ниже приведен полностью его новый вариант: "т.Бох”. Если 
Вы захотите воспроизвести программу у себя, внося изменения в старий файл "М.ВОХ", 
проверьте, пожалуйста, аккуратно все строки. Обратите внимание на их номера. Во многих 
случаях это существенно. Поэтому на начальном этапе без необходимости старайтесь 
ничего не изменять. Когда новая программа у Вас заработает, тогда можете вносить любые 
дальнейшие изменения. 

Изменениям подверглись и кодовые блоки программы для поддержки ее новых 
возможностей. Подробно все изменения в кодовых блоках приведены в конце статьи. 
Условимся, что новые файлы, входящие в "М/НАМ" будут называться: 

"МНАМ+" ВАЗТС 

"урам $" СООЕ 

"Раш 1" СООЕ 

"упам 2" СОРЕ 

"ураш 3" СООЕ 

"п.рох" ВАЭЗТС 

Это нужно для того, чтобы различать новые и старые версии файлов. 

Теперь некоторые вопросы, связанные с адаптацией под БЕТА-диск. 


Универсальный загрузчик. 
Адаптация загрузчика под БЕТА-диск тривиальна. Заменяем все 1ОАО"" на 
ВАМООМШЕ УЗВ 15619:ВЕМ ГОАВ "ИМЯ". 
Но сейчас я хочу предложить прием, позволяющий реализовать универсальный 
загрузчик, одинаково работающий и с магнитофоном и с БЕТА-диском. Такой прием можно 


использовать, в принципе, для любой программы, но для многих - это ненужная 
избыточность. Однако для таких программ, как "ММНАМ", которые после адаптации под диск 
остаются двухрежимными (загрузка и запись сохраняются для ленты и диска) эффектнее 
выглядит предлагаемый вариант. Он придает большую гибкость программе. 

Универсальность основана на том факте, что при использовании БЕТА-диска 
системная переменная РРОС (начало расположения Бейсик-программы) отличается от 
магнитофонного варианта компьютера на 112 байтов для дополнительных системных 
переменных. При проверке, если зафиксировано значение РНОС=23755, то значит 
интерфейс Бета-диска отсутствует или неинициализирован. В этом случае программа 
выполняет загрузку с ленты, Если значение РАОС больше, чем 23755, программа переходит 
на строки загрузки с диска. 

Универсальный двухрежимный загрузчик для "\ММНАМ" выглядит так. 


10 ВЕМ “МНАМ!” Упзуегза1 Таре-0азк Тоадег. 

20 ВОВОЕВ 0: РАРЕВ 0: ТМК 0: РОКЕ 23624,0: СЕЕАН 31999 

25 ТЕ (РЕЕК 23635+256* РЕЕК 23636)=23755 ТНЕМ РОКЕ 23739, 111: Е0АБ ““ЗСВЕЕМ$. [ОАО “"СООЕ : 
[ОА “"СОБЕ : 1ОАБ ° "С00Е ‚ 00 508 100: 10АБ “” 

30 ВАМООМТУЕ Ц5В 15619: [ОАО “мпат $"”СООЕ 16384 

40 ВАМООМТУЕ Ц5В 15619: ‚ [ОА “мпам 1"СООЕ 

50 НАМООМТУЕ Ц5Н 15619: ‚ [ОА “мпам 22"”СОБЕ 

60 НАМООМТУЕ Ц5Н 15619: ‚ [ОА “МПам 3З"СООЕ 

70 60 508 100 
80 НАМООМТУЕ 05В 15619: ВЕ ГОАБ “т. бох”" 

100 РОКЕ 23675,88: РОКЕ 23676, 255: РОКЕ 23606,42: РОКЕ 23607, 217 
110 ВЕТУВМ 9999 ЗАУЕ “МНАМ+"” ГТМЕ 10 


эээ 
Г ГГ Г Г] 


Подпрограмма СО $ЗИУВ 100 кроме переключения символьного набора выполняет 
также переключение символов ЧУОС-графики, восстанавливая исходное значение, которое 
могло быть изменено дисковым загрузчиком "Боос". 


Основной файл "т. Бох". 

Как уже говорилось, новый вариант потребовал принятия мер по экономии памяти. 
Некоторые из них уже реализованы в файле "М.ВОХ". Это, например, задание вначале 
программы в 10 строке: 

ГЕТ 0=М№Т РТ: 1ЕТ Т1=50М РТ: ЕТ М7=УАЁЕ “7” 

Буква О похожа на ноль, а буква | - на единицу, так что такая замена практически не 
сказывается на "читаемости" программы. Кроме того, при помощи переменной М7 задано 
число 7. Оно часто встречается в программе (например, ВОВПЕН МТ: РАРЕН МТ:). Замена 
часто встречающихся чисел переменными позволяет существенно сократить объем 
программы. Но для БЕТА-диска и всех нововведений этого все же недостаточно. Пришлось 
бороться буквально за каждый байт. Потребовалось заменить все числа на выражения МАЕ 
"число" во всей программе. Только теперь можно быть уверенным, что не произойдет сбоев 
программы из-за нехватки памяти при работе. 


Листинг файла "т.бох“". 
1 ВЕМ (С) 1985 МААК ТТМЕ 1ТБ (С) 1993 АГАМ$ОРТ 
2 60 ТО \УАЁ "10" 
5 60 5ИВ МАЕ "90": 5ТОР 
6 ВАМООМТУЕ Ц5В \УАЁ “15616” 
7 ГОР 
10 (1$ : ТЕТ 0=№0Т РТ: ГЕГ ры 5ам РТ: ЕЕТ №/=\УАЁЕ "7": ВОНОЕВ №: ААМООМТУЕ 0$8 УАЁ "50000": 
ТМРУТ ''’’: ЕЕТ т 
15 ТЕТ $ТН=\УАЕ ° 50000" ГЕТ ГЕМ=УАЕ “2000” 
20 [ЕТ КР=РЕЕК \УАЁ ' ‘23559" -МАЕ"48" 
25 ТЕ КР<0 ОН КР>М№7 ТНЕМ ВОМ 
30 РВТМТ АТ \АЁЕ "5"+КР, МАЕ “9” ; ОМЕН Т; ТМУЕАЗЕ Т; 
35 РОКЕ \УАЁ “23658”, МАЕ “6” 
40 ТЕ КР<ТМТ РТ ТНЕМ 60 ТО УАЁ "3000" 
45 ТЕ КРЕУАЕ "4" ТНЕМ 60 ТО УАЁ “8000” 


50 (1$ : ВОНОЕН \УАЁ “5”: РАТМТ АТ МАЕ "8", 0;” 1 -РезпЕ НЕЕГР-РАСЕ. "'`” 2 -еТест МИЗТС-КЕУ 
--->"''” 3 -Нои{1те ВЕСОМРТЕЕН. "``” 4 -Типе ТНВАМЗРОМЕВ. " 

55 ВАМБОМТУЕ 058 (РЕЕК МАЕ “51253"+\АЕ “56576”): РАЦЗЕ 0 

60 ТЕ Т№КЕУ$="2” ТНЕМ 60 З0В МАЕ “600”: 60 ТО МАЕ "55" 

65 ТЕ ТМКЕУ$="3" ТНЕМ 60 ТО МАЕ "9000" 

70 ТЕ Т№КЕУ$="4" ТНЕМ 60 ТО УАЁ “5000” 

75 ТЕ Т№КЕУ$="1" ТНЕМ (15$ : РАТМТ : ВАМООМТУЕ Ц5В \УАЁ "55420": РАЦЗЕ 0 

80 НИМ 

90 ТЕ РЕЕК \УАЕ "23635"+\МАЕ “"256”»РЕЕК МАЕ "23636"”=\МАЕ "23755" ТНЕМ 5АУЕ “т.бох” 1ТМЕ МАЕ 
"2": ВЕТУВМ 

92 ВАМБОМТУЕ 058 МАГ "15619": ВЕМ : ЕВАЗЕ "м.бох” 

94 ВАМВОМТУЕ 058 МАГ "15619": ВЕМ : ЗАУМЕ "т. 60Х” ЕТМЕ 2 

99 ВЕТИВМ 

100 ТЕ Т$="М" ТНЕМ 60 $ИВ МАЕ "4000": ТЕ КР=Т ТНЕМ ВАМООМТУЕ ЦЗН МАЕ "54000": @0 ТО УАЕ 
"140" 

105 60 $50В МАЕ “6000”: ЕЕТ ЕВН=0 

110 ТЕ КР=УАЕ “2” ТНЕМ 60 ТО УАЕ “200” 

115 ТЕ Т$="0” ТНЕМ ГЕТ ЕАВ=0$А УАЁ “15619”: ВЕМ : [ОАО РФСОБЕ Э5ТВ, ЕЕМ 

117 ТЕ ЕЯВ<>0 ТНЕМ 60 ТО МАЕ "300" 

120 ТЕ Т$="Т" ТНЕМ (1$ : РАТМТ “ЗТАВТ ТАРЕ”`"ЗЕААСНТМ@ РОВ :”“;Е$; ТЕ Е$<>" ” ТНЕМ 
ГОАО Е$СООЕ 5ТВ 

130 ТЕ Т$=”Т" АМО Р$=” “” ТНЕМ РАТМТ “Гоа91пд апу Фипе - по пате д1уеп”: 1ОАБ "”СООЕ 
ОТВ, ГЕМ 

140 ТЕ РЕЕК ЭТВ»УА|Е “220” ТНЕМ РОКЕ МАГ "52860", РЕЕК 5ТВ 

150 Вим 

200 РОКЕ 5ТВ, РЕЕК УАЕ “52860” 

210 ТЕ Т$="0” ТНЕМ ЕЕТ ЕВВ=0$А \УАЁ “15619”: ВЕМ : ЗАУЕ РФСОБЕ ТВ, ГЕМ 

215 ТЕ ЕАН<>0 ТНЕМ 60 ТО УАЁ “300” 

220 ТЕ Т$="Т" ТНЕМ ЗАУЕ Е$ФСООЕ У5ТВ, ГЕМ 

225 ТЕ Т$="М” ТНЕМ ВАМООМТУЕ Ц5А МАЕ "54006": РОВ А=Т ТО МАЕ "10": РОКЕ \АЁ 
"65289"+А+(ТМ№\АГ" 10"), СООЕ Е$(А): МЕХТ А: ВИМ 

250 РАТМТ #0; "УЕАТРЕУ ? (\/№)”: ВЕЕР МАГ “, 1”, МАЕ “20”: 60 ЗИВ МАЕ ' '500” ТЕ МТ Е ТНЕМ ВОМ 

260 ТЕТ ЕНВ=О: РАТМТ АТ \МАЁ “19”, 0;” \Мег1Ру1пд. . 

270 ТЕ Т$="Т” ТНЕМ УЕАТРУ ЕФСОБЕ УТВ, ГЕМ 

280 ТЕ Т$="0” ТНЕМ ТЕТ ЕВВ=05В \УАЁ “15619”; ВЕМ : УЕАТЕУ РФСООЕ 5ТВ, ГЕМ 

290 ТЕ ЕАН=0 ТНЕМ РАТМТ #0; ТАВ МАЕ “12”; ТМУЕАЗЕ Т;” 0.К. “;: ВЕЕР МАЕ “.1”, МАЕ “20”: РАЦЗЕ 
МАЕ "50": ВИМ 

300 РВТМТ #0; ЕГАЗН Т;” ЕАВОН ”;ЕАВ;” “”: ВЕЕР Т,0: РАЦЗЕ 0: ВИМ 

400 РОКЕ УАЁ "23658", МАЕ "8": ТМРУТ Т: ВЕТОВМ 

500 РОКЕ УАЁ "23658", МАЕ "8": РАЦЗЕ 0: ТМРУТ ;: ТЕ Т№МКЕУ!$ ="У" ТНЕМ 1ЕТ Е=Т: АЕТОВМ 

510 ТЕТ Е=0: ВЕТУВМ 

600 ТЕ РЕЕК \УАГ “50908”=МАЕ “159” ТНЕМ РОКЕ УМА "50908", МАЕ “191”: РОКЕ МАЕ "51253", МАЕ 
"178": АЕТУВМ 

610 ТЕ РЕЕК \УАГ "50908"=УАЕ “191” ТНЕМ РОКЕ МАЕ "50908", МАЕ "159": РОКЕ УАЁ "51253", МАЕ 
“170”: РАТМТ АТ МАЕ "13", МАЕ "27" "АТ МАЕ “14”, МАЕ "27"; ";: ВЕТОАМ 

700 ТМРУТ ;: РАТМТ #0; ЕГАЗН т ` Р1еазе, малт... "“; ВЕТОАМ 

800 60 $0В \АЁ “400”: РАТМТ #0;” бе1ест дем1се Гог "; "ГОАБ” АМБ КР=УАЕ "7"; "ЗАУЕ" АМБ 
КР=\УАЕ пе Ргез$: —Т -ТГАРЕ; 0 -ОТ5УК” 

805 РАЦЗЕ 0: ТМРИТ ;: 1ЕТ Т$=1№МКЕУ$. ТЕ Т$<>"Т" АМО Т$<>"0" ТНЕМ 60 ТО МАЕ “800” 

810 НЕТОАМ 

3000 РАТМТ #0; ТАВ МАЕ “4”; “ЗЕГЕСТ РЕАТРНЕВАЕ ВЕМТСЕ” 

3010 РАТМТ #0’`"ТАРЕ МЕМОВУ ОТЗК (ЗРАСЕ = ЕХТТ) “ 

3020 РАУЗЕ 0: [ЕТ Т$=ТМКЕУ$: ТЕ ТМКЕУ$=" “ ТНЕМ ВОМ 

3030 ТЕ Т$<>"М" АМО Т$<>"Т" АМБ Т$<>"0” ТНЕМ 60 ТО МАЕ "3020" 

3040 60 ТО \УАЁ "100" 

4000 (15 : РАТМТ °° “ТОМЕ УЭТОВЕО ТМ МЕМОНУ” 

4010 ТЕТ О=\УАЕ “65300” ‚РАТМТ "МО. ТГТЕЕ:” 

4020 ЕОН Т=Т ТО \АЁ ° ’5 ‚ РАТМТ ° 

4030 ЕОВ 0=0 ТО О+\УАЕ “9”: РАТМТ СНВ$ РЕЕК 0;: МЕХТ 0: МЕХТ Т 

4040 РВТМТ #0; "ТОМЕ МОМВЕВ? [” 


4050 ТЕТ №=Т№МКЕУ$: ТЕ №<"1" ОА №>"5” ТНЕМ 60 ТО МАЕ "4050" 

4060 ТЕТ Т№=\УАЕ №: РОКЕ МАЕ "23681", ТМ+Т: ВЕТУАМ 

5000 С1$ : РВТМТ АТ \УАЁ “10”, МАЕ "5"; “Типе Тгапзроптегипд” 

5010 60 $0В МАЕ "400": РАТМТ #0; “Ргезз: Ц -Рог УР; 0 -Рог ООММ” 
5020 РАЦЗЕ 0: ТЕ ТМКЕУ$<>"” АМО ТМКЕУ$<>"0” ТНЕМ @0 ТО УАЁ "5020" 


тыр < > РАМТ ВО я 
АЦЗЕ 0: ТЕ Т№КЕУ$<"”1" ОВ 
ЕТ С=\/АЁЕ ТМКЕУ$ 


го 


и | 


ЕТ \/=0: @0 508 МАЕ "700" 


ТЕ \=0 ТНЕМ ЕТ \=Т: 60 ТО 


РАОЗЕ 0: НИ 


= 


ГЕТ Т=5»Н+РЕЕК А 


ТЕ \У=Т ТНЕМ РОКЕ А, Т 


ГЕТ А=(ТМКЕУ$ =” 0”) - (ТМКЕУ$= 


ТЕ СФ\МАЕ "2" ТНЕМ ЕТ А=\УАЕ “60001”: 
ТЕ С<>Т ТНЕМ ЕЕТ А=\УАЕ “61001”: 60 $08 МАЕ "520 


ТМРОТ ;: РАТМТ АТ УАЕ “10”, 


“0” 
1 Спаппет 2 - 2 СП 


аппе1 


3 - Тапа 2 Спаппе!т” 


ТМКЕУ$>"3” ТНЕМ 60 ТО \МАЁ "5050" 


РОТ "Типе спапде (12=осфауе): ";5 


МАЕ "5110" 


ТЕ ТУМАЕ "255" ТНЕМ ЕЕТ Т=Т-УАЕ "256" 
ТЕ Т<0О ТНЕМ ЁЕТ Т=Т+\УАЕ “256” 
ТЕ \=0 ТНЕМ ТЕ Т>УАЕ "40" АМБ Т<УАЕ “244” ТН 


ТЕТ А=А+Т: 60 ТО МАЕ "5200" 
ТМРОТ ;: РВАТМТ АТ УАЕ "15" 


60 $0В МАЕ “5200” 


0: 


"61000”);” Спаппет 1$ мегу “"; ("п19й." АМО В=Т); ("10\." 
РАТМТ “Тгапзроп1тегипа 1$ поф ауа11аб1е.”: ВЕЕР Т,0: РАУЗЕ 0: НИМ 
гезз ЕМТЕН Тог САТАГОСИЕ ОТ5К" АМО Т$=”0” ''"ЕТЕЕМАМЕ: ”“;Е$ 


ОТМ ЕЗ(УАЕ "10”): ТМРОТ "Р 
ТЕ [$=” ” АМО Т$= 
ВЕТОУВМ 

ВАМООМТУЕ 0$Н \МАЁ “15619”: 
60 ТО \УАЕ "6000" 


ЕЕТ СН№2=СНМ1+ЕЕМТ+Т 


ГЕТ БЕ=СНМ2: ЕЕТ ВС=ЕЕМ2: 


"57030" 
РОКЕ МАЕ “57002”, ТМТ ((СНМ 
"57002" 


"57008" 
ВЕТОВ 


ГЕТ СНМ1=\УАЁЕ “57266”: ТЕ МНТ 


ГЕТ НЕ=УАЁЕ “60001”: ЕЕТ БЕ= 


РОКЕ \УАЕ "57034", ТМТ (СНМ2/МАЕ "256”): 
РОКЕ МАЕ "57008", ТМТ ((СН№2-Г)/МАЕ "256”): 


ГЕТ 7=\МАЁ "256": 1ЕТ Н=ТМТ(НЕИй): 


“0” ТНЕМ 60 ТО МАЕ "б 


ВЕМ : САТ 


60 50В МАЕ “7500” 


ГЕТ ТЕЕМ@=СН№М2+ЕЕМ2-УАЕ “57000” 
ГЕТ СНМ1=СНмТ-МАЕ "57000"+АЗЕ 
ВЕТ СН№2 = СН№2-\АЕ "57000"+АЗЕМ 
РАТМТ АТ УАЕ "10", МАЕ "6"; 
РОКЕ УАЕ “57030”, ТМГ (СНАТИМАЕ “256”): РОКЕ МАЕ 


СОБЕ ГЕМСТН : ”; ТЕЕМ 


100” 


б 


МАЕ "5"; "Тгапзроптегипо - 0.К. "ВЕЕР МАЕ ”.1”, МАЕ "20": 


ТЕ РЕЕК А=\УАЕ “64” ОВ А=\УАЕ “61000” ОВ А=\УАЕ "62000" ТНЕМ НЕТУВМ 
ТЕ РЕЕК А>\УАЕ "407 АМО РЕЕК А<\УАЕ “244” ТНЕМ ТЕТ А=А+Т: 60 ТО МАЕ "5200" 


ЕМ 60 ТО УАЁ “5300” 


0;" Типе ";("1" АМО А<МАЕ "61000"); ("2” АМО АМА 


АМО В=-Т) 


0=\АЕ “3000” ТНЕМ ЕЕТ СНМ1=\УАЕ “57464” 


СНМ1: ТЕТ ВС=ЕЕМТ: 60 508 МАЕ "7500": ТЕТ НЕ=УАЕ “61001” 


"57029", СНМ1-МАЕ “256”*РЕЕК УАЁ 


1-Г)ИМАЕ "256”): РОКЕ МАЕ "57001", СНМ1-Т-УАЕ "256"*РЕЕК \АЕ 


В=ТМТ(ВС/7): ТЕТ С=ВС-В»*7: ВЕЗТОНЕ МАЕ “7700”: 


5: РОКЕ 7,5: МЕХТ 7: ВАМООМТУЕ Ц$Н МАЕ “16416” 
ОАТА \АЁ ` 33" НМА У Ето, ВМА, ИЗО МАЕ Тб 


РВТМТ #0; `ВЕТОВА ОРТТОМ Те ОЕ э" 
РВТМТ АТ \УАЁ “12”, 0; "1, КЕУРАЕЗ $" `"2, АЦМАУ5" '"З, ТОМЕ ЕМО” 


ТЕ Т№МКЕ\У$="1” ТНЕМ ВЕТОВМ 


ТЕ ТМКЕУ$=" 2" ТНЕМ РВТМТ АТ МАЕ "4", МАЕ "20"; " 


ВЕТИНМ 
ТЕ Т№МКЕ\У$="3” ТНЕМ РОКЕ \А 
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После загрузки основного Бейсик файла "т.бох", происходит старт программы с 
начальной строки. Несколько начальных строк выполняют вспомогательные функции. ВУМ5 
5 - самозапись файла на ленту или диск (в зависимости от его наличия проверка в строке 90 
по РНВОС@ выполняется аналогично тому, как это сделано в универсальном загрузчике). 
Переключение символьного набора - СО ЗЧВ 8. Обратное переключение его СО З(В 9. 

Фактическое начало программы - строка 10. Титульная заставка прорисовывается при 
помощи подпрограммы в машинных кодах, расположенной по адресу 50000. Последняя 
устроена так, что при первом старте после загрузки сначала воспроизводится 
демонстрационная мелодия, прекращшающаяся после нажатия на любую клавишу. Эта 
мелодия представляет собой скомпилированный фрагмент, расположенный и стартуемый с 
адреса 42500. При последующих запусках программы командой НРУМ, мелодия при 
прорисовке заставки не воспроизводится. 

Когда подпрограмма в кодах ВАМРОМШЕ УЗВ 50000 возвращается в Бейсик, в ячейке 
23559 сохраняется код нажатой клавиши. Строка 20 возвращает номер нажатой цифровой 
клавиши в переменную КР и дальнейшее распределение происходит в зависимости от ее 
значения. Так, строка 40 переводит на подпрограмму записи-считывания, строка 45 - на 
компиляцию. В том случае, если были нажаты клавиши "5" - "б", возврата в Бейсик вообще 
не происходит. А вот если нажата клавиша "7", то вместо "НЕЁР РАСЕ" вызывается 
дополнительное системное меню: "ЗУЗТ. МЕМУ" - (соответствующее изменение текста 
титульного меню произведено в кодовом блоке). В "ЗУЗТ.МЕМУ" заложены все 
дополнительные возможности, но об этом чуть позже. 

А сейчас более подробно об адаптации файла “т.Бох" под БЕТА-ДИСК. Изменения 
будут касаться процедур загрузки и выгрузки. Это пункты "1" и "2" в титульном меню 
программы. Эти процедуры имеют много общих строк, так что технология адаптации 
упрощается. В исходном варианте "М/НАМ" после нажатия клавишей "1" или "2" строка 40 
переводит на блок строк с 3000, выполняющий задание устройства ввода-вывода. Внизу 
экрана появляется новое меню, предлагающее выбрать устройство: 


ТАРЕ, МЕМОКВУ, ОВТУЕ (5РАСЕ=ЕХТТ) 


Так как микродрайвы в нашей стране не слишком распространены, удобно было ОНМЕ 
заменить на О!ЗК с изменением всех Бейсик-строк, относящихся к микродрайву. Заменена 
прежде всего строка, выводящая это меню - 3010. 

Строка 3040 завершает выбор устройства и переводит на строку 100. Здесь 
выполняются дальнейшие действия, связанные с загрузкой-сохранением. 

Строка 100 - выполнение подпрограммы записи-считывания мелодии при работе с 
буфером памяти: СО ЗВ 4000. 

Подпрограмма СО ЗВ 6000 (строка 105) - это ввод имени файла. Удобно будет при 
выборе диска предложить пользователю вывести его каталог. Поэтому подпрограмма 
устроена так, что в случае дисковода, если не вводя имени нажать ЕМТЕВ, будет выдан 
каталог диска. Такое решение удобнее, чем дополнительное меню, запрашивающее вывод 
каталога, так как освобождает оператора от лишних действий. Это, казалось бы, 
несущественная мелочь, но как раз из таких мелочей складывается впечатление о той или 
иной программе. Приятно иметь дело с программой, где все продумано до мелочей. Я не 
пытаюсь представить эту программу как эталон, усовершенствованию нет предела, но Вы 
можете в своих разработках использовать те моменты и приемы, которые уже хорошо 
зарекомендовали себя. 

В строке 105 кроме ввода имени, задается нулевое начальное значение параметра 
ЕВВ - кода ошибки ТВ-0О$. Далее, в строке 10 происходит разделение на процедуры 


записи и загрузки. Если запись, то переход на строку 200. Если загрузка, то - на строку 115. 

Как Вы знаете, в случае ошибки загрузки с магнитофона, программа остановится с 
сообщением “Таре 1оа4та еггог". В случае ошибки при загрузке с диска, мы ничего не 
заметим. Поэтому необходимо предусмотреть специальные меры по перехвату ошибок ТВ- 
00$. Для этого код ошибки возвращается в переменную ЕВВА для контроля выполнения 
команды. 

Строка 300 должна сигнализировать о невыполненной команде ТВ-О0О$. Здесь 
применяется упрощенный прием, когда не расшифровывается подробно причина неудачи, а 
просто выводится код ошибки. Как правило, бывает достаточно даже просто одного сигнала 
об ошибке, чтобы вспомнить, что, например, файл с таким именем уже есть на дискете. Но 
лучше, все же, вывести код ошибки ЕВВ. Это не отнимет много памяти, как подробные 
комментарии на все случаи жизни. Для дальнейшей оценки кода ошибки можно 
воспользоваться руководством к ТА-0О$, но на практике, как правило, в этом не бывает 
необходимости. 

После завершения записи программа предлагает выполнить верификацию. Если в 
ответ на запрос ввести любую клавишу, кроме "?", то от нее можно отказаться. Верификация 
реализуется в строках с 250. 

Строки загрузки с магнитной ленты и записи на ленту остались без изменения. 

Изменения, представленные выше, предназначены для загрузки и выгрузки на диск 
исходных текстов мелодий. Рассмотрим теперь проблемы, возникающие при компиляции 
мелодии и записи готового блока кодов, но сначала немного о компиляции. Программа 
устроена так, что можно скомпилировать музыкальный фрагмент в произвольно заданный 
адрес. Причем, наблюдательный пользователь наверняка заметил, что выгрузка кодового 
блока на магнитную ленту происходит необычно на слух: нет привычной паузы между 
заголовком и самим блоком кодов. Это наводит на мысль, что выгрузка выполняется 
нестандартной процедурой. Для чего это понадобилось? Выгрузка скомпилированного 
блока кодов происходит всё время из одного и того же места памяти: из адреса 57000. 
Хитрость заключается в том, что заголовок файла подменяется другим, в который заносится 
адрес, заданный Вами при компиляции, а сам массив кодов выгружаются всегда из 57000 с 
уже изменённой адресацией под заданный Вами адрес. Запись скомпилированного 
музыкального фрагмента выполняется в строке 8210 при помощи процедуры в кодах 56700. 
Вот эта программа. 


56700: [В ТХ, 56800 
ЕО ОЕ, 00017 
ув А 
СЕ 
САЕЕ 1222 
МОР 


ЕО ТХ, 57000 
[8] ОЕ, Длина 


ЕО А, 255 
СЕ 
САЕЕ 1222 
ЕТ 
Бай: ВЕТ 


Как видим, запись производится в два этапа. Сначала записывается блок кодов, 
имитирующий заголовок кодового файла. Этот блок расположен с адреса 56800 и имеет 
стандартную для заголовка длину 17 байтов. При компиляции туда заносятся заданный 
стартовый адрес и получившаяся длина кодового блока. Затем выполняется вторая часть 
программы - запись самого блока кодов, как уже говорилось, из адреса 57000 (длина тоже 
заносится при компиляции). 

Самый простой приём при адаптации под диск может быть следующий. Запись 
выполнить при помощи Бейсика, обычной командой ТВА-0О$, из адреса 57000. Это 
выполняют строки 8230... 8260. 

Естественно, в этом случае в заголовках блоков, скомпилированных в разные адреса, 
будет всегда стартовый адрес 57000. Загружать записанный таким образом 


скомпилированный блок надо, обязательно указывая адрес загрузки, тот который Вы задали 
при компиляции. Поэтому, если Вы завтра забудете адрес, для которого сегодня 
скомпилировали мелодию, то, скорее всего, Вы уже никогда не сумеете воспользоваться 
этим блоком кодов. 

Поэтому, для устранения этого недостатка, процедура записи дополняется 
небольшой программой в машинных кодах, которая, будучи выполненной сразу же после 
записи файла, "подменяет" заголовок на диске на новый, с заданным Вами стартовым 
адресом. 

Расположена эта программа следом за процедурой записи, с адреса 56728 (#0096): 


#0098 ОЕОА ЕВ С, ОА 
#ОО9А (01330 САЕЕ #3013 
#0090 19 ЕО А, С 

#О9ЭЕ 2АЕЩОБ ЕО НЕ, (#00ЕБ) 
#00А? 22Еб5С ЕО (#5СЕб), НЕ 
#00А4 0Е09 ЕО С, #09 
#00Аб 01330 САЕЕ #3013 
#00А9 С9 ВЕТ 


Для того, чтобы подробнее разобраться, как она действует, откройте 7Х-РЕВЮ № 1-2 
за этот год на стр. 25 и вспомните, как выполняются программы ТВ-О0О$ из машинного кода: 
в регистр С заносится код команды и вызывается подпрограмма 15636 (ЗО1ЗН). 

Программа работает так. Вначале в регистр С заносится код 10, что соответствует 
процедуре поиска файла в каталоге диска. Параметры для поиска - спецификация файла, то 
есть его имя и тип. Эти данные уже заданы - они остались в системных ячейках после записи 
файла. После завершения поиска, результат будет в регистре С. Следующей будет 
выполнена процедура записи 16 байтов заголовка с изменённым параметром ЗТАВТ на 
место старого. В регистре А задаётся номер заголовка (из регистра С), согласно 
требованиям к последующей команде при С=9 - записи заголовка файла. Теперь надо то 
значение адреса, которое было задано при компиляции, занести (в двухбайтном виде) в 
область спецификации файла в таблице системных переменных ТВ-ОО5, а именно, в ячейки 
23782, 23783 (5СЕбН, 5СЕТН). Для этого вспомним, что стартовый адрес уже занесён при 
компиляции в 17-байтный заголовок магнитофонного файла. Два его байта находятся по 
адресу 56813 (ОБЕОН). Поэтому берём его оттуда и при помощи регистра НЕ переписываем 
в системные переменные ТВ-0О$. Далее осталось только выполнять подпрограмму 15635 
(ЗО1ЗН) с параметром С=9. Теперь заголовок переписан с тем значением адреса, которое 
было задано при компиляции и проблем с адресом запуска больше не будет. Практически, 
при записи такой процедурой, процесс записи внешне никак не отличается от 
традиционного. 

Рассмотренная процедура выполняется в строке 8270. Строка 8300 задаёт 
параметры: стартовый адрес и длину для верификации. Последняя осуществляется блоком 
строк, начиная с 250. 

Надо сказать, что показанный приём может применяться и в других Ваших 
программах. Блок кодов, переписывающий заголовок, может использоваться, например, 
при желании наоборот, засекретить истинное значение стартового адреса или с иными 
целями. Сама записывающая процедура может работать в любом месте памяти. 


Как "бороться" с СОРУ. 

От некоторых пользователей, в основном, начинающих, можно услышать претензии 
по поводу того, что после нажатия "7" в титульном меню, нормально выводится на экран 
страничка - подсказка ("НЕЁР - РАСЕ"), но после этого "программа зависает". НЕЁР - РАСЕ 
выводится при помощи блока в кодах, значит в нём причина "зависания"? Тогда устранить её 
будет сложно! Но на самом деле всё очень просто. 

"Зависание" происходит на команде СОРУ (расположенной в старом варианте "ММНАМ" 
в строке 50 Бейсик - программы) на тех компьютерах, где имеется интерфейс для принтера 
РАМТ - 3 с собственным теневым ПЗУ. Оно активизируется, когда компьютер пытается 
выполнить команду СОРУ. Но он не может её выполнить, так как предварительно должен 
быть задан режим для получения графической копии экрана командами: 


ГРАТМТ СНВ$ 0: РАТМТ СНА$ 1 


ЕРАТМТ СНА$ 0: РВТМТ СНА$ 6 

Выходов из этого положения два: сложный и простой. Сначала - сложный (но он пока 
не реализован в Бейсик - файле "т. Бох"). Для этого надо организовать команду, 
инициализирующую интерфейс принтера в одной из начальных строк, чтобы она 
выполнялась при старте программы. Причём команда эта по возможности должна сама 
определять, инициализирован интерфейс принтера или нет. Вот так это можно выполнить 
для (РАМТ-3: 

ТЕ РЕЕК \АЁ “23296"<>\МАЁЕ "95" ТНЕМ ЕРАТМТ: ЕРАТМТ СНВ$ МОТ РТ; СНВ$ МАЕ “5” 
60 ТО УАЁ "10" 

Контроль (упрощённый) того, что интерфейс инициализирован, выполняется по 
наличию в буфере принтера (с адреса 23296) драйвера печати, перебрасываемого туда из 
теневого ПЗУ при инициализации интерфейса ЕРАМТ-3. 

Но надо сказать, что начальная инициализация поможет правильно распечатать НЕЁЕР 
- РАСЕ на принтере, но не поможет "бороться с СОР\У", если у Вас выключен или отсоединён 
принтер. Ну действительно, зачем всё время выполнять графическую копию экрана, может 
Вы хотите просто посмотреть страничку - подсказку и ничего больше. Можно, конечно, 
организовать запрос, например, "НАЖМИТЕ [Р] ДЛЯ ПЕЧАТИ НА ПРИНТЕРЕ". Но гораздо 
изящнее всё это выглядит, когда выполняется автоматически. Помните о мелочах! 

Попробуйте так: 


75 ТЕ ТМКЕУ$="1" ТНЕМ СЕ$: РАТМТ: ВАМООМТУЕ 058 \МАЁ "55420" 

76 ТЕ Ккр=№7 ТНЕМ ВОВОЕВ №: РАРЕН №7: ТМК 0: (15: РАТМТ: НАМООМТУЕ 0$В МАЕ “55420” 
77 ТЕ ТМ 123<>255 ТНЕМ СОРУ 

78 РАЦЗЕ 0: ВЦ 


Команда РАМРОМИИЕ УЗВ 55420 в строке 75 (в старом файле "М. ВОХ" это происходит 
в строке 50) выводит на экране НЕЕР - РАСЕ, после чего происходит контроль, включён ли 
принтер и готов ли он к печати. Если готовность принтера есть, тогда 1М 123 даст значение 
127 (выключится 7 бит) и будет выполнена распечатка графической копии экрана. Таким 
образом, если Ваш принтер выключен, то строка 77 никак не будет влиять на работу 
программы, но как только Вам понадобится "твёрдая копия", достаточно будет всего лишь 
включить принтер. 

Но даже такой "мудрый" подход к команде СОР\У проблему решает только отчасти, так 
как невозможно предусмотреть заранее все многообразие интерфейсов принтеров, 
имеющих хождение в стране. Не у всех же 1РАМТ-3. Да и вряд ли имеет смысл тратить 
много сил и компьютерной памяти для решения проблемы в рамках этой программы. Ну в 
самом деле? Это же не текстовый редактор, где печать является определяющим 
параметром. Поэтому, предложу теперь второй выход - простой, но подходящий на все 
случаи жизни: вообще исключить команду СОРУ из программы. Она (программа) не сильно 
пострадает от этого. Кстати, СОР\ встречается в программе ещё в одном месте: в старом 
варианте "М/МНАМ" это строка 8210. Там по замыслу авторов должны выдаваться на печать 
параметры скомпилированного музыкального фрагмента. СОРУ надо удалить и в этой 
строке, ограничившись выводом данных только на экран. 


Компиляция. 

Теперь поговорим подробнее о самой компиляции. В принципе, при компиляции 
возможно задание любого адреса. Но определённые ограничения вносит строка 8160. В 
старом варианте "\ММНАМ" она запрещает задавать адрес меньше 32768. но если Вы захотите 
скомпилировать мелодию, скажем, для размещения её в нулевой Бейсик-строке или в 
дисплейном файле, то Вы не сможете это сделать. Для чего авторами программы внесено 
такое ограничение, наверное, уже никогда не узнать. Но Вы можете устранить этот дефект 
простой заменой числа в строке 8160. 

Кроме того, наверное ограничение накладывает строка 8161 старого "М. ВОХ". Если 
мелодия расположена близко к концу памяти (65535), то заданный адрес может оказаться 


недоступен, хотя при полученной реальной длине Вы можете рассчитать, что 
скомпилированный блок кодов поместился бы до конца памяти. Для устранения этого надо 
также изменить числовые параметры в строке 8161 (см. листинг "т. Бох"). 

Теперь будет возможно разместить мелодию в любом месте ОЗУ, и только адреса 
ПЗУ для компиляции будут недоступны. Причём, если задать заведомо большой адрес, 
например 65500, то программа после вывода сообщения о недопустимой длине, сама 
рассчитает и предложит Вам такое предельное значение адреса, которое позволит Вам 
расположить скомпилированный блок вплотную к концу ОЗУ (это опять, казалось бы, 
мелочь, но как приятно работать с такой дружелюбной программой!). 

Ещё один момент, связанный с компиляцией, на который хочется обратить внимание 
пользователя. В строке 7500 старого варианта "\ММНАМ" есть такой фрагмент: 


РОН 7=\/АЁ "23296" ТО МАЕ "23308": ВЕАВ 5: РОКЕ 7, $: МЕХТ 7: ВАМООМТУЕ 9$Н МАЕ "23296" 


Здесь создаётся вспомогательный кодовый блок, необходимый для компиляции. 

С одной стороны мы говорили о корректной работе интерфейса принтера, а с другой - 
в драйвер печати, находящийся в буфере принтера, вносятся изменения, разрушающие 
его... Если Вы решите убрать команду СОРУ\ из программы и отказаться от вывода на печать, 
то не произойдёт ничего плохого. Но если Вы всё же сохраните печать (как это было 
показано выше для интерфейса |РАМТ-3), то приведённый фрагмент будет систематически 
нарушать процесс печати. Вспомним, что печать (СОР\) используется при компиляции, как 
раз после того, как содержимое буфера принтера испорчено приведённым выше 
фрагментом. 

Хотя в предлагаемом варианте "”МНАМ" команда СОРУ исключена, всё же 
зарезервирована возможность для дальнейшего усовершенствования, пока не 
реализованного - распечатки полного текста на принтере. Поэтому для вспомогательного 
кодового фрагмента найдено другое место. Так как его работа временная, то есть 
возможность расположить его в экранной памяти, прямо в дисплейном файле, на том месте, 
где нет никакой информации. А для того, чтобы не "портить" изображение, надо 
предварительно "замаскировать" его, напечатав на этом месте пробелы с одинаковым 
белым цветом ИМК и РАРЕВ, включив эту печать, например, в строку 8000. Здесь печатается 
13 пробелов для "маскировки" блока кодов, который будет создан на этом месте строкой 
7500. В последней - соответствующим образом изменены значения адресов. 

Теперь вспомогательный блок кодов создаётся прямо на экране, но для пользователя 
это происходит совершенно незаметно. 


Другим недостатком процесса компиляции является такой момент. После 
завершения её, на экран выводятся комментарии по поводу ячеек, в которых можно задать 
темп мелодии и цвет бордюра. При запуске скомпилированного блока кодов Вы увидите, что 
и темп и цвет бордюра не совпадает с тем, что были заданы Вами в редакторе перед 
компиляцией. Поэтому придётся ещё неоднократно вносить изменения в кодовый блок, 
добиваясь требуемого темпа воспроизведения. 

Этот недостаток можно легко устранить, если процесс компиляции дополнить 
специальной Бейсик - строкой. Параметры, темп и цвет бордюра хранятся в памяти: 

темп - вячейке 52860, 
а цвет бордюра - в 52851 

и достаточно всего лишь перенести их в скомпилированный блок кодов. Но при этом 
надо учесть один момент. Перед занесением параметра, определяющего темп, надо внести 
определённые коррективы из-за разницы во времени работы воспроизводящих процедур. 
Экспериментальным путём подобрана величина смещения - заносится значение на 4 
меньше, чем в ячейке 52850 (строка 8080). 

Теперь после завершения компиляции Вам не потребуется вносить изменения - блок 
сразу же готов к работе. 


Кодировка мелодии. 

Исходный (нескомпилированный) текст мелодии, которая в данный момент 
редактируется, располагается с адреса 60000. Это - рабочая область. Общая длина 
массива - 2000 байтов. При сохранении мелодии в памяти этот массив перебрасывается в 
буфер, находящийся в старом "ММНАМ" с адреса 30000 длиной 12 Кб, а в новом - с 32000, 
длиной 10 Кб. Рабочая область с 60000 поделена на две равные части по 1Кб. С адреса 
60000 расположены коды первого канала, с адреса 61000 - второго канала. Изначально 
область, где расположен текст мелодии, заполнена кодом 41. Этот код для текста мелодии 
означает отсутствие ноты или "пауза" - то есть то же, что "пробел" для обычного текста. 

В ячейке 60000 находится код, определяющий скорость воспроизведения мелодии. 
Коды вводимых нот будут располагаться начиная с адреса 60001. Для второго канала - с 
61001. 

Для обозначения нот используются коды (в порядке повышения тона) с 244 по 255 и 
далее с 0 по 40. Самая низкая нота - "до" 1-ой октавы имеет код 244. Следующая за ней "до - 
диез" 1-ой октавы - код 245 ит. д. Код 255 соответствует ноте "си" 1-ой октавы. Следующая 
нота - "до" 2-ой октавы имеет код 0. А самая высокая нота - "ми" 5 октавы (клавиша ЗУМВ. 
ЗН. в режиме 4 октавы) имеет код 40. 

Коды с 42 по 239 для нот не используется, они соответствуют тем звуковым 
эффектам, которые можно реализовать в программе: имитируют звуки барабана, ударника, 
и т.д. Вставляя шумовые эффекты в мелодию, надо учитывать, что при этом в память 
заносятся два числа: в области памяти для 1 и для 2 каналов. Пара этих чисел определяет 
звучание эффекта. Этим объясняется их многообразие. Кстати, здесь кроется причина того, 
что поставив музыкальный эффект в каком-то месте, пользователь с удивлением 
обнаруживает, что удалить его он не может. Для нот удаление выполняется клавишей ЕМТЕВ 
(при этом в память заносится код 41). Для звуковых эффектов это не проходит, так как 
эффект определяется не одним числом, как нота, а двумя. Поэтому для того, чтобы удалить 
эффект, надо нажать ЕМТЕР в одном канале, затем вернуться на 1 шаг назад (клавиша "0"), 
переключить канал клавишей "Т" и еще раз нажать ЕМТЕВ, только тогда звуковой эффект 
будет стерт. 

При завершении мелодии, перед тем, как ее скомпилировать, необходимо 
"зациклить" ее, установив в обоих каналах маркер "конец мелодии". Кстати, он может быть 
различным для каждого канала, например, 1-ый канал является солирующим и имеет 
максимальную длину, а 2-ой канал, сопровождая мелодию, все время повторяет одну и ту 
же короткую последовательность нот, с периодом в несколько тактов. 

"Концу мелодии" соответствует код 64. Он ставится клавишей "\//". Не все знают о том, 
что маркер "конец мелодии" легко можно удалить. Это выполняется так. Надо подойти к 
концу и остановиться на самом последнем такте мелодии, затем нажать ЕМТЕВН. При этом в 
память будет занесена "пауза" на то место, где был маркер "конец мелодии". Код 64 просто 
заменится кодом 41. Это выполняется в каждом канале отдельно. 


Теперь мы подошли к наиболее интересной части, о которой говорилось выше. 


Дополнительные функции "М/НАМ". 

Они реализованы через дополнительное системное меню “ЗУЗТ.МЕМИ", вход в 
которое происходит теперь из титульного меню при нажатии клавиши "7" (в старом "М/ИНАМ" 
- это соответствовало "НЕГР РАСЕ"). При нажатии "7" программа попадает на строку 50. Вид 
системного меню представлен на рис 1. 


ШЛИ -РГ: ПЕ НЕСР-РАСЕ. 
ШЕШ-5етесь Ми5тс-кЕХ ---> 
ШЕШ-Ноие:пе РЕСОМРТЬЕЮ. 
ШЗШ-Топе ТНАМ5РОНЕЮ. 


При нажатии "“1" выводится страничка-подсказка, аналогично тому, как это 
выполнялось в старом "\ММНАМ". При нажатии "2" происходит смена нотного ключа на нижнем 
нотном стане. Этот момент требует комментария. 


Нотный стан. 

Динамический диапазон "”МНАМ" охватывает четыре полных октавы с первой по 
четвертую (и частично захватывает пятую). Эти октавы относятся к скрипичным, басовые 
октавы в "\ММНАМ" не используются. 

Тем не менее, верхний нотный стан - верхние пять линеек - предназначен для 
обозначения нот в скрипичном ключе, а нижний - в басовом. Поэтому Вы можете заметить, 
что, например, нота "соль" 3-ей октавы, находящаяся на предпоследней линии верхнего 
нотного стана, не соответствует таким образом ноте "соль", для 1 октавы, находящейся на 
последней линейке на низшем нотном стане. Но учитывая то, что нижний нотный стан 
представлен в басовом ключе, все выглядит верно. 

Это может оказаться неудобным если, например, надо набрать с нот мелодию, 
написанную так, что и верхний и нижний нотные станы находятся в скрипичном ключе. 
Поэтому добавлена новая функция - переключение нотного ключа на нижнем нотном стане. 
Теперь при переходе к редактированию мелодии (например, “б" в титульном меню), на 
экран выводится изображение нотных ключей. Нижний нотный стан формируется теперь 
тоже в соответствии с нотным ключом: в зависимости от последнего, с разницей в одну 
линейку. Это поясняет рисунок 2. 


Г Г 


Переключение выполняется при помощи подпрограммы СО $ЗЦВ 600. Формирование 
изображения нотных ключей производится подпрограммой в машинных кодах, выполняемой 
в строке 55. 

В соответствии с типом нижнего нотного ключа, вход в подпрограмму печати ключей 
должен происходить с разных точек входа: для басового ключа - 56746 (ООБААН), для 
скрипичного - 56754 (ООВ2Н). 

Для изображения ключей применен специальный символьный набор, а точнее, 23 
дополнительных символа, соответствующие кодам с 33 по 55 включительно (символы с “!" 
по "7"). Их образы расположены на свободном месте с адреса 56816 по 56999 
включительно. Изображение скрипичного ключа, например, складывается из 6 строк по 2 
знакоместа. “Текст”, изображающий нотные ключи, состоит из трех фрагментов, 
расположенных по адресам 65184 (ЕЕАОН), 65218 (РЕС2Н) и 65264 (ЕЕРОН), то есть по адрес 
65299 и таким образом в новом варианте включен в файл "\МПат 1"СОПЕ. 


Подпрограмма печати нотных ключей переключает СНАВ$ на этот новый символьный 
набор, производит печать нотных ключей, выводя на экран строку текста, 
"вырисовывающую" нотный ключ, а затем возвращает прежнее значение СНАВ$. 

Эта процедура расположена с адреса 56746 (ОБААН), следом за приведенной выше 
процедурой записи на диск заголовка файла. 


РОАА 11АОРЕ (ОЕ, ВЕЕАО 
ОА 012200 (2 ВС, #0022 
080 1806 ЧА #0088 

0082 1102-Е 1. ОЕ, $ЕЕС2 
0085 012Е00 10 ВС, #002Е 
088 24А365С 10 Н, (#5036) 
РОВВ Е5 РОЗН НЕ 

РОВС 21ЕЗОС (РНЕ, ВОСЕ 
БОВЕ 223656 10 (#5036), НЕ 
062 (03620 — САЕЕ #203С 

Ь065: ТТЕОЕЕ. ^ ЕО. БЕ РЕЕО 
008 012400 (2 ВКС, #0024 
0СВ (03620 — САЕЕ #203С 

РОСЕ Е1 РОР_ НЕ 

ОСЕР 223656 10 (#5036), НЕ 
0002 (9 ВЕТ 


Подпрограмма на Бейсике СО $УВ 600 в зависимости от типа ключа вносит 
изменения в формирователь нижнего нотного стана: для скрипичного ключа нотные линейки 
должны быть сдвинуты на 1 линию вниз по сравнению с басовым. Кодовый блок программы 
корректируется при помощи РОКЕ. 


Рекомпиляции. 

Это очень мощная новая возможность программы "М/НАМ". Но сначала некоторые 
дополнительные сведения о компиляции. 

При компиляции мелодии происходит следующее. Сначала подготавливается 
воспроизводящая процедура. Надо сказать, что ее длина непостоянна и зависит от 
исходного текста мелодии, наличия в ней шумовых эффектов. Звучание нот в обоих каналах 
определяется "нотной" процедурой, а шумового эффекта - "шумовой" процедурой. Если 
шумовые эффекты отсутствуют, длина воспроизводящей только "нотной" процедуры будет 
равна 267 байт. Если в мелодии используется хоть один шумовой эффект, то длина 
воспроизводящего блока увеличивается на 198 байт - столько занимает “шумовая" 
процедура. 

Затем к воспроизводящей процедуре пристыковывается нотная последовательность - 
берется фактическая длина исходного текста мелодии, отмеченная в рабочей области 
маркером "конец мелодии" для каждого голоса, формируется скомпилированный блок, как 
Вы уже знаете, с адреса 57000. В полученном блоке кодов изменяется адресация 
машиннокодовых команд переходов с абсолютной адресацией. Так выполняется "привязка" 
к тому адресу, который Вы задали при компиляции. Получается фрагмент кодов, состоящий 
из двух частей: "воспроизводящая процедура" и "нотная последовательность". Первая же 
команда воспроизводящей процедуры имеет вид: 

ЕБ НЕ, АБОН 

где АООВ - адрес, с которого начинается в памяти нотная последовательность. 

Исходя из этих данных, сделана подпрограмма, которая выполняет операцию, 
обратную компиляции, то есть выделяет из скомпилированного блока кодов исходный текст 
мелодии. Это очень часто нужно на практике. Например, Вы озвучили свою программу 
мелодией собственного сочинения, А потом захотели внести какие-то изменения в эту 
мелодию. Если Вы не сохранили исходный текст мелодии, то для выполнения этой задачи 
Вам пришлось бы набирать всю мелодию заново. Наличие подпрограммы рекомпиляции 
позволит Вам не сохранять все исходные тексты мелодий, а в любой момент получить из 
скомпилированного блока кодов полноценный исходный текст, доступный для дальнейшего 


редактирования. 

Вызов подпрограммы рекомпиляции происходит при нажатии "3" в системном меню. 
При этом программа переходит на строку 9000. После выбора устройства (магнитофон или 
дисковод) происходит загрузка скомпилированного блока кодов. Она выполняется в адрес 
57000, то есть туда, где как раз готовился к выгрузке скомпилированный блок. 

Теперь необходимо определить стартовый адрес $УТВ, для которого блок был 
скомпилирован. В случае диска, эти данные можно взять из системных переменных ТВ-О0О5, 
где они остались после загрузки (строка 9020). В случае загрузки с магнитофона, стартовый 
адрес можно прочитать в заголовке загружаемого файла. Он (заголовок) считывается во 
временную рабочую область памяти. Сразу же после завершения загрузки, пока временная 
рабочая область еще не уничтожена, его можно прочитать при помощи РЕЕК. Это выполняет 
строка 9030. В этой строке не используется прием по сокращению памяти типа \МАЁ "число", 
так как рассчет значения числа приводит к изменениям во временной рабочей области и 
преждевременному разрушению информации о считанном заголовке. 

Строки 9040... 9050 при помощи вспомогательного блока кодов, формируемого в 
дисплейном файле, производят очистку области памяти с 60000 длиной 2000 - где 
располагается текущая мелодия. Сюда будет выполняться рекомпиляция. Строки 9070-9090 
выполняют восстановление темпа воспроизведения. Правда, надо опять, как при 
компиляции, учитывать разницу во время работы машиннокодовых процедур, 
воспроизводящих мелодию. 

Строка 9100 рассчитывает адрес, с которого располагается нотная 
последовательность. Коды, расположенные с этого адреса, надо переписать в рабочую 
область с адреса 60001. Это выполняется при помощи подпрограммы @О $ЗЧУВ 9200. Если 
встречается код 64, соответствующий маркеру “конец мелодии", подпрограмма 9200 
заканчивает работу. Адрес расположения маркера "конец мелодии” запоминается в 
переменной М1 (строка 9110). Строки 9120-9130 выполняют аналогичные действия для 
второго канала. Адрес маркера конца - в переменной М2. 

После звукового сигнала, свидетельствующего о завершении рекомпиляции (строка 
9140), в строке 9150 следует запрос: надо ли уничтожить маркеры "конец мелодии". Это 
удобно, если Вы собираетесь продолжить мелодию, сделать ее длиннее, чем она была. В 
этом случае нажмите клавишу "\", иначе - любую другую (если Вам надо всего лишь 
скорректировать некоторые ноты, то маркеры удалять незачем). 

На этом подпрограмма рекомпиляции заканчивает свою работу и происходит возврат 
к титульному меню. Теперь восстановленный исходный текст мелодии находится в рабочей 
области. Его можно обрабатывать дальше, как обычно: редактировать, прослушать, 
сохранить и т.д. 


Транспонирование мелодии. 

В эту подпрограмму можно попасть при нажатии "4" в системном меню. Это очень 
удобный режим, если надо изменить тональность или перезадать мелодию для другой 
октавы. 

Программа транспонирования расположена со строки 5000. Прежде всего 
необходимо ответить на запрос, в какую сторону требуется изменить тональность: вниз или 
вверх. Это реализуется в строках 5010...5030. 

Следующий запрос (строки 5040-5060) - для какого канала выполнить 
транспонирование: 1 - только для первого; 2 - только для второго; 3 - для обоих каналов. 

В строке 5070 идет последний запрос: на какую величину произвести смещение. 
Минимальная величина - 1 тон. Если надо изменить тональность на 1 октаву, то величина 
смещения должна быть равна 12. 

Работа начинается в строке 5100 и выполняется в два этапа: вначале - проверка, 
затем - собственно замена кодов. В строке 5100 обнуляется флаг режима - переменная \. 
Если \=0, то проверка, если \=1, то замена кодов. При \/=0 происходит предварительный 
просмотр всего текста мелодии от начала до конца - возможно ли вообще осуществить 
транспонирование - не выйдет ли результирующая мелодия за пределы динамического 


диапазона “МНАМ". Это выполняется подпрограммой СО $ЗЦВ 5200 для двух каналов - 
соответственно в областях памяти с адреса 60001 и с 61001 в зависимости от заданных 
каналов (строки 5110-5180). Если в результате проверки выясняется, что должен быть 
получен тон, недоступный для "\ММНАМ", слишком высокий или слишком низкий, то процесс 
проверки прерывается с выдачей сообщения о невозможности транспонирования. Это 
выполняется переходом на строку 5300. После чего - возврат к титульному меню. А если 
проверка доведена до конца, то в строке 5130 устанавливается флаг \=1, что означает 
"транспонирование возможно". Можно переходить к замене кодов. Это выполняется путем 
возврата на строку 5110. Здесь процесс вызова подпрограммы СО ЗВ 5200 повторяется 
вторым циклом, но уже со значением флага \=1. В этом случае строка 5260 производит 
замену кодов. Выход из подпрограммы 5200 по достижении маркера "конец мелодии" или, 
при его отсутствии, по достижении последнего адреса рабочей области. 

Строка 5140 подводит итог транспонирования, после чего - возврат в титульное меню. 
Дальше - обычная работа с полученной мелодией. 

Надо сказать, что работа подпрограмм рекомпиляции и транспонирования, 
организованная в Бейсике, не отличается быстродействием, так что, выполняя их, 
наберитесь терпения. "Неторопливость" подпрограмм усугубляется внесением элементов 
экономии памяти: \/АЁ "число" и заменой чисел переменными. Но учитывая, что этими 
возможностями не каждую минуту придется пользоваться, с этим можно смириться. Лучше 
было бы, конечно, построить такие процедуры в машинных кодах, тем более, что это не так 
уж сложно и вполне доступно начинающим. Попробуйте, если хотите, заменить Бейсик 
машинным кодом. Я же - ограничусь идеей. 


Сокращение программы. 

Как известно, после загрузки программы мы имеем в памяти шесть 
демонстрационных мелодий. Кроме того, непосредственно в памяти может находиться 
седьмая. Это удобно, когда Вы в первый раз загружаете программу - можно послушать их, 
посмотреть, как задаются ноты и эффекты. Но когда Вы освоитесь и будете заниматься 
самостоятельным набором мелодий для оформления своих собственных программ, 
демонстрационные мелодии не понадобятся. Вы все равно будете удалять их, записывая в 
память на их место свои заготовки. Каждая мелодия занимает в памяти по 2 Кб. Исключив их 
из загрузки, можно сократить программу на 12 Кб. А если еще "выбросить" цветную заставку 
(около 7 Кб) то получится ощутимая экономия. 

Владельцы магнитофонных версий, представьте, во что выльется сокращение 
времени при каждой загрузке! Здесь речь идет не об урезании программы вообще, а о 
"персональной копии" - специальной версии, предназначенной для быстрой загрузки. И не 
об удалении демонстрационных мелодий вообще, их надо сохранить, но отдельно, на ленте 
(или дискете), чтобы всегда можно было при желании загрузить опять. Для этого надо 
каждую мелодию сначала загрузить из буферной памяти в рабочую область редактора, а 
затем сохранить на ленте (или диске). После того, как демонстрационные мелодии надежно 
сохранены, можно приступить к модификации кодового блока "\ММНАМ!2" СОПЕ. Начиная с 
адреса 30000, длиной по 2 Кб, здесь расположено 6 мелодий. Итого - по адрес 41999 
включительно. Можно сделать так: 


ГОАВ “МНАМ! 2"СО00Е 30000, 15000 
ЗАМУЕ “мирам 2”СОБЕ 42000, 3000 


Осталось только дополнить загрузчик небольшой подпрограммой, которая будет 
инициализировать область с 32000 (в старом варианте это надо было делать с 30000), 
заполняя ее кодом 41 -"пауза". Вот эта подпрограммка: 


[р Н,, 32000 
ЕВ (НЕ), 041 
[р ОЕ, 32001 
[0 ВС, 09999 
ЕОТЕ 
ВЕТ 


Для ее формирования и запуска универсальный Бейсик-загрузчик “\МНАМ\", 
приведенный в начале статьи, надо дополнить следующими строками: 


102 РОВ а=20480 ТО 20493: НЕАБ 6: РОКЕ а,6: МЕХТ а 
104 ВАМООМТУЕ Ц$Н 20480 
106 ВАТА 33, 0, 125, 54, 41, 17, 1, 125, 1, 15, 39, 237, 176, 201 


Кроме того, надо очистить (а точнее, заполнить пробелами или, например, словом: 
"ЕМРТУ") ту область, где хранятся названия демонстрационных мелодий. Это область с 
адреса 65300, по 10 байтов на каждое название. Эти исправления надо сделать в файле 
"МНАМ!3"СОПЕ. 

Для устранения загрузки картинки, из загрузчика можно удалять строку 30 и из строки 
25 исключить: 

[ОАВ “"ЭСВЕЕМ $: 

и перекомпоновать заново файлы для магнитофонного варианта. 

Теперь, когда описание программы и всех ее новых функций завершено, переходим к 
тем изменениям, которые надо выполнить в кодовых блоках. 


Изменение кодовых блоков. 
Ниже приводится программа на Бейсике, выполняющая все необходимые изменения 
в кодовых блоках “МНАМ!1"СОРЕ и “МНАМ!2"СОГЕ. По завершении она выдает новые 
файлы "мпат 1"СОПЕ и "мпат 3"СОБЕ. 
Программа предназначена для работы с магнитофоном. Владельцы "Спектрумов" с 
БЕТА-диском, наверняка сами сумеют внести необходимые коррективы. 


10 СЕЕАВ 31999: РОКЕ 23675, 88: РОКЕ 23676, 255 

20 ГОАБ “МНАМ! 1”СОБЕ 

30 1ОАБ “МНАМ! 3" СОБЕ 

40 РОКЕ 50908, 159: РОКЕ 50909, 79: РОКЕ 50921,223: РОКЕ 50922, 71 

50 РОКЕ 51248,0: РОКЕ 51253, 170: РОКЕ 51254, 221 

60 РОВ А=51374 ТО 51406: ВЕАБ В: РОКЕ А,В: МЕХТ А 

70 ВАТА 022, 017, 001, 127, 049, 057, 056, 053, 032, 077, 065, 082, 075, 032, 084, 073, 077, 069, 043, 127, 049, 
057, 057, 051, 032, 065, 076, 065, 078, 083, 079, 070, 064 

80 РОН А=51495 ТО 51527: ВЕАВ В: РОКЕ А,В: МЕХТ А 

90 ПАТА 083, 089, 083, 084, 046, 077, 069, 078, 085, 019, 000, 022, 015, 007, 032, 080, 082, 069, 083, 083, 032, 
067, 079, 078, 084, 082, 079, 076, 032, 075, 069, 089, 032 

100 РОН А=56728 ТО 56786: ВЕАБ В: РОКЕ А,В: МЕХТ А 

110 БАТА 014, 010, 205, 019, 061, 121, 042, 237, 221, 034, 230, 092, 014, 009, 205, 019, 061, 201, 017, 160, 
254, 001, 034, 000, 024, 006, 017, 194, 254, 001, 046, 000 

120 ВАТА 042, 054, 092, 229, 033, 232, 220, 034, 054, 092, 205, 060, 032, 017, 240, 254, 001, 036, 000, 205, 060 
‚ 032, 225, 034, 054, 092, 201 

130 РОВ А=56816 ТО 56999: НЕАБ В: РОКЕ А, В: МЕХТ А 

140 БАТА 000, 000, 000, 000, 000, 000, 000, 255, 016, 040, 044, 076, 076, 076, 076, 255, 128, 128, 128, 128, 
128,128,126,255,092,0988:,088, 120, 112,112, 096,255 
150 ВАТА 128, 129, 131, 131, 135, 134, 142, 255, 224, 192, 192, 064, 064, 064, 064, 255, 156, 153, 187, 187, 
183, 183, 182, 255,224,248,252, 252,078. 070,070, 255 
160 ВАТА 182, 179, 147, 153, 136, 132, 131, 255, 070, 070, 068, 068, 072, 080, 224, 255, 128, 128, 128, 134, 
143, 143, 142, 135, 064, 054, 064, 064, 064, 064, 128, 000 
170 БАТА 000, 000, 000, 006, 015, 015, 014, 007, 128, 128, 128, 128, 128, 128, 128, 128, 135, 140, 136, 144, 
144, 158, 159, 255, 128, 192, 224, 096, 118, 118, 112, 255 
180. АТА: 159,142. 128,128,;128: 128; 128;:255, Теа, Ир 2,102, 102,096;:255,.128,128,128.129, 
Таз. 190,255, 199;192: 128, 128 9000,000, 0909: 255 
190 ВАТА 132, 136, 144, 160, 128, 128, 128, 255, 000, 060, 064, 124, 006, 056, 060, 000, 000, 126, 002, 004, 
008, 016, 016, 000 
200 РОВ А=у$Н “А” ТО Ц$Н “В”+7: ВЕАБ В: РОКЕ А, В: МЕХТ А 

210 ВАТА 008, 120, 248, 248, 248, 112, 000, 000, 000, 000, 000, 009, 014, 008, 008, 008 

220 ЕОВ А=О$В "Е" ТО УЗВ "Е"+7: ВЕАО В: РОКЕ А, В: МЕХТ А 

230 ВАТА 248, 112,000, 000, 000, 000, 000, 000, 009, 014 008, 008, 008, 120, 248, 248 

240 РОВ А=65184 ТО 65299: НЕАБ В: РОКЕ А, В: МЕХТ А 

250 ВАТА 016, 000, 017, 007, 022, 008, 027, 035, 033, 033, 022, 009, 027, 047, 048, 033, 022, 010, 027, 049, 
050, 033,022,011,027,051,052,033,022,012,027,058 

260 ВАТА 033, 033, 016, 000, 017, 007, 022, 008, 027, 046, 128, 128, 022, 009, 027, 035, 034, 033, 022, 010, 
027, 035, 036, 033, 022, 011, 027, 037, 038, 033, 022, 012 


|=) 


270 ВАТА 027, 039, 040, 033, 022, 013, 027, 041, 042, 033, 022, 014, 027, 045, 044, 128, 022, 002, 027, 033, 
034, 033, 022, 003, 027, 035, 036, 033, 022, 004, 027, 037 

280 ВАТА 038, 033, 022, 005, 027, 039, 040, 033, 022, 006, 027, 041, 042, 033, 022, 007, 027, 043, 044, 128 

290 РОВ №=1 ТО 6: ВЕЗТОНЕ 300: РОВ М=1 ТО 10: ВЕАБ В: РОКЕ (65300+10*(№-1)+М-1),В: МЕХТ М: 
МЕХТ № 

300 ВАТА 045, 045, 069, 077, 080, 084, 089, 045, 045, 032 

400 ЗА\МЕ”мпат 1"”СООЕ 65184, 352 

410 ЗАМЕ”мпат З”СОБЕ 50000, 7000 


Цифры в строках ОАТА напечатаны одно под другим только для упрощения 
"читаемости" программы. Вы можете набирать их так, как Вам удобно (например, вместо 
"002" разумеется, можно набрать "2"). 

На этом мы заканчиваем изложение некоторых вопросов, связанных с музыкальным 
редактором “\ММНАМ", но ни в коем случае не заканчиваем музыкальную тематику. Наоборот, 
планируем всячески ее развивать в дальнейшем. В первом номере "7Х-РЕВЮ" будущего 
года мы продолжим рассказ о музыкальных редакторах. Будет рассмотрен другой вариант 
редактора "ММНАМ" - рассчитанный на работу с трехканальным музыкальным сопроцессором 
А\-8910 (8912). А затем, в дальнейшем, программы "ЗОЧМО-ТВАСЕВ" и "ЗОМОСОМРИЕВ", 
также рассчитанные на музыкальный сопроцессор. С их помощью можно создавать 
звуковое сопровождение такого высокого качества и широкой палитры звучания, что оно 
становится практически соизмеримо с музыкой, которую мы слышим по радио. 


ВОЗВРАЩАЯСЬ К НАПЕЧАТАННОМУ 


(С) Комиссаров П., 1993г. 
(С) "ИНФОРКОМ", 1993г. 


НЕСТАНДАРТНАЯ ЗАГРУЗКА 


В "7Х-РЕВЮ" №1-2 за этот год на стр. 31 мы опубликовали процедуру загрузки с 
изменением цвета бордюрных полос, взятую из игры “ВААВАНАМ-3", присланную 
Комисаровым Павлом из пос. Видово Мурманской обл. В этот раз мы продолжаем рассказ 
об этой процедуре, о иной нестандартной загрузке, а также связанных с этим некоторых 
приёмах защиты, пользуясь дополнительным материалом, любезно предоставленным нам 
нашими корреспондентом. 


Павел прислал дополнения к загрузчику, которые позволяют изменить его свойства. 

Правда, следует заметить, что, тестируя присланные им листинги, мы получали 
иногда несколько иные результаты, чем те, о которых пишет Павел. Поэтому публикуемый 
материал является коллективным творчеством: в основе - то, что прислал наш 
корреспондент, но с нашими изменениями и дополнениями. Итак, модернизация загрузчика 
блоков кодов без заголовка. 

1. Загрузка кодов, начиная со старших адресов к младшим. Для этого надо сделать 
такую замену: РЕБЗН - 2В. Это приведёт к тому, что по адресу ЕЕ5АН вместо команды ИМС Х 
получится команда [ЕС 1Х. Здесь надо отметить два момента. Во-первых, в вызывающей 
программе в регистре 1Х указывается не начальный, а конечный адрес загрузки (начальный 
адрес плюс длина ОЕ), так как загрузка идёт "наоборот". Другая особенность заключается в 
том, что, задав, скажем, для загрузки экрана, длину 6912 байтов. Вы обнаружите, что 
последний байт блока кодов (он будет первым байтом дисплейного файла) не грузиться. 
Поэтому, при подготовке блока к загрузке, следует задать длину на 1 байт большую, то есть 
6913 байтов. Для загрузки экранного файла, например, вызывающая программа, может 
выглядеть так. 


[р ТУ, #5800 
[р ОЕ, #1801 
[р А, НЕЕ 
СЕ 

САЕЕ ВЕ0ЕЗ 
ВЕТ 


При этом загружаемую "картинку" необходимо сначала "перевернуть" и увеличить её 
длину на 1 байт, например такой программой на Бейсике: 


(15: ЕОАБ "” ЗСВЕЕМ$ 
РОВ а=0 ТО 6912: РОКЕ (46912-а), РЕЕК(16384+а): МЕХТ а 
ЗА\УЕ “пате” С00Е 40000, 6913 


При выполнении записи на ленту в строке 3 пропустите заголовок, а только затем 
включайте магнитофон, то есть запишите только сам кодовый блок. 

При загрузке со старших адресов к младшим, будет слышно, как вначале грузятся 
атрибуты, а затем - графика. 

К сказанному можно добавить такой факт. В своё время нам попалась игра "ВОШЕЕВ 
СОАЗТЕН" (ЕМТЕ), в которой загрузка велась тоже “наоборот". Причём запись была 
отвратительного качества и едва читалась. Эта программа была переписана с магнитофона 
на магнитофон, так как ни один копировщик не мог её скопировать из-за большой длины. 
Даже копировщики с компрессированием памяти (типа "ТЕ-СОР\"). При более детальном 


рассмотрении выяснилось, что загрузка идёт там тоже со старших адресов в младшие, 
причём начинается с экрана (с атрибутов), затем пробегает область всего ПЗУ, затем, после 
достижения нулевых значений в счётчике адреса и его переполнения, продолжается с конца 
памяти и заканчивается буфером принтера. То есть, загружается (точнее говоря, делают 
вид, что загружаются) все 64К памяти! При этом переписывается и машинный стек, 
обеспечивая после окончания загрузки и возврата по ВЕТ автостарт программы. Сам факт 
существования ещё "не взломанной" программы уже говорит о высоком качестве защиты. 

Однако, такой метод защиты имеет смысл, если Ваша программа большая - 
использована практически вся память. Иначе сколько же лишнего времени будет занимать 
загрузка! Это очень "действует на нервы" и резко снижает симпатию к программе. Это тоже 
надо учитывать. 

Однако, возвращаемся к загрузчику от ВААВАНТАМА. 

2. При загрузке пилоттоны хаотично изменяют свой цвет, переливаясь всеми цветами 
радуги. Для получения этого эффекта в загрузчике от ВААВАН!АМа нужно изменить всего 
одну ячейку: РЕЭОН - 00. Можете также попробовать другой вариант: РЕЗЕН - ЕО, ЕЕЭОН - 5Е. 

3. При загрузке по бордюру проскакивают тонкие короткие разноцветные штрихи. 
Этот эффект получается, если изменить загрузчик следующим образом: 


РЕЭЕ": `ЧВЫЭР ЕО А, В 

ГЕЗЗ  ОЗЕЕ 09Т_ (НЕЕ), А 

ГЕ95 Е600 АМ #00 
ГЕ97 2608 ОН #06 

ГЕЗ9  ОЗЕЕ 09 (НЕЕ), А 

РЕВ. 297 СЕ 

ГЕЗС 09 ВЕТ 


4. Бордюр чёрный, индикация считывания (бордюрные полосы) производится в 
заданных позициях (знакоместах) экрана. Надо внести следующие изменения: 


ГЕЗ2 ЕЕОО Хон #00 

ГЕ7Т9  ЗЕОВ ЕО А, #0В 
ГЕЗЕ 3Е00 ЕО А, #00 
РЕ9 + 2е СРЕ 

ГЕ92  3290ЕЕ ЕО (#ЕЕЭО), А 
РЕ9э 2606 АМ #06 

ГЕ9З7  ЕЕО4 хоВ #04 

ГЕЗ9  2Е642 ОВ #42 

ГЕУВ 


Дальнейшая часть программы зависит от того, в каком месте экрана Вы хотите 
осуществить вывод бордюрных полос. Например, пусть это будут два знакоместа экрана: 
левое верхнее и соседнее с ним справа. Адреса ячеек в файле атрибутов, соответствующие 
этим знакоместам будут: 5800Н и 5801Н и продолжение программы будет таким: 


ГЕУВ 320058 ЕО (#5800), А 
ГЕЗЕ 320158 ЕО (#5801), А 
ГЕАТ 37 СЕ 

ГЕА? (9 ВЕ 


При этом в выбранных знакоместах должен находиться какой-нибудь графический 
образ. Тогда те пикселы, которые выключены (имеют цвет РАРЕРВ) будут иметь чёрный цвет 
и меняться не будут, а включенные пикселы (имеют цвет ИМК) будут переливаться красно- 
жёлтыми полосами, воспроизводя такие же полосы, какие мы видим по бордюру экрана при 
загрузке. Довольно-таки оригинальный эффект получается: одно и то же знакоместо имеет 
чёрный фон и, в то же время, на включенных пикселах наблюдаем красные и жёлтые полосы. 
Вы спросите, как же такое вообще может быть? Ведь "Спектрум" устроен так, что в принципе 
одно знакоместо не может иметь больше двух цветов: 1МК и РАРЕВН? Дело здесь в том, что на 
получающуюся картину накладывается ещё одно явление - строчная развёртка экрана. 


Поэтому быстрая смена цвета 1МК приводит к тому, что во время развёртки кадра одна 
строка имеет, красный цвет, а другая строка развёртки уже имеет жёлтый цвет, что и 
создаёт необычный эффект. 

Ещё на один оригинальный способ загрузки, применённый в программе "КВАКОЧТ-1!", 
обратил внимание Павел. Смысл её состоит в том, что блок кодов с одним пилот-тоном 
может вести загрузку в разные адреса. Например, картинка там загружается так: верхняя 
треть экрана, затем атрибуты верхней трети, нижняя треть, атрибуты нижней трети, средняя 
треть, атрибуты средней трети. Программа при этом выглядит так: 


р ТУ, #4000 
[р ОЕ, #0800 
[р А, НЕЕ 


тм | 

ЕХ АР, А’Е 
0ЕС | 

САЕЕ 805ЕА 

[р ТУ, #5800 
[р ОЕ, #0100 
САЕЕ #05А9 
ВЕТ 


Это тоже можно несложно использовать, нужно только предварительно переделать 
загружаемый блок под этот загрузчик (как при загрузке экрана "наоборот"). Например, для 
того, чтобы загружать экран так: верхняя треть, затем её атрибуты, средняя треть и её 
атрибуты, нижняя треть и её атрибуты, надо вначале подготовить блок кодов к загрузке при 
помощи такой программы на Бейсике. 


1 (15: 1ОАБ “” СОБЕ 16384 

2 РОН а=0 ТО 2048: РОКЕ (40000+а), РЕЕК (16384+а): МЕХТ а 
3 ГОН а=0 ТО 256: РОКЕ (42048+а), РЕЕК (22528+а): МЕХТ а 
4 ЕОН а=0 ТО 2048: РОКЕ (42304+а),РЕЕК (18432+а): МЕХТ а 
5 ЕОН а=0 ТО 256: РОКЕ (44352+а), РЕЕК (22784+а): МЕХТ а 
6 ГОН а=0 ТО 2048: РОКЕ (44608+а), РЕЕК (20480+а): МЕХТ а 
7 РОН а=0 ТО 256: РОКЕ (46656+а),РЕЕК (23040+а): МЕХТ а 
8 ЗАМЕ “пате” СОБЕ 40000, 6912 


Для загрузки этого блока кодов (без заголовка) может быть использована следующая 
программа в кодах. 


АВО0 00210040 ЕО ТХ, #4000 
АВО4 110008 [№ ОЕ, #0800 
АВО7  ЗЕРЕ ЕО А, НЕЕ 
АВО9 37 СЕ 

АВОА РЕЗ от 

АВОВ 14 с 0 

АВОС 08 ЕХ АЕ, А’Е 
АВОО 15 0ЕС 0 

АВОЕ — С06А05 САЕЕ  #056А 
АВЯ1 00210058 ЕО ТХ, #5800 
АВ15 110001 ЕО ОЕ, #0100 
АВ18 — (04905 САЕЕ #0549 
АВВ 00210048 ЕО ТХ, #4800 
АВЛЕ 110008 ЕО ОЕ, #0800 
АВ22 (С0А905 САЕЕ #05А9 
АВ25 00210059 ЕО ТХ, #5900 
АВ29 110001 ЕО ОЕ, #0100 
АВ2С  С0А905 САЕЕ #0549 
АВ2Е 00210050 0 ТХ, #5000 
АВЗЗ 110008 ЕО ОЕ, #0800 


АВЗб  С0ААЭ05 САЕЕ #05А9 
АВЗ9 0021005А ЕО ТХ, #5А00 
АВЗО 110001 ЕО ОЕ, #0100 
АВ4О0 (04905 САЕЕ #05А9 
АВ4З ЕВ ЕТ 

АВ44 08 ВЕ С 

АВ45 СЕ Вот 8 

АВ46б ТА ОЕРВ  #1А 


Для примера, этот блок кодов расположен с адреса АВООН, но он может находиться в 
любом другом месте. 

Если контроль качества считывания не нужен, то замените команду по адресу АВ44Н 
на ВЕТ (СЭН). 

Изложенное явление можно использовать не только для загрузки картинки, но и для 
любого другого массива кодов, причём количество таких дописываемых по отдельности 
блоков может быть достаточно большим, создавая много хлопот взломщикам. 

А теперь предлагаем ещё один способ нестандартной загрузки, присланной 
Комиссаровым Павлом. Он "вытащил" его из программы "ЕВЕШБУ-2". Этот загрузчик 
загружает экранный файл длиной 6912 байт по четвертям экрана в шахматном порядке. 
Приблизительно это выглядит так: 


Причём загрузка изображения в каждую четверть идёт так: Сначала - графика, но не 
как обычно - линиями с шагом по 8 пикселов, да ещё с делением по третям экрана, а 
пиксельные линии идут подряд, одна за другой, сверху донизу, картинка разворачивается 
плавно и непрерывно, пока не заполнится вся четверть экрана. Затем - загрузка атрибутов, 
но опять, не как обычно - по строкам сверху вниз - а по столбцам, то есть изображение 
окрашивается слева направо. И так повторяется для каждой четверти. 

Для того, чтобы загрузить таким образом картинку, надо её сначала подготовить. 
Павел предлагает программу на Бейсике, которая это выполняет аналогично тому, как это 
делалось при загрузке "наоборот". 


1 СЕЕАВ 39999: 10АБ “”” СО0Е 40000, 6912 

10 ТЕТ па=50000 

20 ЕОВ а=1 ТО 4: РОН $=0 ТО 11: ВЕАО адг: РАТМТ $; СНВ$ 143;: РОВ К=0 ТО 7: ЕОВ а=0 ТО 15 

30 РОКЕ па, РЕЕК ааг: ЕЕТ адг=ааг+1: ЕЕТ па=па+1: МЕХТ а: (ЕТ адг=а9г+240: МЕХТ к: МЕХТ $: 

РВАТМТ: РАТМТ 

40 ВЕАО адг: ТЕТ Ка=ааг: РОВ а=0 ТО 15: РОВ 6=0 ТО 11: РОКЕ па, РЕЕК а@г: ЁГЕТ адг=адг+32: 
ЕЕТ па=па+1: МЕХТ Б 

50 1ЕТ айг=Ка+1: 1ЕТ Ка=ка+1: МЕХТ а: МЕХТ а 

60 ВЕЕР .1, 32: 5А\МЕ “пате” СОБЕ 50000, 6912: 5ТОР 

70 ВАТА 40000, 40032, 40064, 40096, 40128, 40160, 40192, 40224, 42048, 42080, 42112, 42144, 46144 

80 БАТА 42192, 42224, 42256, 42288, 44112, 44144, 44176, 44208, 44240, 44272, 44304, 44336, 46544 

90 ВАТА 40016, 40048, 40080, 40112, 40144, 40176, 40208, 40240, 42064, 42096, 42128, 42160, 46160 

100 ВАТА 42176, 42208, 42240, 42272, 44096, 44128, 44160, 44192, 44224, 44256, 44288, 44320, 46528 


После запуска программа ждёт загрузки нормальной картинки, а после загрузки 
начинается перекодировка. Пока она выполняется, на экран выводятся цифры. По ним 
можно определить, много ли осталось ждать до завершения работы. Программа должна 


вывести четыре строки чисел от 0 до 11. 

После этого программа предложит записать полученный блок кодов. При записи 
пропустите заголовок, и только после него включайте магнитофон. 

Загрузка полученного блока кодов без заголовка выполняется при помощи 
следующего загрузчика: 


ЕАбО Е07360ЕВ ЕО (#ЕВбО), $Р ЕАО2 00Е5 РУЗН 1Х 

ЕАб4 37 СЕ ЕАО4 1208 ЕО Е, #08 
ЕАб5 3Е00 ЕО А, #00 ЕАОб  00Е5 РУЗН 1Х 

ЕАб7  РГЕОТ СР #01 ЕАО8 0610 ЕО В, #10 
ЕАбЭ 08 ЕХ АЕ, АР’ ЕАБА (5 РУЗН ВС 

ЕАбА РГ от ЕАОВ  СО4ЕЕВ САЕЕ  НЕВАЕ 
ЕАбВ  ЗЕОЕ ЕО А, #0Е ЕАБЕ 3068 ЧА №, #ЕВ48 
ЕАбО ОЗЕЕ 09 (НЕЕ), А ЕАЕО С1 РОР ВС 

ЕАбЕ ОВЕЕ Т А, (НЕЕ) ЕАЕТ 007500 ЕО ТХ+0), Е 
ЕАТТ ТЕ ВНА ЕАЕ4 0023 С  [Х 

ЕА72 Е6б20 АМ #20 ЕАЕб 1072 0]№  ВЕАБА 
ЕА74 [7602 ОВ #02 ЕАЕВ  ООЕТ РОР 1Х 

ЕАТб 4Е ЕО С, А ЕАЕА 0024 мс т 

ЕА?Т7 ВЕ СР А ЕАЕС 10 ОЕ Е 

ЕА7Т8 (С248ЕВ УР 2, #ЕВ48 ЕАЕР 20Е7 ЧА №, НЕАОб 
ЕАТВ  С0Е705 САЕЕ  #05Е7 ЕАЕР 00ЕЛ РОР 1х 

ЕАТЕ З0Р8 ЧА С, НЕА7В ЕАРТ 007С ЕО А, Т 

ЕАО 211504 ЕО НЕ, #0415 ЕАЕЗ Еб18 АМ #18 

ЕАЗЗ 10РЕ 0)№  ВЕАЗЗ ЕАР5 47 ЕО В, А 

ЕАЗ5 28 ОЕ НЕ ЕАРб 0070 ЕО А, Х 

ЕАЗб 7С ЕО А, Н ЕАР8  ЕбЕЙ АМ НЕО 

ЕАЗ7 Н5 ОВ Ё ЕАРА 07 ВЕСА 

ЕАЗ8 2079 УВ 2, #ЕАВЗ ЕАЕВ 07 ВЕСА 

ЕАЗА  (С0ЕЗОЪ САЕЕ  #05ЕЗ ЕАРС 07 ВЕСА 

ЕАЗО 30Е9 ЧА С, НЕА7В ЕАЕО ВС ОВ В 

ЕАЗЕ 0690 ЕО В, #9С ЕАЕЕ ЗС м А 

ЕАЯ1  С0ЕЗОЪ САЕЕ  #05ЕЗ ЕАЕЕ 47 ЕО В, А 

ЕА94  З0Е2 ЧА С, НЕА7В ЕВОО Еб18 АМ #18 

ЕАЭб ЗЕСб ЕО А, #Сб ЕВОг [640 ОВ #40 

ЕА98 В8 СР В ЕВО4 0067 ЕО Т.А 

ЕА99 30Е0 УВ С, НЕА7В ЕВО5 78 ЕО А, В 

ЕАУВ 24 С НН ЕВО7 Е607 АМ #07 

ЕАЭС 20271 УВ 2, ВЕАЗЕ ЕВО9 ОЕ ВВСА 

ЕАЗЕ 0609 ЕО В, #С9 ЕВОА ОЕ ВВСА 

ЕААО С0Е7ТО5 САЕЕ  #05Е7 ЕВОВ ОЕ ВВСА 

ЕААЗ 3003 ЧА С, НЕА7В ЕВОС 47 ЕО В, А 

ЕААЗ 78 ЕО А, В ЕВОВ 0070 ЕО А, Х 

ЕААб  ГЕБ4 СР #04 ЕВОЕ ЕбЛЕ АМ #1Е 

ЕААВ 3074 УВ С, НЕАУЕ ЕВ ВО ОВ В 

ЕААА С0Е705 САЕЕ  #05Е7 ЕВ12 006Е Е Х, А 

ЕААБ 0248ЕВ УР С, НЕВА8 ЕВ14 15 ОЕ О 

ЕАВО 79 ЕО А, С ЕВ15 20ВВ ЧА М, ВЕАО2 
ЕАВЛ  ЕЕОЗ хОВ — #03 ЕВЛ7  ООЕЛ РОР  ТХ 

ЕАВЗ 4Е ЕО С, А ЕВ19 007С ЕО А, Т 

ЕАВ4 2600 ЕО Н, #00 ЕВЛВ 2618 АМ #18 

ЕАВб 0680 ЕО В, #ВО ЕВЛЬ ОЕ ВВСА 

ЕАВ8  СО4ЕЕВ САЕЕ НЕВАЕ ЕВЛЕ ОЕ ВВСА 

ЕАВВ 118048 ЕО ОЕ, #4880 ЕВЛЕ ОЕ ВВСА 

ЕАВЕ 05 РУЗН ОЕ ЕВ20 [658 ОВ #58 

ЕАВЕ 111040 ЕО ОЕ, #4010 ЕВ22 0067 ЕО Т.А 

ЕАС2 05 РУЗН ОЕ ЕВ24 0610 ЕО В, #10 
ЕАСЗ 119048 ЕО ОЕ, #4890 ЕВ26 (5 РУЗН ВС 

ЕАСб 05 РУЗН ОЕ ЕВ27 0600 ЕО В, #0С 
ЕАС7 00210040 ЕО ТХ, #4000 ЕВ29. ПООЕЗ РУЗН о 1Х 

ЕАСВ 0604 ЕО В, #04 ЕВ2В (5 РУЗН ВС 

ЕАСО (5 РУЗН ВС ЕВ2С  СО4ЕЕВ САЕЕ  НЕВАЕ 
ЕАСЕ  00Е5 РУЗН 1Х ЕВ2Е 3017 УВ МС, #ЕВ48 
ЕАБО 1600 ЕО 0, #0С ЕВЗ1 007500 ЕО (ХО Е 
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(С)Р. Купцов, Д. Мальтов, 1993г. 


ИСПРАВЛЕННЫЕ ОШИБКИ ПЗУ. 


В последних двух номерах прошлого года мы опубликовали обзор зарубежной 
прессы, обобщив те сведения, которые имеются по ошибкам в стандартном системном ПЗУ 
"Спектрума". 

Работа получила благожелательные отзывы от наших читателей. По-видимому, им 
важно всё, что связано с ПЗУ, а тем более с его ошибками. 

Вместе с тем встал интересный вопрос: “А как обстоит дело в ПЗУ ТУРБО-90?". 
Результатами своих исследований по этому поводу делятся наши корреспонденты Роман 
Купцов и Мальтов Денис из г. Новгорода. Тема не закрыта, мы опубликуем и другие взгляды, 
освещающие этот вопрос, тем более, что интересно бы рассмотреть и свои "собственные" 
ошибки Турбо-ПЗУ. 


КОРР: Мы являемся постоянными читателями "7Х-РЕВЮ" с 1992 года. Ваш журнал 
выше всяких похвал! Сами мы занимаемся программированием три года и Вы нам в этом 
очень помогли, особенно в том, что связано с программированием в машинных кодах. У Вас 
постоянно свежий и хорошо поданный материал, а Ваши статьи по секретам ПЗУ в 1991 г. - 
просто класс! Неоценимая помощь любому программисту. 

ИФК: Спасибо, конечно, друзья на добром слове, но позвольте нам остаться при 
своём мнении. Статьи эти о ПЗУ в 1991 году были, возможно, полезны, но мы их 
рассматриваем как СОВЕРШЕННО НЕУДАЧНЫЙ опыт и РЕШИТЕЛЬНО ими НЕДОВОЛЬНЫ. 
Знаете ведь: "Первый блин... и т.д.". В общем, случился с нами приступ внутренней 
аллергии. Так бывает, когда хочешь сделать что-то хорошее, а чувствуешь, что получается 
не то. 

Потому мы и прекратили их давать. Мы тогда только начинали и опыта общения с 
читателями было маловато. Сейчас мы всё сделали бы по-другому. И будьте уверены, 
сделаем! В наших планах на 2-ой квартал 1994 года стоит книга о системном ПЗУ, которая 
действительно класс! Мы готовим удобный и понятный способ подачи материала и уверены, 
что книга будет отличной. Так что позвольте Ваши комплименты принять авансом, а мы 
постараемся этот аванс отработать по-честному. 


КОРР: Мы хотим поделиться с Вами и со всеми читателями некоторыми находками из 
ПЗУ ТУРБО-90. Немного покопавшись в нём, мы обнаружили (не без помощи "7Х-РЕВЮ”"), 
что некоторые из ошибок системного ПЗУ там исправлены. 


Исправлено: 
1. Процедура обработки немаскированного прерывания ПМТ, начиная с адреса 0066Н, 


РОЗН АР 

РОЗН НЕЁ 

[М НЕ, (5СВ0) 

ЕО А, Н 

ОВ Е 

УВ 2,0070Н: ошибка исправлена, в фирменном ПЗУ здесь стоит УН №, 0070Н 


2. Ошибка деления, т.е.: 
ТЕ 1/2 <> 0.5 ТНЕМ РЕАТМТ "“Ки-Ки”. 
В Турбо-ПЗУ здесь "Ки-Ки" не печатается. 


3. Ошибка "-65536"; т.е. РАИМТ ТМ "-65536" даёт - 65536. 
4. СНА$ 9 работает. 
5. СНА$ 8 работает правильно. 


6. 5ТН$ работает правильно, т. е. 
РЕАТМТ "Ки-Ки" + 5ТН$ 0.5 

даёт: 

Ко-Ки0.5 


7. Ошибка ЭСВЕЕМ$ исправлена, т.е. 
ТЕ "Х”=5СВЕЕМ$ (0,0) ТНЕМ РАТМТ “Ки-Ки" 
Ки-Ки не печатается, когда в текущем знакоместе (0, 0) нет "Х" 


8. Исправлена ошибка курсора текущей строки: т.е. 
9000 РАТМТ\90О1\ЕВТТ, 
где значок "\" означает ЕМТЕВ, выдаёт на редактирование строку 9000, а значок ">" в 
нижней части экрана не появляется. 


9. Исправлена ошибка ведущего пробела. 


Неисправленные ошибки: 
. Особенность регистровой пары Н’!’ (альтернативной). 
. Ошибка оператора РИОТ. 
. Ошибка СТОЗЕФ. 
. Ошибка Зсго!? 
. Ошибка К-режима. 
. Ошибка проверки синтаксиса. 


овом — 


Непроверенные ошибки. 
. Ограничение по использованию регистровой пары №. 
. Особенности пользовательской функции ЕМ. 
. Ошибки кодов управления цветом. 
. Ошибка МОО_ОМ (кальк-р). 
. Ошибка Е ТО_ЕР (кальк-р). 
. Ошибка ИМКЕУ$ #0. 


овом — 


Чтобы 


Аауептиге Сате$ 


"Аауетиге Випата зуЗет" 
Окончание. Начало см. в предыдущем выпуске. 


Файл ' 


'МТВО" (Лист. 3) 


Файл "аауетиге" (Лист._4+5) 


Файл‘ 
Файл‘ 


'зу$ет"СОРЕ 
'оБес{5"ОАТА 


завершить демонстрационную программу, 


начатую нами в предыдущем 
номере "7Х-РЕВЮ", загрузите программу с ленты_В (Листинг 4) и добавьте строки: с 1100 
по 3315 из Листинга_5. Сохраните готовую демонстрационную игру командой ВИМ 9990. 
Скомпонуйте файлы готовой демонстрационной программы в следующем порядке: 


Последние два файла сгенерированы при помощи головной программы АВ5. 


Листинг 5. 
Текст 2-ой части демонстрационной игры. Продолжение файла "адуещиге". 


1100 ТЕ М№МО>МОВ ТНЕМ ТЕТ А$(1)=”ЭТО НЕВОЗМОЖНО! ”: @0 ТО 50 

1105 ТЕ РЕЕК (0+№0)=99 ТНЕМ ТЕТ А$(1)="ПРОВЕРЬТЕ СВОЙ ИНВЕНТАРЬ! ": 60 ТО 50 

1110 ТЕ РЕЕК (0+№0)<>РЕЕК Е ТНЕМ ЕЕТ 8В$(1)="НАВЕРНОЕ, ЭТО ВАМ ПРИСНИЛОСЬ! ": 60 ТО 50 

1115 ТЕ РЕЕК (Р+99)>=МАХ ТНЕМ ТЕТ В$(1)="У ВАС ВЕДЬ ТОЛЬКО ДВЕ РУКИ, ": ТЕТ 8$(2)="ВАМ ВСЕ 
ЭТО НЕ УНЕСТИ.”: 60 ТО 50 

1120 ТЕ №=7 ТНЕМ (1$ : 60 $0В 8800: РВТМТ АТ 2, 10; "ПОЗДРАВЛЯЕМ": 60 50В 8800: РАТМТ АТ 
5,3; "ВЫ ЗАКОНЧИЛИ СВОЮ МИССИЮ. ": 60 58 8800: 60 ТО 1602 

1125 РОКЕ (0+№0),99: РОКЕ (Е+99),РЕЕК (Е+99)+1: [ЕТ В$(1)="0.К.” : 60 ТО 50 

1200 ТЕ №>МОВ ТНЕМ ГЕТ В$(1)=“НЕ БУДЕМ ДЕЛАТЬ ГЛУПОСТЕЙ! ":; 60 ТО 50 

1205 ТЕ РЕЕК (0+№0)<>99 ТНЕМ ТЕТ Н$(1)=“"ПРОВЕРЬТЕ СВОЙ ИНВЕНТАРЬ! ": 60 ТО 50 

1210 ТЕ №=9 АМО РЕЕК Е<>11 ТНЕМ РОКЕ (0+9),0: РОКЕ (0+2), РЕЕК Е: РОКЕ (Е+2),0: РОКЕ 
(Е+99), РЕЕК (Е+99)-1: ТЕТ В$(1)="0.К. ОН СРАЗУ ЖЕ ПОГАС.”: 60 ТО 50 

1215 ТЕ М№0=9. ТНЕМ. РОКЕ` (0+9), ОтРОКЕ: (0+2),РЕЕК Е; РОКЕ (Р+2),0: РОКЕ (2Е+99) „РЕЕК (7+99)=1: 
ВАМООМТ7Е 0$В $5: РАТМТ ТМК 5; "О.К. НО ОН ТУТ ЖЕ ГАСНЕТ!! |": 60 $0В 8800: 60 ТО 100 

1220 ТЕ №=8 ТНЕМ ЕТ А$(1)="НО ВЕДЬ ОН НАДЕТ НА ВАС.”: 60 ТО 50 

1230 РОКЕ (0+№0),РЕЕК Е: РОКЕ (Е+99),РЕЕК (Е+99)-1: ТЕТ В$(1)="0.К.”: 60 ТО 50 

1300 ТЕ №0<10 ТНЕМ 60 ТО 1350 

1302 ТЕ №<>16 ТНЕМ 60 ТО 1315 

1305 ТЕ (РЕЕК Е=8 ОВ РЕЕК Е=9) ТНЕМ ТЕТ В$(1)="ДВЕРЬ СДЕЛАНА ИЗ ДОБРОТНОГО”: ЕЕТ 
Н$(2)="ДЕРЕВА И В ДАННЫЙ МОМЕНТ”: ГЕТ В$(3)="ЗАКРЫТА, НО НЕ ЗАПЕРТА. " 

1310 ТЕ РЕЕК (Е+4)=1 ТНЕМ ТЕТ 8$(3)=”“ОСТАЕТСЯ ШИРОКО ОТКРЫТОЙ. " 

1313 60 ТО 50 

1315 ТЕ №<>21 ТНЕМ 60 ТО 1335 

1317 ТЕ (РЕЕК Е=14 ОВ РЕЕК [Е=15) ТНЕМ ГЕТ В$(1)="ВОРОТА СДЕЛАНЫ ИЗ НЕВАЖНОГО”: ЕЕТ 
Н$(2)="ДЕРЕВА И В ДАННЫЙ МОМЕНТ”: ГЕТ В$(3)="ЗАКРЫТЫ ИЗНУТРИ НА ЗАСОВ. " 

1320 ТЕ РЕЕК (Е+7)=1 ТНЕМ 1ЕТ В$(3)="ОСТАЮТСЯ ОТКРЫТЫМИ. " 

1322 @0 ТО’ 50 

1325 ТЕ (РЕЕК Е=15 АМО (№=23 ОН №=18) АМО РЕЕК (Е+6)=1) ОВ (РЕЕК Е=7 АМО РЕЕК (Р+5)=1 АМО 
№0=24) ТНЕМ ТЕТ В$(1)="ЗДЕСЬ ЯМА, БУДЬТЕ ОСТОРОЖНЫ! ": 60 ТО 50 

1330 ТЕ ((РЕЕК Е=15 АМО (№=23 ОВ №=18)) ОВ (РЕЕК Е=7 АМО №=24)) ТНЕМ ЕЕТ 8$(1) = 
"ЧУВСТВУЕТСЯ ЗАБОТЛИВЫЙ УХОД, ": ГЕТ 8В$(2)="НО НЕДАВНИЙ ДОЖДЬ ОСТАВИЛ”: ТЕТ 
А$(3)="РАСКИСШУЮ ПОЧВУ! ": 60 ТО 50 

1335 ТЕ №=22 АМО ((РЕЕК Е=7 АМО РЕЕК (-+5)=1) ОВ (РЕЕК Е=15 АМО РЕЕК (Р+6)=1)) ТНЕМ ЕЕТ 
#$(1)=”ЭТО ДОВОЛЬНО ГЛУБОКАЯ ЯМА, ": ЕЕТ 8В$(2)="И ЕСЛИ ТУДА СВАЛИТЬСЯ, Т0О...!”: 60 ТО 
50 

1340 ТЕ РЕЕК Е=15 АМО №=26 АМО РЕЕК (Е+6)=0 ТНЕМ ГЕТ 4$(1)="ВЫГЛЯДИТ ТАК, КАК БУДТО ЗДЕСЬ”: 
ГЕТ В$(2)="КТО-ТО КОПАЛ.”: @0 ТО 50 

1345 60 ТО 1375 

1350 ТЕ (РЕЕК (0+№0)<>РЕЕК Е АМО РЕЕК (0+№0)<>99) ТНЕМ 1ЕТ В$(1) ="НО ВЕДЬ ЕГО РЯДОЙ С ВАМИ 
НЕТ! ”: 60 ТО 50 


1355 ТЕ №=1 ОН №=8 ТНЕМ ГЕТ В$(1)=“КРАСИВЫЙ ПЛЕД, ВЫГЛЯДИТ КАК”: 1ЕТ 8$(2)="ИЗ ФРАНДУЗСКОЙ 
ШЕРСТИ. ": 60 ТО 50 
1360 ТЕ №=2 ОВ №=9 ТНЕМ ТЕТ 8$(1)="НЕБОЛЬШОЙ ФАКЕЛ, СОВЕРШЕННО”: ГЕТ В$(2)=" ОБЫКНОВЕННЫЙ 
НА ВИД. ”: 60 ТО 50 
1365 ТЕ №=3 ТНЕМ ЁЕТ А$(1)="ОНА ДОСТАТОЧНО ПРОЧНА.": 60 ТО 50 

1370 ТЕ №=7 ТНЕМ ТЕТ 8$(1)="ЧТО ЗА ПОДОЗРЕНИЯ! ": ТЕТ 8$(2)=”"(ОН НАСТОЯЩИЙ. СКОРЕЙ БЕРИ 
ЕГО”: ГЕТ 8$(3)=”И ПОКОНЧИМ С ЭТИМ ДЕЛОМ! ": 60 ТО 50 

1372 ТЕ №=6 ТНЕМ ГЕТ В$(1)=“НУ ЧТО ВЫ ЕРУНДОЙ ЗАНИМАЕТЕСЬ! ": 60 ТО 50 

1375 ЕЕТ В$(1)="ВЫГЛЯДИТ СОВЕРШЕННО ОБЫКНОВЕННО, ": ЕЕТ 4$(2)="НЕТ НИЧЕГО СТРАННОГО.": @0 ТО 
50 

1400 60 ТО 100 
1500 НАМООМТ7Е 0$В $$: РАТМТ ТАВ 3; РАРЕВ 2; "ОНННННННННННННННННННННННЕ" 

1501 НАМООМТ7Е 0$В $$: РАТМТ ТАВ 3; РАРЕВ 2; ТАК 6; "А"; ТМК 7;” В ВАШЕМ РАСПОРЯЖЕНИИ: ”; ТМК 
56” 

1502 НАМООМТ7Е 0$В 64968 

1503 ТЕТ НЕ=0 

1504 РОН Х=0 ТО (МОВ-1) 

1506 ТЕ РЕЕК (РВ$+Х)=0 ТНЕМ ТЕТ Х=МОВ: 60 ТО 1512 

1508 НАМООМТ7Е 0$В $$: РАТМТ ТАВ 3; РАРЕВ 2; ТМК 6; "А ”; Т\Т 7;0$(РЕЕК (РВ$+Х)); ТМК; "в": 
ГЕТ НЕ=НЕ+1 
1510 МЕХТ Х 

1512 ТЕ НЕ=О ТНЕМ НАМООМТУЕ 058 $$: РАТМТ ТАВ 3; РАРЕВ 2; ТМК 6 ;”А”; ТМК 7; "НЕТ СОВСЕМ 
НИЧЕГО”; ТМК 6; "6" 
1513 НАМООМТ7Е 0$В $$: РАТМТ ТАВ 3; РАРЕВ 2; “СВВВВВВВВВВВВВВВВВВВВВВВЕ” 


1514 60 ТО 195 

1600 (15 

1602 РВТМТ АТ 8, 2; “ХОТИТЕ ПОПРОБОВАТЬ ЕЩЕ РАЗ?”; АТ 11, 8; "ВВЕДИТЕ У ИЛИ № 

1604 РОКЕ 23658, 8: ТМРИТ А$ 

1606 ТЕ А$="У" ТНЕМ ВАМООМТУЕ 05Н 65058: @0 ТО 100 

1608 ТЕ А$="№" ТНЕМ 60 $0В 8800: 60 50В 8800: 60 ТО 9999 

1610 ВЕЕР .2,20: @0 ТО 1600 

1700 НЕМ ЗАПИСЬ 

1701 НАМООМТ7Е 0$В 65034 

1702 (15 

1704 РВТМТ АТ 7,0; “ ДЛЯ ВРЕМЕННОГО СОХРАНЕНИЯ ПОЗИЦИИ В ПАМЯТИ КОМПЬЮТЕРА ВВЕДИТЕ “”В”” 
(ВРЕМЕННО) ” 

1706 РВТМТ '’ ” ДЛЯ ПОСТОЯННОГО СОХРАНЕНИЯ ПОЗИЦИИ НА МАГНИТНОМ НОСИТЕЛЕ ВВЕДИТЕ “”П”" 
(ПОСТОЯННО )” 


1708 РОКЕ 23658,0: ТМРУТ А$: ТЕ А$<>"В" АМО А$<>"П" ТНЕМ 60 ТО 1708 
1710 ТЕ А$ = "В" ТНЕМ 60 ТО 100 

1712 ЗАМЕ "“БАТА"СОБЕ 64130, 150 

1714 60 ТО 100 

1800 НЕМ ЗАГРУЗКА 


1801 (15 

1802 РВТМТ АТ 7,0; “ДЛЯ ВОССТАНОВЛЕНИЯ ВРЕМЕННО СОХРАНЕННОЙ ПОЗИЦИИ ИЗ ПАМЯТИ ВВЕДИТЕ “"В”" 
(ВРЕМЕННО) ” 

1804 РВТМТ ‘`’ "ДЛЯ ЗАГРУЗКИ ПОСТОЯННО СОХРАНЕН-НОЙ ИГРЫ С МАГНИТНОГО НОСИТЕЛЯВВЕДИТЕ “”П””" 
(ПОСТОЯННО )” 


1805 РОКЕ 23658,0: ТМРУТ А$: ТЕ А$<>"В" АМО А$<>"П" ТНЕМ 60 ТО 1806 
1808 СЕ$ : ТЕ А$="В” ТНЕМ @0 ТО 1814 
1811 ТМК 0 
2 ГОАО "БАТА"СООЕ 64130, 150 
1815 ТМК б 
4 ТЕ РЕЕК 64190=0 ТНЕМ РАТМТ АТ 12,0; “ВЫ НИ РАЗУ НЕ СОХРАНЯЛИ ИГРУ. ”'` “НЕТ ДАННЫХ ДЛЯ 
ВОССТАНОВЛЕНИЯ! ”: ВЕЕР .5,15: РАПЗЕ 150: 60 ТО 100 
1815 НАМООМТ7Е 0$В 65046 
1816 60 ТО 100 
1915 ТЕ РЕЕК Р=9 АМО №0=17 АМО РЕЕК (Е+3)=0 АМО РЕЕК (Е+11)=0 ТНЕМ РОКЕ (Е+3),1: РОКЕ 
(Е+11),1: ТЕТ 8В$(1)="ОТКРЫВ ЕГО, ВЫ СЛЫШИТЕ ТИХИЙ": ТЕТ 8В$(2)="ГОЛОС, ДОНОСЯЩИЙСЯ ИЗ 
ГЛУБИНЫ": ЕТ А$(3)="БУФЕТА: “"ШВЫРНИ ШКАТУЛКУ”: ГЕТ А$(4)=”С ЧЕРДАКА И УВИДИШЬ, 
ЧТО БУДЕТ. ""”: 60 ТО 50 
1917 ТЕ РЕЕК Е=9 АМО №=17 АМО РЕЕК (Е+3)=1 ТНЕМ ТЕТ В$(1)="БУДЬ ВНИМАТЕЛЬНЕЕ! ": ТЕТ 
А$(2)="ОН УЖЕ ОТКРЫТ": 60 ТО 50 
1920 ТЕ РЕЕК Е=9 АМО №=17 АМО РЕЕК (Е+3)=0 ТНЕМ РОКЕ (2+3), 1:ЕЕТ В$(1)="0.К. НО ЧТО ТАКОЕ? 
ВСЕ ТИХО! ": 60 ТО 50 


УСИЛ 
ТЕЗРЕ 


ТРОРЕ 
60 то 


: 60:10:50 


45 


ТЕ ((РЕЕК Р=8 ОН РЕЕК Е=9) А 
А$(1)="ОКАЗЫВАЕТСЯ, ЗДЕСЬ Н 
ТЕ ((РЕЕК Р=8 ОН РЕЕЗ Е=9) А 


Е НЕ УДАЕТСЯ!” 
ЕЕК (Е+8)=0 ТНЕМ ТЕТ В$(1)=” 


0 №=16) ОН ((Р 
Е ЗАПЕРТО! ^ 
0 №=16 АМО РЕЕК (Р+4)=1) ОВ ((РЕЕК Е=14 ОВ РЕЕК [= 
№0=21 АМО РЕЕК (Е+7)=1) ТНЕМ ЕТ В$(1)="НО ВЕДЬ УЖЕ ОТКРЫТО НАСТЕЖЬ! " 


ЕЕК (Р+8)=1 ТНЕМ ГЕТ В$(1)=”" 


ЕЕК Е=14 ОВ 
20. 10:350 


ТЕ №=3 АМО (РЕЕК (0+3)=99 ОВ РЕЕК (0+3)=РЕЕК Е) ТНЕМ ЕЕТ 8$(1)= 
ИЯ": ГЕТ 8$(2)="ОТКРЫТЬ Е 
ЕК Р=11 АМО №=25 А\О Р 
КЛЮЧ. " 
ЕК Е=11 АМО №=25 АМО Р 


: @0 ТО 50 


ОН УЖЕ 


НЕ ОТКРЫВАЕТСЯ! 


РЕЕК Е= 


“НЕСМОТРЯ НИ НА КАКИЕ 


ЗАПЕРТ НА 

ОТКРЫТ! ": 60 ТО 50 
15) АМБ №=21) ТНЕМ ЕЕТ 
15) АМО 

: 60 10 50 


2010 ТЕ РЕЕК Е=11 АМО №=25 АМО РЕЕК (Е+8)=0 АМО РЕЕК (0+5)=99 АМБ РЕЕК (Е+9)=0 ТНЕМ РОКЕ 
(2+8), 1: РОКЕ (Е+9),1: РОКЕ (0+3), 11: ЕТ 8В$(1)=”СЕЙФ ОТКРЫВАЕТСЯ, И ВНУТРИ ВЫ": ТЕТ 
А$(2)="ВИДИТЕ ДЕРЕВЯННУЮ ШКАТУЛКУ. ": 60 ТО 50 

2015 ТЕ РЕЕК Е=11 АМО №=25 АМО РЕЕК (Е+8)=1 ТНЕМ ГЕТ А$(1)="”А ОН ТЕПЕРЬ НЕ ЗАПЕРТ!": 60 ТО 
50 

2020 ТЕ РЕЕК Е=11 АМО №=25 АМО РЕЕК (Е+8)=0 АМО РЕЕК (0+5)<>99 ТНЕМ ТЕТ В$(1)=”"ДЛЯ ЭТОГО 
НУЖЕН КЛЮЧ! ”: ©0 ТО 50 

2030 ТЕ №=3 АМО (РЕЕК (0+3)-РЕЕК Е ОН РЕЕК (0+3)=99) АМО РЕЕК (0+5)=99 ТНЕМ ГЕТ 4$(1)=" КЛЮЧ 
К ШКАТУЛКЕ НЕ ПОДХОДИТ. ”: 60 ТО 50 

2035 60 ТО 45 

2100 ТЕ (РЕЕК Е<>7 АМО РЕЕК Е<>15) ТНЕМ ЕТ В$(1)="ЗДЕСЬ НЕЛЬЗЯ КОПАТЬ”: 60 ТО 50 

2105 ТЕ (((РЕЕК Е=15 АМО (№=23 ОВ №=18 ОВ №=22 ОВ №=26)) ОВ (РЕЕК Е=7 АМО (№=24 ОВ 


ТЕ РЕ 
(Е+1 


01 


СПАСИБО, БОЛЬШЕ НЕ НАДО!”: 60 ТО 50 

2120 ТЕ РЕЕК Е=15 АМО РЕЕК (-+6)=0 АМО РЕЕК (0+4)=99 АМБ (№=23 ОВ №=22 ОВ №=18 ОВ №=26) 
ТНЕМ РОКЕ (Е+6),1: ЕЕТ А$(1)="0.К. ВЫ ВЫКОПАЛИ ЯМУ В САДУ.": 60 ТО 50 

2125 ТЕ РЕЕК Е=7 АМО РЕЕК ([Е+5)=0 АМО РЕЕК (0+4)=99 АМБ (№=24 ОВ №=22) ТНЕМ РОКЕ (Е+5),1: 
ГЕТ В$(1)="0.К. ВЫ В ПОЛЕ ВЫКОПАЛИ ЯМУ. ”: 60 ТО 50 

2130 60 ТО 45 

2200 ТЕ РЕЕК (0+9)=99 АМО №=9 ТНЕМ 1ЕТ В$(1)=”НО ОН И ТАК ГОРИТ! ": 60 ТО 50 

2205 ТЕ №=2 АМО РЕЕК (0+2)=99 АМБ РЕЕК Е<>11 ТНЕМ РОКЕ (0+2),0: РОКЕ (0+9), 99: РОКЕ 
(Е+2),1: ЕЕТ 4$(1)="0.К. ТЕПЕРЬ ФАКЕЛ ГОРИТ. ”: 60 ТО 50 

2210 ТЕ №=2 АМО РЕЕК (0+2)=99 ТНЕМ РОКЕ (0+2),0: РОКЕ (0+9),99 : РОКЕ (Е+2),1: ВАМООМТУЕ 
058 5$: РАТМТ ТМК 5; "О.К. ТЕПЕРЬ ФАКЕЛ ЯРКО СВЕТИТ!”: 60 508 8800: 60 ТО 100 

2215 60 ТО 45 

2300 ТЕ РЕЕК (0+2)=99 АМО №0=9 ТНЕМ ГЕТ В$(1)="НО ВЕДЬ ОН НЕ ГОРИТ! ”: 60 ТО 50 

2305 ТЕ №=9 АМО РЕЕК (0+9)=99 АМБ РЕЕК Е<>1 ТНЕМ РОКЕ (0+9),0: РОКЕ (0+2),99: РОКЕ (Е+2),0: 
ГЕТ В$(1) = "О.К. ФАКЕЛ ПОГАС.”: 60 ТО 50 

2310 ТЕ №=9 АМО РЕЕК (0+9)= 99 ТНЕМ РОКЕ (0+9),0: РОКЕ (0+2),99: РОКЕ (Е+2),0: ВАМБОМТУЕ 058 
55: РВТМТ ТМК 5; "О.К. ФАКЕЛ БОЛЬШЕ НЕ СВЕТИТ. ”: 60 508 8800: @0 ТО 100 

2315 60 ТО 45 

2400 ТЕ РЕЕК Е=11 АМО (№=19 ОВ №=14) ТНЕМ РОКЕ Р,6: 60 ТО 100 

2405 ТЕ РЕЕК Е=6б АМО (№=20 ОВ №=14) ТНЕМ РОКЕ Е,2: 60 ТО 100 

2410 ТЕ РЕЕК Е=2 АМО №=15 ТНЕМ РОКЕ Е,6: 60 ТО 100 

2412 ТЕ РЕЕК Е=6 АМО №=15 ТНЕМ РОКЕ Е, 11: 60 ТО 100 

2415 ТЕ (РЕЕК [=14 ОН РЕЕК Е=15) АМО РЕЕК (Е+7)=0 ТНЕМ ГЕТ 4$(1)="ЭТО НЕСЕРЬЕЗНО, ЛУЧШЕ 
ОТКРОЙТЕ”: ТЕТ 4$(2)="ВОРОТА ИЗ САДА!": 60 ТО 50 

2420 ТЕ (РЕЕК Е=14 ОН РЕЕК [Е=15) АМО РЕЕК (Е+7)=1 ТНЕМ ТЕТ В$(1)="И ЗАЧЕМ ВАМ ЭТО ДЕЛАТЬ?”: 
ГЕТ В$(2)=“ВЕДЬ ВОРОТА ОТКРЫТЫ. ”: @0 ТО 50 

2425 60 ТО 45 

2500 ТЕ РЕЕК Е=2 АМО (№=20 ОВ №=15) ТНЕМ РОКЕ Е, 6: 60 ТО 100 

2505 ТЕ РЕЕК Е=б АМО (№=19 ОВ №=15) ТНЕМ РОКЕ 64280,11: 60 ТО 100 

2510 60 ТО 45 

2600 ТЕ (РЕЕК Е=8 ОВ РЕЕК Е=9) АМО №=16 АМО РЕЕК (Е+4)=1 ТНЕМ РОКЕ (Е+4),0: ЕЕТ 4$(1)="0.К. 
ТЕПЕРЬ ДВЕРЬ ЗАКРЫТА. ": 60 ТО 50 

2605 ТЕ (РЕЕК Е=14 ОН РЕЕК Е=15) АМО №=21 АМО РЕЕК (Е+7)=1 ТНЕМ РОКЕ (7+7),0: (ЕТ 
А$(1)="0.К. ТЕПЕРЬ ВОРОТА ЗАКРЫТЫ. ": 60 ТО 50 

2610 ТЕ РЕЕК Е=9 АМО №0=17 АМО РЕЕК (Е+3)=1 ТНЕМ РОКЕ (Е+3),0: ТЕТ В$(1)="0.К. ТЕПЕРЬ БУФЕТ 


_ ЗАКР 


ЫТ.": 60 ТО 50 


№0=22))) АМО РЕЕК (0+4)<>99) ТНЕМ ТЕТ Н$(1)=”И КАК ЖЕ 
ЭТОГО НУЖЕН ПОДХОДЯЩИЙ” : 
ЕК Е=15 АМО РЕЕК (Е+10)=0 АМО ( 
ВОКЕ: СО ЛЬЕсРОКЕЗОЕТО), № 
Н$(2)="ГЛУБОКОЙ ЯМОЙ. НО ВОТ ЧТО-ТО”: 
ТЕ С(РЕЕК Р=15 АМО РЕЕК (Е+5)=1) ОВ (РЕЕК Е=7 АМО РЕ 


ГЕТ В$(3)="ИНСТРУМЕНТ. " 
0=18 ОН №=22 ОВ 
ТЕТ 8В$(1)="ВЫ ИСПОРТИЛИ КРАСИВУЮ ЛУЖАЙКУ" 
ГЕТ В$(3)="БЛЕСТ 


0=23 ОВ 


НУЛО. 


ЭТО СДЕЛАТЬ?”: 
> 610750 


. ЭТО КЛЮЧ!" 
ЕК (Е+5)= -1)) ТНЕМ ГЕТ В$(1)="НЕТ 


№0=26) ТНЕМ РОКЕ 


ГЕТ 8В$(2)="ДЛЯ 


ГЕТ 


; 60 10 50 


2615 ТЕ РЕЕК Е=11 АМО №=25 АМО РЕЕК (Е+8)-1 ТНЕМ ГЕТ 4$(1)="КАЖЕТСЯ, ДВЕРЦУ ЗАКЛИНИЛО!”: 60 
10-50 
2620 60 ТО 45 
2700 ТЕ РЕЕК Е=2 АМО №=3 АКМО РЕЕК  (0+3)=99 АМО РЕЕК (Е+11)=1 ТНЕМ РОКЕ (0+7),6: РОКЕ 
(0+6), 6: РОКЕ (0+3),0: РОКЕ (Е+99),РЕЕК (Е+99)-1: 1ЕТ В$ (1) ="ВОТ ЭТО БРОСОК!!!": 
ГЕТ А$(2) = "ОТ УДАРА ШКАТУЛКА РАЗБИЛАСЬ. ": ГЕТ В$(3)="ЧТО-ТО ИЗ НЕЕ ВЫПАЛО И 
БЛЕСНУВ, ": ЕЕТ В$(4) = "ПОКАТИЛОСЬ ПО ПОЛУ КОНЮШНИ. ": 60 ТО 50 
2705 ТЕ РЕЕК Е=2 АМО №=3 АМО РЕЕК (0+3)=99 ТНЕМ ЕЕТ 8В$(1)=”Я БЫ ЭТОГО НЕ ДЕЛАЛ. ”: ГЕТ 
А$(2)="НАДО ЕЩЕ КОЕ-ЧЕГО”: ЕЕТ В$(3)="ДОБИТЬСЯ ОТ БУФЕТА! ": 060 ТО 50 
2710 60 ТО 1200 
2800 ТЕ ((РЕЕК Р=15 АМО РЕЕК (Е+6)=1) ОВ (РЕЕК Е=7 АМО РЕЕК (Е+5)=1)) АМО РЕЕК (0+4)<>99 АМБ 
№0=22 ТНЕМ ГЕТ 4$(1)="И КАК ЖЕ ВЫ СОБИРАЕТЕСЬ ЭТО": 1ЕТ 8В$(2)="СДЕЛАТЬ БЕЗ НУЖНОГО 
ИНСТРУМЕНТА! ": 60 ТО 50 
2802 ТЕ (РЕЕК Е=15 АМО РЕЕК (Е+6)=0 АМО (№=22 ОВ №=26)) ОВ (РЕЕК Е=7 АМО РЕЕК (-+5)=0 АМО 
№0=22) ТНЕМ ТЕТ В$ (1)="ШИКАРНО ПОЛУЧИЛОСЬ! ": 60 ТО 50 
2805 ТЕ РЕЕК Е=7 АМО №=22 АМО РЕЕК (0+4)= 99 АМО РЕЕК (Е+5)=1 ТНЕМ РОКЕ (Е+5),0: ЕТ 
А$(1)="0.К. ВЫ ЗАКОПАЛИ ЯМУ В ПОЛЕ. ": 60 ТО 50 
2810 ТЕ РЕЕК Е=15 АМО №=22 АМО РЕЕК (0+5)=15 ТНЕМ ТЕТ В$(1)="ОСТОРОЖНО! ЗАКОПАЕТЕ КЛЮЧ!” : 


2812 ТЕ РЕЕК Е=15 АМО №=22 АМО РЕЕК (0+4)=99 АМО РЕЕК (Е+6)=1 ТНЕМ РОКЕ (Е+6),0: ЕТ 
Н$(1)="0.К. ВЫ ЗАКОПАЛИ ЯМУ": ТЕТ А$(2)="И ОСТАВИЛИ НА ЛУЖАЙКЕ": ТЕТ 
А$(3)="НЕКРАСИВОЕ ПЯТНО!"”: 60 ТО 50 

2815 60 ТО 45 

2900 ТЕ РЕЕК Е=11 АМО №=25 АМО 

2902 (Е+8)=1 ТНЕМ ГЕТ В$(1)="НЕ ПОЛУЧАЕТСЯ, ДВЕРЬ ЗАЕЛО!": 60 ТО 50 

2905 60 ТО 45 

3000 ТЕ №=1 АМО РЕЕК(0+1)=99 ТНЕМ РОКЕ (0+1),0: РОКЕ (0+8), 99: РОКЕ СЕ: РОКЕ 

(Е+99),РЕЕК (Е+99)-1: ТЕТ В$(1)="ОТЛИЧНО! ОСВОБОДИЛАСЬ РУКА.”: ЕЕТ 8В$(2)=”"ДА И ПЛЕД 

ВАМ ОЧЕНЬ ИДЕТ. ”: 60 ТО 50 


3005 ТЕ №=1 АМО РЕЕК (0+8)=99 ТНЕМ 1ЕТ В$(1)=”ОН УЖЕ ОДЕТ НА ВАС!": 60 ТО 50 
3008 ТЕ №=1 ТНЕМ ТЕТ А$(1)="НЕ ПОЛУЧАЕТСЯ, СНАЧАЛА НАДО": ТЕТ В$(2)="ВЗЯТЬ ЕГО В РУКИ. ”: 60 
ТО 50 


3010 60 ТО 45 

3100 ТЕ №=8 АМО РЕЕК (Е+99)=МАХ ТНЕМ ГЕТ 4$(1)="НЕ ВЫХОДИТ! ОБЕ РУКИ ЗАНЯТЫ. ": 60 ТО 50 

3102 ТЕ №=8 ТНЕМ РОКЕ (0+1),99 : РОКЕ (0+8),0: РОКЕ (7+1),0: РОКЕ (7+99),РЕЕК (2Е+99)+1: ЕТ 

А$(1)=”0.К. НО ПОЧЕМУ?": ГЕТ А$(2)="РАЗВЕ ВЫ К НЕМУ ЕЩЕ": [ЕТ В$(3)="НЕ ПРИШЛИ?": 60 
0 


3105 ТЕ №=1 ТНЕМ ТЕТ В$(1)="НО ЕГО НЕТ НА ВАС! ”: 60 ТО 50 
3110 60 ТО 45 
3200 ТЕ РЕЕК Е=2 АМО (№=15 ОВ №=27) ТНЕМ РОКЕ Е,6: РОН Х=-5 ТО 15: ВЕЕР .04,К: МЕХТ Х: РОВ 
Х=14 ТО -5 ЭТЕР -1: ВЕЕР .08,Х: МЕХТ Х: ВЕЕР 1,-6: 60 ТО 100 
3205 ТЕ (№=27 ОВ №=5 ОВ №=5) ТНЕМ ЕЕТ В$(1)="0.К. НО НИЧЕГО НЕ СЛУЧИЛОСЬ! ": @0 ТО 50 
3210 60 ТО 45 
3300 ТЕ №<10 АМО РЕЕК (0+№0)<>99 ТНЕМ 1ЕТ 8В$(2)="ПРОВЕРЬТЕ СВОЙ ИНВЕНТАРЬ! ": 60 ТО 50 
3305 ТЕ №=5 АМО РЕЕК (Е+8)=0 ТНЕМ ТЕТ В$(1)="И КАК ЖЕ НАДО ИСПОЛЬЗОВАТЬ": ТЕТ В$(2)="ЭТОТ 
КЛЮЧ? ": 60 ТО 50 
3310 ТЕ №=4 ТНЕМ ЕТ А$(1)="ПОДУМАЙТЕ... - НАВЕРНОЕ, ": ГЕТ 8$(2)="ВЫ ЗНАЕТЕ, ЧТО МОЖНО 
ДЕЛАТЬ”: ЁЕТ А$(3)="С ПОМОЩЬЮ ЛОПАТЫ!" : 60 ТО 50 
3315 ГЕТ 4$(1)="ЧТО ЗНАЧИТ »»ИСПОЛЬЗОВАТЬ**!?"; ГЕТ В$(2)="НЕЛЬЗЯ ЛИ УТОЧНИТЬ?": 60 ТО 50 


Теперь пришло время расшифровки некоторых ключевых моментов, которые помогут 
Вам отслеживать логику работы программы. 


Управление адвентюрной игрой. 

БЕЙСИК-программа управляет игрой с помощью следующих данных: 

- номер глагола (или команды) (\В); 

- номер существительного (или направления) (МО); 

- таблицы текущего расположения объектов; 

- таблицы состояния флагов. 

В прошлом номере "7Х-РЕВЮ" мы рассмотрели параметры, задаваемые при помощи 
строк ВАТА (Лист. 2). Теперь, подводя итог сказанному, мы приводим полный перечень слов 
(Листинги 1 и 2), распознаваемых программой, в виде двух таблиц, отдельно для глаголов и 
существительных (и прочих слов). Для каждого слова указан его номер. 


Анализатор текста. 

Система, анализирующая текст, позволяет вводить до 30 символов, среди них могут 
быть русские и латинские заглавные буквы, цифры и символы. Русские буквы набираются 
непосредственно буквенными клавишами, за исключением Ч, 9, Ш, Щ, Ю. Последние 
набираются одновременно с нажатием $\УМВ. $Н. клавишами А, $5, Е, С, Х. Для "забоя" 
последнего введённого символа используется клавиша "ОЕТЕТЕ" или "КУРСОР ВЛЕВО". 
Приглашение процедуры ввода изображается символом ">", а курсор - в виде символа “*". 


ВЫ НАХОДИТЕСЬ У ДВЕРИ ФЕРМЕР- 
НОЗЯЕВЯМ БЫЛО ОТ ЧЕГО СЕРЫ- 


В ПОЛЕ ВЯШЕГО ЗРЕНИЯ: 
НЕТУ СОВСЕМ НИЧЕГО 


ТЕПЕРЬ 


ЕЙШИ ДЕЙСТВИЯ? 
зиДТи НЯ восток = 


Как уже говорилось, процедура построена таким образом, что анализирует пробелы 
между словами, выделяя первое и последнее слово. Первое слово считается глаголом, а 
последнее - существительным или направлением перемещения. Поэтому команды 
"БРОСИТЬ ЭТУ ЛОПАТУ", "БРОСИТЬ КОРОТКУЮ ЛОПАТУ" дают тот же эффект, что и просто 
"БРОСИТЬ ЛОПАТУ". 

Анализатор просматривает введённый текст команды и возвращается в БЕЙСИК с 
числом \В, соответствующим номеру использованного глагола и с числом МО, 
соответствующим номеру использованного существительного. Любое нераспознанное 
слово выдаёт в БЕЙСИК число 200 для глагола и число 201 для существительного. 


Таблица 1. 
ГЛАГОЛЫ 

ОСНОВНЫЕ ДОПОЛНИТЕЛЬНЫЕ 
ИИ ее 0 ОТКРЫТЬ........ 9 
СЕВЕР...... 0 ОТПЕРЕТЬ......1 [О 
Е 0 КОПАТЬ. у иаеьыь 
Юла зах 0 ВЫКОПАТЬ...... 
Юле арии 0 ЗАЖЕЧЬ. .......] 12 
ВОСТОК а. 0 РАСИТБ, ие 13 
А о 0 ПОГАСИТЬ......1 [3 

АПРАВО 0 ПОДНЯТЬСЯ.....1 14 
ЗАПАД Е иена 0 ЗАЛЕЗТЬ вх ыы] [4 
Е ее 0 рН РА ОН 14 

АЛЕВО..... 0 СПУСТИТЬСЯ х 65 
ВВЕРХ. у лал 0 СЛЕЗ еше [25 
Кана 0 ЗАКРЫТЬ. ......1] 16 
ВНИЗ каре 0 ШВЫРНУТЬ......] 17 

По бод 0 ЗАКОПАТЬ......] 18 
ВЗЯТЬ. .....1 | ЗАНЕРЕТБ и: 19 
БРАТЬ......1 | ОДЕТ ооо 20 
ПОЛОЖИТЬ. ..2 НАПЕТЬ........ 20 
БРОСИТЬ....2 СР а а и 21 
ПРОВЕРИТЬ. .З ПРЫПА Бла 22 
ОСМОТРЕТЬ. .З СПРЫГНУТЬ..... рр 
СМОТРЕТЬ. ..4 ЗАПРЫГНУТЬ. ...22 
ИНВЕНТАРЬ. .5 ИСПОЛЬЗОВАТЬ. .23 
аа 5 
СПО рые 6 
КОНЕП...... 6 
СОХРАНИТЬ. .7 
ЗАГРУЗИТЬ. .8 


Эта информация может обыгрываться в БЕЙСИКЕ как угодно, но в нашей 
демонстрационной программе применяется самое простое решение, - в этом случае 
пользователь всегда получает ответ "НЕ ПОЛУЧАЕТСЯ". 

Если же Вы даёте команду, состоящую из одного слова, например, "СМОТРЕТЬ", то за 
глагол Вы получите \В=4, а за отсутствие существительного - должны были бы получить 
МО=201, что вызовет реакцию "НЕ ПОЛУЧАЕТСЯ", хотя нам такая реакция не нужна. Для 
того, чтобы избежать подобных ситуаций, мы включаем глагол "СМОТРЕТЬ" и в список 
существительных тоже, при этом присваиваем ему порядковый номер 99 (см. Листинг_1, 
строка 2190 и Таблицу 2). 

Со всеми другими глаголами (командами), которые могут использоваться без 
существительного, надо поступить тем же образом. 

Возможен и другой вариант, когда такому глаголу Вы присваиваете номер не 99, а 
соответствующий тому существительному, которое с этим глаголом обычно связано. В 
демонстрационной программе мы так поступили со словом КОПАТЬ - ему присвоен номер 
22 (см. Листинг_2, строка 2192 и Таблицу_2), потому что КОПАТЬ и КОПАТЬ ЯМУ - понятия 
равнозначные. Поэтому пусть читатель, бросивший беглый взгляд на таблицы глаголов и 
существительных без чтения текста, не упрекает нас в незнании основ русской грамматики. 


Таблица_2 
СУЩЕСТВИТЕЛЬНЫЕ И ДРУГИЕ СЛОВА ПРОЧИЕ СЛОВА 
ИНВЕНТАРЬ И 16 
ль р о Вей | | ВЕ ре. 17 
ЕРСТЯНОЙ ПЛЕД... .........1 | ПУ Кен 1 8 
ФАК ар ао аки рая 2 ОУ ЕВЕИ ре а абы 19 
АЛЕНЬКИЙ ФАКЕЛ........... 2 НИ ре рб а 20 
р ад Зе 3 ВОРОТА: лесе 21 
ДЕРЕВЯННАЯ ШКАТУЛКА....... 3 КОПАТЬ:, уу ееиаа 22 
ЛОНАТА оно ана реа аи 4 р АВ 22 
КОРОТКАЯ ЛОПАТА........... 4 о Зее 23 
О О 5 ПОЛЕ о о а неа 24 
БРОНЗОВЫЙ КЛЮЧ. ........... 5 СИ лия 25 
о ай 6 ЕО ели а 26 
ДЕРЕВЯННЫЕ ЩЕПКИ.......... 6 ИРЫБАТЬ:. аи 27 
А а ааа в оба 7 КОМАНДЫ 
КРУПНЫЙ АЛМАЗ............. Е о о т 99 
ЛЕД, НАДЕТЫЙ НА ПЛЕЧИ 8 ИНВЕНТАРЬ......... 99 
ГОРЯЩИЙ ФАКЕЛ... уе... 9 О 99 
АПРАВЛЕНИЕ Ооо 99 
СЕВЕР...... Со сан день [О ОЕ огл роб 99 
о аи Юл рана 11 СОХРАНИТЬ......... 99 
ВОСТОК.....В...НАПРАВО 12 ЗАГРУЗИТЬ. ........ 99 
Пора З ВО ВЕ 
ВВЕРХ...... И 14 
вНиЗ....... Е: 15 


Обратите внимание, что для тех существительных, которые имеют длину, меньше 
заданной для идентификации (4 символа) - это, например, существительные ЯМА, САД - 
задавать их надо в родительном падеже, то есть: ЯМУ (а САД, ПОЛЕ, СЕЙФ и т.д. ив 
родительном и в именительном падеже совпадают). Ведь подаваемая команда может быть: 
ВЫКОПАТЬ ЯМУ или ОСМОТРЕТЬ ЯМУ или ПРЫГНУТЬ В ЯМУ ит. д. Если же допускать такие 
команды, которые потребуют так же и слова ЯМА, например, ПРОВЕРИТЬ, КАК ВЫКОПАНА 
ЯМА, то существительные надо задавать дважды: ЯМА и ЯМУ, но присваивать им 
одинаковые номера. 

Обратите также внимание на разницу в использовании некоторых глаголов. Это, 
например, СМОТРЕТЬ и ОСМОТРЕТЬ. Первый не относится к какому-либо предмету 


конкретно и подразумевает, как бы оглядеться по сторонам, при этом перерисовывается 
экран и заново сканируется и отображается табло "В ПОЛЕ ВАШЕГО ЗРЕНИЯ". Глагол 
СМОТРЕТЬ может использоваться самостоятельно, без существительного. Другой глагол - 
ОСМОТРЕТЬ - самостоятельно использоваться не может и служит для получения каких-то 
дополнительных сведений о конкретном предмете, например, о ДВЕРИ, ПОЛЕ, ШКАТУЛКЕ, 
ЩЕПКАХ от неё, когда она будет разбита ит. д. 

Различаются такие глаголы ОТКРЫТЬ и ОТПЕРЕТЬ. Учитывайте, что, например, ДВЕРЬ 
может быть закрыта, но не заперта на замок, а СЕЙФ закрыт, да ещё и заперт. 


Таблица расположения объектов. 

Переменная О определяет начало этой таблицы. В ней находятся данные о текущем 
расположении 50 объектов. Для каждого объекта в любой момент времени здесь 
содержится число, определяющее номер локации, в которой в данный момент находиться 
объект. 

Например, для объекта с номером 1 (ПЛЕД) Вы можете узнать его расположение 
командой РЕЕК (0+1), а изменить его состояние - командой РОКЕ (0+1), М. Здесь "М" - 
новое место размещения объекта. 

Если РЕЕК (О+Х)=99, то это означает, что объект находится у Вас в руках (или на Вас). 

Если РЕЕК (О+Х)=0,это значит, что объект в данный момент не виден. 

По ходу игры Бейсик-программа вносит изменения в таблицу расположения объектов. 

Пример расшифровки логической конструкции: 

ТЕ РЕЕК (0+9)<>99 ТНЕМ ... 

означает следующее: 

ЕСЛИ У ВАС ПРИ СЕБЕ НЕТ ГОРЯЩЕГО ФАКЕЛА, ТО 


Таблица состояния флагов. 

Некоторые объекты имеют одно и то же имя, например ФАКЕЛ. В то время, когда это 
просто ФАКЕЛ или МАЛЕНЬКИЙ ФАКЕЛ, то это объект номер 2. В то же время, если это 
ГОРЯЩИЙ ФАКЕЛ, то это уже объект номер 9. Кроме того, по ходу игры могут происходить 
разные события с предметами, не входящими в инвентарь. Это, например, отпирание и 
открывание дверей, фиксация того, что интересующее событие произошло и т.д. Все эти 
моменты отражаются в таблице флагов. 

Переменная Е определяет адрес ячейки, с которой начинается эта таблица. В ней 
возможно расположение данных о 100 объектах, причём некоторые флаги зарезервированы 
для особых случаев. 

Определяется состояние флага предмета Х командой РЕЕК (Е+Х), а изменяется 
командой РОКЕ (Е+Х), 2, где 2 - новое состояние предмета. 

По ходу игры Бейсик-программа вносит изменения в таблицу состояния флагов. 

Флаг (Е+0) содержит номер текущей локации - то есть место, где Вы сейчас 
находитесь. Расшифровка логических конструкций в программе будет выглядеть так. 
Например: 

ТЕ РЕЕК Р=7 ТНЕМ ... 
означает следующее: 
ЕСЛИ ДЕЙСТВИЕ ПРОИСХОДИТ В ПОЛЕ ТО 
Другой пример: 
РОКЕ Е, 6... 

означает: 

МЫ ОКАЗЫВАЕМСЯ В КОНЮШНЕ ... 
Флаг (Е+99) служит для отражения количества предметов (ИНВЕНТАРЯ), которые 
герой имеет при себе в данный момент. 
Пример логической конструкции: 
РОКЕ (Е+99), РЕЕК (Е+99)+1 

означает ни что иное, как то, что Вы берёте объект в руки. Другой пример: 
ТЕ РЕЕК (Р+99)=МАХ ТНЕМ. 

означает: 

ЕСЛИ У ВАС В РУКАХ МАКСИМАЛЬНОЕ КОЛИЧЕСТВО ПРЕДМЕТОВ, ТО 


Когда игра начинается, все флаги, за исключением (Е+0) имеют нулевое значение. В 
процессе игры, когда герой надевает ПЛЕД, флагу (Е+1) присваивается единица, а когда он 
зажигает ФАКЕЛ, единица присваивается флагу (Е+2) ит. д. 

Ниже приводится таблица флагов, использующихся в игре. Значение 1 присваивается 
соответствующему флагу, если выполняется действие, показанное в таблице. 


ТАБЛИЦА СОСТОЯНИЯ ФЛАГОВ 
Е+0=МО - НОМЕР ТЕКУЩЕЙ ЛОКАЦИИ 
Е+1=1, если ЛЕД НАЦЕТ НА ПЛЕЧИ 
Е+2=1, если ФАКЕЛ ЗАЖЖЁ 
Е+3=1, если БУФЕТ ОТКРЫТ 
Е+4=1, если ДВЕРЬ ОТКРЫТА 
Е+5=1, если ВЫКОПАНА ЯМА В ПОЛЕ 
Е+6=1, если ВЫКО Я В САДУ 
Е+7=1, если ВОРОТА ОТКРЫТЫ 
Е+8=1, если СЕЙФ НЕ ЗАПЕРТ 
Е+9=1, если ШКАТУЛК ЙДЕН 
Е+10=1, если КЛЮЧ НАЙЦЕН 
Е+11=1, если БУФЕТ ОТКРЫВАЛСЯ 
ХОТЯ БЫ 1 РАЗ 
Е+99=МО - ЧИСЛО ВЗЯТЫХ ОБЪЕКТОВ 


Если с этим объектом происходит противоположное действие (дверь опять 
закрывается), то флаг должен обнуляться. Однако могут быть ситуации, когда состояние 
одного объекта оценивается несколькими флагами. Например, если ОТКРЫТЬ БУФЕТ в 
первый раз, то установится в единицу два флага: Е+3 и Е+11. Если теперь ЗАКРЫТЬ БУФЕТ, 
то сбросится флаг Е+3, а флаг Е+11 так и останется в состоянии 1. 

Теперь можно проследить, как в игре формируются более сложные действия. 
Ситуация, когда зажигается факел, например, моделируется следующим образом: 

РОКЕ (Е+2), 1: РОКЕ (0+2)=0: РОКЕ (0+9), 99 

То есть, во-первых, устанавливается флаг зажжённого факела, во-вторых, исчезает 
объект под названием МАЛЕНЬКИЙ ФАКЕЛ, в третьих - у Вас в руках появляется новый 
объект: ГОРЯЩИЙ ФАКЕЛ. 

Ситуация, когда Вы кладёте горящий факел, например, в саду (при этом он гаснет), 
будет выглядеть так: 

РОКЕ (0+9), 0: РОКЕ (2+2), 0: РОКЕ (0+2), 15: 

Сначала исчезает объект ГОРЯЩИЙ ФАКЕЛ и обнуляется его флаг, а затем в САДУ 

появляется объект МАЛЕНЬКИЙ ФАКЕЛ. 


Теперь, когда Вы имеете представление о том, как моделируются те или иные 
логические конструкции, можно проследить действие программы сначала. 


Демонстрационная программа. 

В строке 100 начинается прорисовка игрового экрана. На нём изображён только текст, 
так задумано в концепции отладочной системы АВ$. Однако ничего не мешает Вам 
изменить 7000-ные строки так, чтобы, например, запускался декомпрессор, выводя в 
верхней трети (или двух третях) экрана рисунок локации. Эти экраны можно подготовить, 
например, при помощи компрессора, опубликованного в "7Х-РЕВЮ" №3-4, стр. 61-63. 

Строка 102 выполняет подпрограмму из большого блока строк, который начинается 
со строки 7000. Описание локации вводится обычным оператором РАМТ в строках 7000 + 
номер локации, умноженный на 10. Это происходит в зависимости от номера локации РЕЕК 
Е. Для АМБАРА (1 ЛОКАЦИЯ) будет СО $ЗЦВ 7000, для ЧЕРДАКА (2 ЛОКАЦИЯ) - СО ЗОВ 7010 
и т. д. Длина описания каждой локации - не более 10 БЕЙСИК-строк. Каждое описание 
должно заканчиваться командой ВЕТОВМ. 

Строка 104 (вместе со строкой 7110) обеспечивают реакцию программы на событие, 
когда Вы попадаете в погреб без ГОРЯЩЕГО ФАКЕЛА. 

Строки 105-129 обеспечивают проверку того, что можно увидеть в этой локации. Если 


что-то есть, то эта информация также выводится на экран в виде табло: "В ПОЛЕ ВАШЕГО 
ЗРЕНИЯ". Блок в машинных кодах сам выполняет проверку того, какие объекты следует 
объявить в этих ситуациях, а начать выполнять процедуры Бейсика. Вместо слов можно 
вводить изображение соответствующих предметов при помощи символов УОС-графики, 
печатая их оператором РАМТ прямо поверх картинки. 

Процедура НРАМООММЕ Ч$В.В $$ (строка 195) проверяет необходимость и 
осуществляет скроллинг экрана и должна выполняться всякий раз, после того, как 
происходит перерисовка экрана. 

Далее, в строке 200, запускается большая процедура в кодах, обеспечивающая 
сканирование клавиатуры и печать на экране вводимых команд, а также их первичный 
анализ - "Анализатор текста", о котором уже говорилось выше. 

Результатом работы этой процедуры являются значения двух ячеек памяти: 64114 и 
64115. В первой из них содержится номер использованного глагола, во второй - 
существительного (или направления перемещения). Они передаются в Бейсик-переменные 
в строках 202 и 204. Номер глагола будет теперь \В, а номер существительного - МО. 

Строка 208 разрешает при отсутствии ГОРЯЩЕГО ФАКЕЛА в ПОГРЕБЕ только 
следующие действия: ИДТИ, ЗАЖЕЧЬ, ПОГАСИТЬ, ПОДНЯТЬСЯ, СТОП, ИНВЕНТАРЬ, 
СОХРАНИТЬ и ЗАГРУЗИТЬ. 

Если в результате работы процедуры ввода команды не зафиксирован ни один из 
допустимых глаголов, то значение ячейки 64114 будет равно 200. Аналогично, если в 
команде не зафиксировано ни одно из заданных существительных (или направления 
перемещения), то значение ячейки 64115 будет 201. Как поступить в этих случаях - решать 
Вам. В демонстрационной программе в этом случае строка 228 адресует на строку 45, где 
выводиться сообщение "НЕ ПОЛУЧАЕТСЯ". 

Если глагол и существительное идентифицированы, то дальнейшее распределение 
производиться в строке 235, в зависимости от значения глагола: происходит переход на 
подпрограммы обработки глаголов, расположенные в большом блоке строк, который 
начинается со строки 1000. 

Поскольку наиболее вероятно, что Вы будете оформлять программу с разделённым 
экраном, нужно было бы вводить проверку на необходимость скроллирования перед тем, 
как печатать сообщение от программы на экране. Чтобы избежать такой проверки, мы в 
демонстрационной программе оформляем реакцию программы в виде символьных 
переменных В$(1), В$(2), В$(3), В$(4), которые печатаются с помощью главной печатающей 
процедуры (строка 50). 


Обработка глаголов. 

Каждая подпрограмма обработки глаголов должна иметь не более 100 Бейсик-строк. 
Номер первой строки определяется по номеру глагола: 1000 + номер глагола, умноженный 
на 100. Так обеспечивается переход, например в случае ИДТИ - на строку 1000, в случае 
ВЗЯТЬ - на строку 1100 ит. д. 

Вот полный перечень строк для соответствующих глаголов. 


ИДИ. ии 1000 
ВБ ак 1100 
ПОЛОЖИТЬ. ......1 1200 
ОСМОТРЕТЬ......1 1300 
СМОТРЕТЬ. ......1 1400 
ИНВЕНТАРЬ......1] 500 
СТОП веть 600 
СОХРАНИТЬ. .....1 700 
ЗАГРУЗИТЬ. .....1 1800 
ОТКРЫТЬ ии 1900 
ОТПЕРЕТЬ....... 2000 
КОПАТЬ......... 2100 
ЗАЖЕЧЬ......... 2200 
ПОГАСИТЬ....... 2300 
РВ ое 2400 
СПУСТИТЬСЯ..... 2500 


ЗАКРЫТЬ........ 2600 
ШВЫРНУТЬ....... 2700 
ЗАКОНАВБ. 3 ри 2800 
ЗАПЕРЕТЬ....... 2900 
НАДЕТЬ......... 3000 
Сима 3100 
ПРЫЗАТЬ риа 3200 
ИСПОЛЬЗОВАТЬ. ..3300 


Специфичной является подпрограмма перемещения, расположенная со строки 1000. 
Мы попадаем на неё независимо от направления, во всех случаях предусмотренного 
перемещения. В строке 1002 происходит изменение номера слова, определяющего 
переменные. Так, для СЕВЕР вместо 10 получается значение 1, для ЮГ - вместо 11 - 
значение 2 ит. д. Это необходимо для корректного дальнейшего выполнения программы в 
кодах. 

В строке 1005 выполняется следующая проверка. Если Вы находитесь перед дверью и 
идёте на восток или находитесь в прихожей и идёте на запад и в обоих этих случаях дверь 
закрыта, то вывод текста "ДВЕРЬ ЗАКРЫТА". 

Строка 1010. Аналогичная проверка для ворот. 

Строка 1020. Если Вы пытаетесь идти в поле, в котором выкопана яма или в саду, в 
котором выкопана яма, то Вы в неё падаете. В этом случае игра для Вас заканчивается. 

В строке 1090 выполняется подпрограмма в кодах, которая выполняет перемещение в 
другую локацию согласно таблице допустимых перемещений. Входным параметром для 
этой процедуры является значение содержимого ячейки 64115 (оно было занесено туда в 
строке 1002). Другим параметром для этой процедуры является значение флага (Е+0), то 
есть текущая локация. Результат работы этой процедуры возвращается также в ячейку 
64115, теперь там значение, соответствующее новой локации. Если же там ноль, то это 
значит, что в направлении, которое Вы задали, перехода нет. Этот контроль производится в 
строке 1092. В строке 1093 происходит изменение флага текущей локации - Вашего 
положения. Строка 1094 возвращает на начало программы с новыми условиями - в новой 
локации. 

Обратите внимание, что зацикливание происходит тремя способами. Первый - если 
команда не воспринимается - на строку 45 с выводом сообщения "НЕ ПОЛУЧАЕТСЯ". Второй 
- на строку 50 - без изменения верхней части экрана - то есть без изменения локации и 
отображения предметов, находящихся в поле Вашего зрения. Третий способ - переход на 
строку 100 (как при старте игры) - это перерисовка всего экрана (переход в новую локацию 
или команда СМОТРЕТЬ). При этом также изменяется и табло "В ПОЛЕ ВАШЕГО ЗРЕНИЯ:". 


Примеры расшифровки подпрограмм. 

Теперь, для примера, мы дадим расшифровку реакции программы на некоторые 
Ваши действия. Потом Вы должны будете продолжать эти рассуждения для всех строк 
программы, если хотите в деталях разобраться в том, что происходит в разных ситуациях. 

Итак, например, строка 1100 - сюда мы попадаем в случае обработки глагола ВЗЯТЬ. 

Строка 1100 накладывает ограничение на попытку взять объект, не являющийся 
инвентарем (то есть имеющий больший номер). 

Строка 1105 недоумевает по поводу попытки взять объект, который уже находится у 
Вас в руках. 

Строка 1110 удивляется, если Вы хотите взять инвентарь, который в принципе 
существует, но его сейчас нет в этой локации. 

Строка 1115 возмущается, если Вы хотите поднять больше объектов, чем это 
разрешено программой. 

Строка 1120 радуется, если Вы берёте в руки АЛМАЗ - это конечная цель миссии. 

Строка 1125 соглашается с Вами, если Вы берёте остальные объекты инвентаря, 
которые не были зафиксированы в предыдущих строках. 

Крупным блоком является блок, обрабатывающий глагол ОСМОТРЕТЬ (ПРОВЕРИТЬ). 
Здесь проверка разветвляется на несколько ветвей для ускорения анализа. 

Строка 1300 разделяет проверку на относящуюся к инвентарю и прочим объектам. 


Строка 1305 отражает закрытое, а строка 1310 - открытое (в случае выключенного 
флага двери) состояние двери. Строка 1312 зацикливает программу. 

Строка 1315 аналогично двери перехватывает проверку ворот. 

Строки 1317 и 1320 аналогично двери отражают открытое или закрытое состояние 
ворот (в зависимости от флага ворот). После чего строка 1322 зацикливает программу. 

Строка 1325 предупреждает о выкопанной яме, если Вы находитесь в саду и 
осматриваете САД или ЛУЖАЙКУ и при этом яма выкопана (флаг ямы в саду - установлен) 
или Вы находитесь в поле с выкопанной ямой и осматриваете ПОЛЕ. 

Строка 1330 отражает результаты проверки, если Вы находитесь в саду и 
осматриваете сад или лужайку, но яма не выкопана (этот случай был перехвачен 
предыдущей строкой) или в поле, в котором тоже нет ямы. 

Строка 1335 показывает результат проверки ЯМЫ, если Вы находитесь в поле, в 
котором выкопана яма или в саду, в котором выкопана яма. 

Строка 1340 - результат осмотра ПЯТНА, если Вы находитесь в саду и яма закопана. 

Строка 1345 - это результат всех остальных проверок. 

Строка 1350 перехватывает проверки тех предметов, которых нет в этой локации и нет 
у Вас. 

Строка 1355 показывает результат осмотра ПЛЕДА или ПЛЕДА НАДЕТОГО НА ПЛЕЧИ. 

Строка 1360 - результат осмотра ФАКЕЛА или ГОРЯЩЕГО ФАКЕЛА. 

Строка 1365 - осмотр ШКАТУЛКИ. 

Строка 1370 - осмотр АЛМАЗА. 

Строка 1372 - осмотр ЩЕПОК. 

Строка 1375 - все прочие случаи, не предусмотренные программой. 

Подробную расшифровку некоторых строк мы дали только для примера. С 
остальными Вы теперь сможете разобраться самостоятельно. 


Кодовый блок программы. 

Эта информация представляет определённый интерес для "хакеров". Речь идёт о 
блоке кодов "зу$ет" СОБЕ. В том случае, если Вы не изменяли данные, заданные в 
Листингах 1 и 2, адрес загрузки блока кодов - переменная ЗА\Е - будет равен 63400. Этот 
блок занимает пространство до 65368 (начало символов УО@ - графики, стандартно 
расположенных здесь). Если Вы увеличили число слов, распознаваемых программой, то 
адрес загрузки Вашего блока отодвинется в сторону младших адресов. Здесь надо 
проконтролировать, чтобы он не перекрывался с загружаемым символьным набором, 
который сейчас расположен с адреса 50000 и имеет длину 768 байт (см. Листинг_3) - может 
этот адрес и изменить. 

С адреса загрузки ЗА\Е блока "зуз4ет" СОГБЕ расположены те данные, которые были 
заданы в строках ОРАТА программы АВ$ (вместе с Листингом_2). Здесь расположена 
таблица переходов между локациями, как она была задана в 3000-х строках, группы 
четвёрок символов, заданных для идентификации слов ит.д. 

Начиная с адреса 64000, блоки, расположенные здесь, имеют постоянные адреса и не 
изменяют своего положения. 

Ячейки 64114 и 64115 являются рабочими ячейками, в которых хранятся выходные 
параметры анализатора текста и подпрограмм перемещения. 

С адреса 64116 расположена таблица данных, передаваемых через эту область из 
программы АВ$ в демонстрационную программу (см. строки 9957-9960 Листинга_4). 

С адреса 64130 зарезервирована область размером 150 байт. Она служит для 
временного сохранения текущего состояния игры, которое определяется таблицей 
состояния флагов (100 байтов) и таблицей текущего расположения объектов (50 байтов). 
Сами эти таблицы расположены с адреса 64230 (этому числу равна переменная Е, а 
переменная О на 99 байтов больше, то есть 64379). Ячейка 64130 - первая ячейка 
сохраняемой области - соответствует значению флага (Е+0), то есть текущей локации. Это 
число не может быть равно нулю (не бывает нулевой локации). При старте 
демонстрационной программы, в эту ячейку заносится ноль (строка 9961 Листинга_4), 


предохраняя, таким образом, от сбоя при попытке загрузить состояние, если оно не было 
прежде сохранено. Эту проверку выполняет строка 1814 Листинга_5. 

С адреса 64430 расположены процедуры в кодах. 

Процедура по адресу 64440 проверяет необходимость и выполняет скроллинг экрана, 
обеспечивая в заданных пределах сохранение на экране Ваших команд и ответов 
программы на них. 

Процедура по адресу 64495 (строка 200) - анализатор текста. 

Процедура по адресу 64930 сканирует таблицу расположения объектов, выявляя те 
предметы инвентаря, которые находятся в текущей локации и видны (строка 105 Листинг 4). 

Процедура по адресу 64968 (строка 1502) выполняет аналогичную операцию для того 
инвентаря, который находится у Вас в руках (или на Вас). 

Процедура по адресу 65005 (строка 1090) - процедура перемещения. 

Процедура по адресу 65058 (строка 9980 Листинг _4) выполняет инициализирующие 
действия при старте программы, в частности, обнуляет 150-байтовую область с адреса 
64280 - таблицу флагов, заносит значение стартовой локации в таблицу флагов (Е+0) а 
также исходное расположение объектов в таблице текущего расположения. 


Создание собственной игры. 

Когда Вы отладите программу и демонстрация заработает, перед Вами встанет 
следующий вопрос: "А как мне написать свою игру?" 

Во-первых, прежде чем приступать к созданию собственной игры, прогоните 
демонстрацию и внимательно изучите все детали. Во-вторых, даже и не подходите к 
компьютеру, пока тщательно не продумаете сценарий своей игры на бумаге. Вы должны, по 
крайней мере, разработать карту и разместить на ней все участвующие в игре объекты с 
указанием, к какому типу они относятся. 

Сначала спланируйте весь сценарий просто на бумаге, после чего можете приступать 
к работе с головной программой (Листинги 1 и 2, объединённые при помощи МЕРВСЕ, иными 
словами, то, что теперь записано на ленте _А). Ещё раз отметим, что самый простой способ 
понять, что и как надо делать - это максимально подробно проследить логику работы 
демонстрационной программы. 


С чего практически начать? 

Посмотрите на Листинг 4 - кроме блока строк с 7000 - это почти готовый дебют для 
новой игры. Надо лишь добавить к нему блоки строк с 1700 ис 1800 - СОХРАНЕНИЕ и 
ЗАГРУЗКА, да ещё со строки 1600 - КОНЕЦ и получится прекрасная заготовка для Вашей 
собственной игры. Осталось только добавить (или изменить имеющиеся) строки, 
отвечающие за закрытые или запертые двери, освещение, монстров и разные ловушки, 
которые будут в Вашей игре. Эти изменения надо ввести в блок перемещения - со строки 
1000. 


Скорость работы и объём памяти. 

При создании собственной игры размер занимаемой памяти может стать критичным. 
Место, отведённое для Бейсик - программы можно расширить, отодвинув символьный 
набор в сторону старших адресов, но так, чтобы он не наложился на блок кодов "зуЗет" 
СОВЕ, об этом уже говорилось несколько выше. Практически для этого надо изменить 
параметры оператора СТЕАВ и изменить адрес загрузки символьного набора "сйг" СОПЕ. 
Надо также в соответствии с новым адресом загрузки символьного набора изменить 
значение СНАВ5, задаваемое в строке 20 Листинг 3. 

Другим решением бывает замена часто встречающихся чисел переменными. 
Например, 0 и 1 постоянно встречаются в листинге. Поэтому, например, если присвоить: 
ГЕТ М=0: ЕТ у=1 и по всему тексту программы заменить 0 и 1 на М и 4 Вы получите 
существенную экономию памяти. Числа 0 и 1 могут заменяться иначе. 0 - МОТ Р!, а 1 - $СМ 
Р1. В то же время, если этот подход довести до неразумных пределов, он может сказаться на 
скорости работы программы. 


Структура подпрограмм. 

Подпрограмма "ПРОВЕРИТЬ" или "ОСМОТРЕТЬ" по-видимому, у Вас будет одной из 
крупнейших подпрограмм, но можно ускорить время её работы, если разбить её на 
несколько блоков. Так, например, это делает строка 1300 в демонстрационной программе, 
разветвляя исполнение в зависимости от номера объекта по разным ветвям. Но и 
дальнейшая разбивка этих ветвей тоже возможна. 


РОВУМ 


Проблемы ЕМТЕ 


Внимание, друзья! Мы представляем Вам нашего корреспондента из Альметьевска - 
Абдрахманова Руслана. Впервые мы приводим свидетельство пилота, который лично видел 
РАККСЛУ. 

А начиналось все с "7Х-РЕВЮ". Руслан начал выписывать его только в 93-м году и 
журнал стал как бы "ключом" к тайнам "Зрессу", позволившим заглянуть дальше, чем ГОАВ и 
Рге$$ апу Кеу. 

КОРР: ... До недавнего времени программа ЕЁНТЕ меня не интересовала: паутинная 
графика, никакого звука, непонятный сюжет. Но после публикации "Тпе Вагк \МПее!" все 
переменилось. Я стал отчаянно торговать, воевать, искать приключения. После рейтинга 
Сотрщеп{ дело застопорилсь. Но тут вмешался случай. По воле провидения я нашел 
планету ВАХХЕА!! И вот, как это произошло. 

... На последние деньги я купил галактический гиперпривод и стартовал с планеты 
ГА\Е. На экране пошли концентрические круги и вдруг в блоке питания что-то щелкнуло, но 
программа не сбросилась, переход продолжался. Очутился я у планеты УВВА. Правление - 
диктатура. Желая посмотреть карту, я нажал "О" и тут увидел, что нахожусь в галактике без 
номера, а около меня нет ни одной планеты, кроме ВАХХЕА! Представьте себе мои чувства?! 

МФК: Это представить невозможно, это надо пережить. Кстати, уважаемый Руслан, в 
пылу переживаний Вы могли не заметить, что кодов для планеты ЧАВА тоже нет в 
знакогенераторе игры, как и для Раккслы. Это является косвенным подтверждением того, 
что могут существовать планеты с именами, состоящими не только из стандартных слогов. 
Очень хорошо, что Вы запомнили название этой планеты, 

КОРР: ... Я сразу понял, что надо записать результат, но для этого пришлось 
пробиваться на станцию планеты ЦВВА. У нее был высокий технологический уровень -10, но, 
тем не менее, космос кишел пиратами. Меня бесконечно атаковали "Фер-де-Лэнсы", хотя 
статус у меня был чистый. Кроме них там были "Кобры" и астероиды. 

С трудом пробившись на станцию, я обнаружил, что к продаже там имелись только 
золото и радиоактивные материалы, причем все это по очень высоким ценам. Я конечно 
записал свое состояние на ленту, но, как потом выяснилось, безрезультатно. Этот блок 
оказался длиной всего 99 байтов и никуда не пошел. 

А на Раккслу меня не пустили, выдав сообщение "Нурегзрасе, Вапде?", хотя топлива 
было на 7 световых лет. Других планет рядом не было. На карте галактики я обнаружил, что 
она заполнена всего наполовину, вот так: 


Крестиком отмечено место, где быля. 

Остается добавить, что я пользуюсь версией М128, а гипердрайв был у меня 
установлен перед отлетом на планету 0170. 

Я не утверждаю, что всем надо взламывать свои блоки питания, но может быть мой 
случай кому-нибудь поможет. 

ИФК: Спасибо, Руслан за интересный отчет. Нам кажется, что Вы грамотно и четко 
держали себя в этой экстремальной ситуации и сделали все, что могли. Наконец-то у нас 
появилось хоть косвенное, но свидетельство. Единственное, о чем стоит пожалеть, так это о 
том, что Вы не прислали распечатку отгруженного блока. Хоть в нем всего лишь 99 байтов, 
но он, тем не менее, мог бы быть весьма интересен. По-крайней мере, по содержащимся в 


нем кодам можно было бы попробовать восстановить эту неизвестную галактику и 
попробовать по ней полетать. 

Будет очень обидно, если у Вас этот блок не сохранился. 

КОРР: У меня есть просьба к экспертам. Я был бы очень рад прочитать что-то о 
программах "ОРШЕВ", “"ТА!-РАМ", “ВЕАО НЕАО", "МОВТН & ЗОЧУТН". Эти игры 
многоуровневые и разобраться с ними начинающему пока не под силу. 

ИФК: Очень многие, желающие попробовать свои силы, спрашивают нас, какие игры 
мы могли бы порекомендовать для исследования. Просьба Руслана - достойный ответ на 
такие письма. 


Поклонник незабвенной ЕНТЕ, пилот Дм. Егоров из Уфы (РАМСЕВОЦ$) подсказывает 
тем, кто имеет статус ГЕУСПМЕ и не может законным образом совершить посадку на 
станцию. Став невидимым с помощью СЕОАКМ@ БЕМСЕ, Вы сможете обмануть офицеров 
службы безопасности. 


Нам пишет Владимир Бакаев из г. Челябинска. 


Здравствуйте! 

Вчера впервые прочитал выпуски "7Х-РЕВЮ" 1991 и 1992 г. и открыл для себя, что 
"Элитой" увлекся не я один. Мой рейтинг "Сотрщеп!", стаж - 5 месяцев. Прочитав о том, что 
Вы просите писать обо всем, что встречается в этой игре очень редко, спешу сообщить об 
одном происшествии. 

Решив как-то начать с нуля, я загрузил свой корабль на 100 Сги с ТА\Е отправился на 
ГАОМСЕ (извините, эту планету пишу по памяти). После /-прыжка поймал сигнал станции и 
стал к ней приближаться. Вскоре она появилась на экране. Но вид был необычным. Обычно 
это сначала точка, которая, по мере приближения становится вращающимся додекаэдром. 
А это была вертикально стоящая черточка. Я начал думать, что это корабль поколений, т.к. 
размеры его огромны. Но сигнал "5" шел от него. Подлетев поближе, я увидел, что “это” 


похоже на брусок. 


На верхней грани по диагонали - линия. Подлетев очень близко, я решил облететь 
вокруг. Но не тут-то было. Корабль мой был разрушен (никаких сообщений). 

Опять вылетев с ГА\Е и подлетев к "“7АОМСЕ", увидел ту же картину. Подлетев близко 
со стороны верхней грани и не рискуя опять взорваться, в последний момент решил влететь 
в черточку посреди нее. (Была надежда, что это вход в станцию). И это мне (я надеюсь) 
удалось. Но так как маневр не был подготовлен, то, задевая стенки тоннеля, корабль, 
истощив энергоблоки, был разрушен. 

Больше эта станция мне не встречалась. Буду рад, если кто-нибудь встречался с ней и 
знает, что это такое. 


В "7Х-РЕВЮ" М№-6 за этот год наш читатель из Москвы Т.М. Канразе попросил 
осветить недавно появившуюся программу ЕНТЕ-2. 
Ему не удалось установить в ней существенных отличий и она очень напоминает 


"версию-3" по классификации (№3-4,1993). Для прояснения ситуации мы адресовали этот 
вопрос к нашим читателям. Ответ последовал незамедлительно, тоже из Москвы, причем 
кажется, что из невинного вопроса нашего читателя рождается новое и интересное 
направление исследований. Вот, что пишет Алексей Лапшин (АХОРВЕ $04.) 


КОРР: Недавно, копаясь в новых демонстрационных программах, я обнаружил 
несколько выпусков новосибирского электронного журнала ТЕТЕЗНОМ\. В первом же номере 
я нашел нечто сенсационное. Мне удалось вытащить эту статью с диска в текстовый 
редактор, не трогая содержания. Я лишь убрал опечатки и характерные ошибки. На 
авторские права я, конечно же не претендую, но не послать ее Вам было невозможно. 
Привожу ее целиком. 

ИФК: Мы свидетельствуем свое глубокое уважение редакции и создателям 
ТЕТЕЗНОМ/ и с радостью бы вошли в контакт с целью установления взаимовыгодного 
сотрудничества, но, не зная адреса редакции, обречены на ожидание возможного контакта. 
Вдруг до них дойдет это наше обращение. 


Приведенная ниже информация является фактически рекламой программы ЕНТЕ-2, 
причем не просто рекламой, а лучшей ее формой - пропагандой. Фирма, подготовившая ее, 
отлично знает свое дело, жаль только нет координат, к кому следует обратиться за 
приобретением новой игры. 

Мы окажем всемерную помощь в рекламе и распространении игры тем авторам, 
которые подготовили этот интересный материал. Обращайтесь, Вы не будете 
разочарованы. У нас созданы дистрибуторские сети и они могут Вам помочь. 


*** ЕНТЕ 2 (48 К) *** 


Вы можете продолжить свою боевую и деловую карьеру, загрузив запись состояния, 
полученную в ЕНТЕ, но можете начать все сначала, с выдачи пилотской лицензии на планете 
ГА\Е в галактике 1. В любом случае первоначально у Вас имеется тот же корабль Кобра- 
МКЗ. Если управление Вам незнакомо, воспользуйтесь злектронным справочником. В этом 
рекламном листе приводятся вкратце лишь отличия новой версии. 

Действие игры ЕЧТЕ-2 происходит в 3192 году. Галактическая Федерация по- 
прежнему использует высоконадежные орбитальные станции типа "Сопой5", но теперь они 
обязательно оборудованы усовершенствованными средствами наблюдения и опознавания. 
это означает, что в виду базы можно беспрепятственно использовать любые виды оружия 
для отражения атаки врагов Федерации: Таргонов, пиратов, нарушителей. На базах 
размещаются любые корабли, кроме Таргонов и пиратов и, зависнув недалеко от входа, 
можно наблюдать, как кто-нибудь покидает станцию и уходит в гиперпространство. Кроме 
того, "Сойой$" обязательно несет флот полицейских кораблей типа \Мрег, которые в любой 
момент готовы обрушиться на голову агрессоров, атаковавших станцию или мирный 
корабль. 

В Е|ТЕ-2 получено значительно большее приближение к фантастической реальности 
этой игры. В отличие от ЕПТЕ, в новой версии возможно воочию наблюдать, как другие 
корабли взаимо- и противо- действуют, выполняя сложные маневры в пространстве, 
используя лазеры, ракеты и прочее оборудование, подобно тому, как это делаете Вы сами. 
На первых порах, особенно при полетах на неблагополучные планеты, анархические и 
Феодальные особенно, имеет смысл искать в пространстве союзников, и ни в коем случае 
не отказываться от полицейского эскорта. Следует также с умом использовать разногласия, 
возникающие между различными пиратскими кланами, и жадность охотников, легко 
отвлекающихся на собирательство обломков и контейнеров - для того, чтобы оторваться от 
погони. 

Применение устройства невидимости теперь не является панацеей - так же, как это 
делаете Вы сами, другие пилоты пытаются поразить невидимого противника, используя 
локатор и электронную систему наведения ракет, правда, вероятность попадания по 


невидимке значительно ниже. 

В пространстве Вы можете встретить все старые корабли: Азр, Еег ае [апсе, Сорга, 
РИвбоп, Мрег, Заемипаег, Адаег, Кгай, Тпагдоа. Кроме того, начали выпускаться новые 
корабли классов Сеско и Матра, а Таргоны приняли на вооружение новую разновидность 
корабля вторжения - с шестью гранями, получивший среди охотников условное название 
Тагаоа-6. 

Станции во время технического обслуживания в обязательном порядке снабжает все 
корабли новым оборудованием. Все корабли класса Сорга, в том числе и Ваш, получает 
новый локатор (включается по САР$-+1), и модифицированный компас (САР$+С). Новый 
локатор наиболее полезен в ближнем бою, и прекрасно дополняет старый. В межзвездном 
пространстве новый компас автоматически переключается в режим гирокомпаса и 
показывает стороны света №-$, \\-Е, соответствующие северу-югу, западу-востоку в карте 
галактики. Гирокомпас позволяет ориентироваться в межзвездном пространстве и 
совершать перелеты от одной планетной системы к другой без гиперпереходов, на +- 
двигателе. 

В пределах планетной системы новый компас в режиме 1 работает, как и прежде, 
показывая направление на планету, а в режиме 2 начинает попеременно показывать 
направление на Солнце и на планету. В частности, это очень удобно и полезно для быстрого 
поиска пояса астероидов, который обычно начинается на достаточно большом удалении от 
Солнца. 

Технологический прогресс неостановим и на планетах уровня-15 Вы уже можете 
купить Зирег-ЁГазег (33000 Сг). Кроме того, на экспериментальных двойных станциях, 
расположенных вблизи солнц в планетарных системах, лежащих на главной диагонали, 
возможно приобрести новый корабль "Кобра МКА", но об этом будет сказано ниже, в 
разделе, посвященном новым миссиям. 

Произошли кое-какие изменения во внутренней и в экономической политике. Ввиду 
готовящегося крупномасштабного вторжения Таргонов, Федерация решила легализовать 
торговлю оружием - Егеапт$ перестали быть запрещенным товаром. 

Полицейские корабли - неприкосновенны. Уничтожение полицейскогого равно как и 
уничтожение орбитальной станции, принадлежащей Федерации, превращает Вас в 
нарушителя номер 1. В галактиках 2-8 таких нарушителей встречает вблизи планеты 
полицейский кордон. 

Как и прежде Вам могут быть выданы специальные миссии: по спасению беженцев со 
станций, солнце которых превращается в новую, по уничтожению корабля-невидимки и по 
уничтожению базы, захваченной Таргонами. Но, кроме этих трех миссий (которые в новой 
игре могут повторяться неоднократно), добавлено несколько новых. 

Миссия-4 - "Мтега! Те". В планетных системах на главной диагонали галактики в 
поясе астероидов Вы можете, разрабатывая астероиды, подобрать необычные объекты - 
"минеральную жизнь". Каждая тонна породы, содержащей "живые кристаллы", может быть 
продана за 1000 Сг. Однако, существуют особые условия для сохранения жизнеспособности 
этих привередливых космических овечек. Их должно быть не менее 3-х тонн и не более 63-х 
тонн, потому их нельзя продать в количестве 1 или 2 тонны одному покупателю. 

В момент выполнения гиперперехода они питаются драгоценными камешками 
Вашего сейфа, съедая по 1 грамму за каждую тонну живого груза. И если скольких-то 
каратов драгоценного сена им не хватит, в Ваших отсеках окажется обычная дешевая 
порода. А в случае гибели этой минеральной жизни (по любой причине) отсеки вашего 
корабля окажутся зараженными кристаллическим лишаем, который уже не даст Вам 
возможность вновь превратить свой корабль в летающую ферму, пока отсеки не будут 
очищены при выполнении миссии по спасению беженцев или при доставке Оезепга. 

Миссия 5 - "Айеп Сотрщег". 

Уничтожив корабль Таргонов, можно подобрать контейнер, содержащий это 
устройство, позволяющее запускать имеющиеся на борту АйШеп Метз вместо ракет. Для 
запуска используются клавиши "О-+Е", но этот вид оружия эффективен только против самих 
же Таргонов. 


Следует добавить, что Айеп Сотрщег обеспечивает еще и автоматический возврат 
запущенных Айеп Кепл$ на борт корабля после уничтожения цели. 

Миссия 6 - "Кобра МКА4". В планетных системах на главной диагонали галактики 
вблизи Солнц расположены спаренные станции “Кориолис" - это экспериментальные 
лаборатории Федерации. При подлете к ним, Вам предлагают купить корабль класса "Кобра 
МК-4". Однако, добраться сюда не просто. Многочисленные корабли, а в основном это 
Азр'ы и Сеско ведут здесь ожесточенные сражения и без эскорта Айеп Цетз делать там 
нечего. 

От сопровождения следует вовремя избавиться, чтобы “двойные базы" не приняли 
Вас за враждебную флотилию. Для покупки нового корабля требуется 250000 Ст, но он стоит 
этого! Имея Кобру МК4, Вы можете купить до 4-х устройств сразу. Причем покупка четырех 
Гагде Сагдо Вау$ увеличивает грузоподъемность до 80 тонн, а покупка нескольких Епегау 
Цпй$ дает соответствующий рост скорости подзарядки энергетических отсеков. На Кобре 
МК4 возможен перелет в любую галактику - достаточно нажать номер галактики от 1 до 8, 
пока идет предстартовый отсчет. Лазеры на новой Кобре установлены на поворотном 
лафете, на "горбу" корабля. В любой момент Вы можете повернуть лафет по часовой 
стрелке (САР$ + А) и поставить на нужный экран нужный Вам лазер. 

При нажатии клавиши "/" даже и при наличии поблизости больших масс достигается 
значительное увеличение скорости и маневренности Кобры МКА4. 

Миссия-7 - "Зрасе \\аг". В течение более, чем столетия Таргоны готовились к войне с 
цивилизованными галактиками. Их эскадры бороздили межзвездное пространство, и лишь 
изредка их корабли появлялись на границах планетных систем. Совсем недавно армада 
кораблей вторжения вновь пыталась захватить орбитальную станцию федерации, но 
благодаря отважному коммандеру база была взорвана и угроза нашествия приостановлена. 

Но вот наступил час Икс и Таргоны начинают крупномасштабное вторжение в одну из 
галактик. Каждый раз, когда Вы получаете сообщение "МАУОА\! Саасйс М пуадеа!", 
область, захваченная Таргонами, увеличивается. Планетарные системы, находящиеся в 
состоянии активных боевых действий, обозначаются как РВЕЗ!ЗТИМО. Системы, в которых 
сопротивление подавлено, а орбитальные станции захвачены Таргонами, отмечены, как 
ОССУРИЕО. На оккупированных планетах флот Таргонов организует кордон при подлёте к 
планетам и гиперперелёты между охваченными огнём планетами становятся опасными. 
Межзвёздное пространство заполнено эскадрами Таргонов, перехватывающими корабли 
федерации. 

Вы можете остаться посторонним наблюдателем, но если Вы настоящий патриот 
Федерации, то непременно пожелаете вступить в ряды её добровольных защитников. 

Сделать это можно на любой воюющей, но ещё не оккупированной планете. Вам 
присваивается звание - лейтенант, и выдаётся первая миссия - эвакуация гражданских лиц, 
раненых и беженцев из воюющих (ВЕЗ!ЗТИМО) систем. После того, как командование решит, 
что Вы справляетесь с этим заданием нормально, оно присваивает Вам звание - капитан и 
даёт задание по доставке оружия и продовольствия на воюющие планеты. Исполняя эти 
первые две миссии, Вы совершаете полёты между воюющими и невоюющими системами. 
Вам достаточно часто будут встречаться как одиночные Таргоны, так и целые флотилии 
перехватчиков. Это обеспечит достаточную практику для выполнения последующих миссий. 

Когда, наконец, Вы получите звание - майор и задание по доставке десанта на 
оккупированные территории, Вы должны быть уже достаточно опытным бойцом, чтобы 
преодолеть кордон из кораблей Таргонов и прорваться к захваченной ими базе. Взяв на 
борт десантный корабль типа З4емипаег, Вы должны будете добраться до базы Таргонов и 
высадить десант. При этом Вы не сможете использовать Айеп Сотрщег, т.к. грузовой отсек 
занят десантным кораблём. Не сможете использовать и ракеты, вместо них запускается 
десантный корабль. 

Запуск десанта следует выполнять с как можно более близкого расстояния к базе, 
чтобы до телепортации через силовое поле станции его не успели расстрелять Таргоны, 
обороняющие базу. Сразу после успешной высадки десанта Вы можете сами 
телепортироваться на станцию, включив Восктд Сотрщег - база уже контролируется 


силами федерации. Чем глубже в тыл Таргонов Вам удастся высадить десант, тем большее 
количество оккупированных планет выйдут из-под контроля Таргонов. 

Последняя, предлагаемая Вам вместе со званием полковник, миссия состоит в 
поиске командной базы Таргонов, расположенной где-то в глубинах космоса. Штаб сможет 
Вам сообщить лишь приблизительное название планетной системы, на расстоянии в 
несколько световых лет от которой находиться эта база. Такое же задание даётся всем 
пилотам, поступившим на службу добровольно. В принципе, исход войны уже предрешён, 
цивилизованные галактики снова в безопасности. 

Следует отметить, что добровольцы воюют на своих собственных кораблях, которые 
вооружаются на собственные сбережения. Но при этом они в значительной степени 
остаются самостоятельными в выборе маршрутов движения, действиях ит.д. 


КОРР: И, в завершение, несколько комментариев от новосибирцев: 

Во-первых, программе требуется дисковод. Это связано с тем, что программа сильно 
защищена ...... (строки письма корреспондента с соображениями о практическом подходе к 
копированию программы опущены по известным причинам..). 

Во-вторых, в программе существует ещё множество тонкостей, которые Вы сами 
сразу же найдёте. Есть и ещё некоторые “вещи”, о которых Вы узнаете, поиграв приличное 
время. 

В-третьих, программе требуется очень узкий список аппаратных и программных 
средств. Так, авторами сообщается о необходимости работы в ТВ-0О$ 5.03. Испытания 
показали, что и на ТВ-0О$ 5.04$ программа тоже почему-то работает. 

В-четвёртых, в программе корабли больше соответствуют фирменному описанию. Те 
счастливцы, которые имели доступ к фирменному описанию, знают, что увидев "Кобру МКЗ" 
или "Питон" следует выключить лазер и прикинуться "бедной овечкой" ... 

ИФК: Здесь есть какой-то элемент непонимания. Дело в том, что к "счастливцам" 
следует отнести всех читателей “"7Х-РЕВЮ", т.к. фирменное описание у нас есть и то 
описание, которое мы давали в "7Х-РЕВЮ" №2, 1991г. - это и был наш перевод фирменного 
описания, правда чуть-чуть сокращённый ради экономии места. При этом, к сожалению, 
выпали чертежи кораблей, но и их мы потом тоже дали вдогонку в "7Х-РЕВЮ" №10, 1991г. 

КОРР: ... 

В-пятых... Но пожалуй уже хватит. Приобретите себе программу и узнаете обо всём 
сами". 


В конце от себя добавлю, что по состоянию на середину октября 1993 года на 
московских радиорынках настоящей ЕПТЕ 2 замечено не было (а у новосибирцев, между 
прочим, она есть!). То, что уже длительное время продаётся в Москве под этим названием - 
Версия 3 по Вашей классификации. 

ИФК: Ну, вот, конец с концами и сошлись. Ясно теперь, почему Камразе Т.М. не нашёл 
в ней ничего особенно нового. 

КОРР: И ещё любопытная информация по этому поводу. На компьютере АМ!СА (500, 
500+, 600, 1000, 1200. . ит.д.) к августу 93-го года тоже, как ни странно, существовало три 
версии игры. Это ЕНТЕ (классика), ЕЧТЕ Р!и$ (соответствующая "версии 3"). И новая (!) 
ЕНТЕ 2.0, которая наверное и похожа на вышеописанную "спектрумовскую" ЕНТЕ 2. 

Кстати, каталоги игр для АМИГИ подозрительно напоминают спектрумовские. Один 
только сериал 07 2У (1-8!) чего стоит, но об этом можно было бы писать ещё долго. 

ИФК: Спасибо, Алексей. Наши почитатели 017.7У теперь кстати будут знать, что их ждёт 
в ближайшие годы. 


В заключение Алексей очень тепло отзывается о своей машине АТМ-+игоо 512++ \4.50 
(память как у АМИГИ, возможности как у СПЕКТРУМА). Второй знак "плюс" означает 
доработку до почти полной совместимости - классная машина! Алексей очень рекомендует 


также текстовый редактор 2Х-\\/ОВР \1.01 из Харькова. 
Ещё раз спасибо, Алексей, мнение эксперта очень важно нашим читателям. 


Вопросы совместимости. 

Алекс Вебер из посёлка Краснозёрское Новосибирской области готов помочь тем, у 
кого есть проблемы с запуском программы ЗЙет Зегисе. Суть проблемы в том, что после 
загрузки БЕЙСИК - блока, программа стартует, появляется надпись $. Зегмсе, выдаётся 
короткий звуковой сигнал и... программа сбрасывается. 

Вскрытие показало, что загрузчик в машинных кодах встроен в БЕЙСИК после ВЕМ и 
там сразу за выдачей звукового сигнала стоит опрос порта 31 (Кемпстон-джойстик). Если на 
джойстике - 0, то программа сбрасывается. 

Итак, нужно позаботиться, чтобы во-первых Кемпстон-джойстик был подключён, а во- 
вторых, чтобы на нем был не ноль, например, нажать кнопку джойстика во время опроса. 
После нормального старта загрузки кнопку можно и отпустить. 

Другой подход - убрать этот опрос из загрузчика. 

Непонятно, какие цели преследовал тот, кто таким образом переделал загрузчик. 

И ещё: в программах, взломанных 1МХ’$ ЗОРТ и МСВОРОЕ, а также Б. Гильбертом 
после 90-го г. уже встроены РОКЕ$З, но стоят за оператором ВЕМ. Поэтому если Вы хотите 
ими воспользоваться, то удалите ВЕМ в БЕЙСИК - загрузчике и запустите его снова, а затем 
грузите программу дальше. 

Спасибо за “Программирование в машинных кодах". По Вашей книге я научился 
разбираться с кодом фирменных программ. 

ИФК: Спасибо и Вам, Алекс. Ваши слова - для нас отличная реклама. Мы знаем, что 
эта книга пользуется особой популярностью и надеемся на то, что наши новые книги, 
стоящие в плане на 1994 год тоже получат Ваше признание. 


* * * 


Масленников В.Г. из г. Чебоксары пишет о том, что почти на всех отечественных 
моделях не идут программы ЗНОАТ СВООЦТП и ТОР СИМ. Причина - в отсутствии порта ЕЁН. 
Опрашивание порта в программе ЗНОВТ С!ВОУП выглядит примерно так: 
[0ОР 1 А, 28Н 
ТМА, (ЕЕН) 
ТС А 
УВ 7, 100Р 
ВЕТ 
Подпрограмма зациклена до тех пор, пока с порта ЕЕН поступает число ЕЕН. Сделано 
это для того, чтобы спрайты на экране не мерцали. 
Вместо этого фрагмента можно вставить в программу другой, имеющий ту же длину и 
не портящий никаких регистров, кроме аккумулятора: 
РОЗН НЕ 
[00Р БА, (НЕ) 
ТМС НЕ 
ТАС А 
УВ №, 100Р 
РОР НЕ 
ВЕТ 
Для тех же, кому важнее конечный результат, можно порекомендовать загрузить блок 
длинной 41986 в копировщик СОРУ - СОРУ под адрес 23296 и дать: 


РОКЕ: 33621229; 120; 35; 60.92; 251225, 201 


Аналогично ремонтируется и ТОР СИМ. Для этого блок 40100 загружается в СОРУ - 
СОРУ под адрес 24625 и: 


РОКЕ 26642, 251; 118; 118; 0: 0: 0: 0: 0 
РОКЕ 56160, 229: 126; 35; 60: 32: 251; 225 


Значение такого совета трудно переоценить и мы сердечно благодарим Владислава 
Геннадьевича от имени всех читателей, которым помогли его советы. Вполне возможно, что 
с такой технологией удастся "отремонтировать" ещё не одну программу. Ждём сообщений. 


Советы и секреты. 

Нам пишет ТНЕ САТ из г. Харькова. 

Привет, ИНФОРКОМ! Посылаю выполненное мной в жанре "компьютерная новелла" 
описание игры ЗАМИВА! М/ААНОРН (к сожалению, фирму - изготовителя указать не могу - 
известно только, что взломана она была командой 5. 5. САРТАМ & ВАМЗЕЕ) в 1989 году. 

Жанр игры определить довольно трудно - я бы назвал это АБВУЕМТУВЕ/АСТ!ОМ. Игру 
отличает динамичность, прекрасно выполненная графика и интересный сюжет. 
Напечатайте, если можно... 

ИФК: Печатаем, причем с огромным удовольствием. Пробным камнем для "новеллы", 
как Вы знаете, является вопрос ЗАХОЧЕТСЯ ИЛИ НЕТ ЧИТАТЕЛЮ СЫГРАТЬ В ЭТУ ИГРУ?! 
Попробовали Вашу новеллу на себе и так захотелось сыграть... В общем, ещё десяток 
подобных новелл и у нас некому будет выпускать "7Х - РЕВЮ", все будут играть, играть и 
ещё сто раз играть. 

Единственное, что успокаивает, так это то, что написать так, как это сделали Вы, очень 
непросто и вряд ли на нас в ближайшее время обрушится ЦЕЛЫЙ ДЕСЯТОК. 

Мы надеемся, что Вы простите небольшие комментарии от нас, вставленные после 
Вашей новеллы. Сами ведь понимаете, нам тоже хочется прислониться к хорошему делу, а 
то ещё уволят по сокращению штатов...(шутка). 

КОРР: И ещё в раздел "ФОРУМ". В игре "1МРАСТ" можно получить вечную жизнь, если 
в строке 30 загрузчика убрать команду ВЕМ перед стоящим там РОКЕ (У меня версия игры, в 
которой после загрузки первого блока, остановки и нажатия "ВВЕАК" на экране появляется 
надпись "О15кеа бу ВЙу". 

Вот и всё. С большим уважением. ТНЕ САТ. 

Р.5. Кто бы помог (если можно) достать программы "ОНО ОЕ ТНЕ РМО5$" и 
"ЭНАООМ/5 ОЕ МОВООВ"? 


310142 Харьков а/я 1968, ТНЕ САТ. 


Нам пишет Шалыминов С.П. из Нижнего Новгорода. 

КОРР: Хочется дополнить план игры к программе Айеп$, опубликованный в № 5-6 за 
этот год. Можно видеть, что комнаты пронумерованы от 1 до 255, но нигде на плане нет 
комнат с номерами 249...252. Попасть в них можно только из комнаты 248, предварительно 
расстреляв там все коконы. План принимает вид: 


ххх 
255 


250 249 248 251 252 


ИФК: Спасибо за ценное дополнение. Сейчас уже не установить, то ли в письмах 
авторов эти комнаты были не разысканы (черновики не сохранились), то ли это мы при 
наборе плана их пропустили. Скорее второе, чем первое. Тем не менее, мы рады Вашему 
письму и если вина лежит на нас, то это к счастью, ведь благодаря этой ошибке мы имели 
честь познакомиться с Вами. 

КОРР: ...Я это узнал только методом проб и ошибок. Долгое время я играл, держа всю 
карту в памяти, пока не устал. Тогда составил свой план и обнаружил этот парадокс с 


"пропавшими" комнатами. Начал их искать, и вот... результат перед Вами. 

Я тоже очень люблю составлять карты к играм и составил их к Вобт @ооа, Вап Ваге, 
Еаитох, дип т, Без \\М зп 3, Везаце, на подходе карта к ЗУикКе Рогсе Сорга. Если кто-то 
нуждается в них, могу прислать. 


603163, Н. Новгород, Ул. Бринского, д.5, к.1, кв.80 Шалыминову С.П. 
Ещё я люблю разыскивать РОКЕ$ или проверять взятые из других источников. Вот 


несколько, найденных или лично проверенных РОКЕБЗ: 
юр пе Ехргез$ - 34467,0; 34929,0; 35260,0 


Сигзе 63033,0; 64613,0 
Вепедаае 342204,182; 42789,182 
Мебци$ 32913,0 

Губех 45277,0; 45368,0 

Е. Мпа 236578,0 

Ворот Е5саре 54697,0; 54698,50; 54699,3 
Вюпс 34247,0; 34274,0 


Мне очень нравятся Ваши публикации по ЕНТЕ. Сам я пользуюсь версией М128, 
переделав её под дисковод. Вот только никак не могу сделать отгрузку/подгрузку для диска. 
Не могу понять, как там это организовано. 

ИФК: Может быть кто-то даст четкие советы по этому поводу нашему уважаемому 
корреспонденту и другим читателям? 

КОРР: ...Я тоже раскрутил словарь в программе и тоже знаю, что кода "ХХ" в нем нет, 
но я точно знаю, что есть названия планет, которые состоят не только из тех слогов, что есть 
в словаре, так что рано предполагать, что "Ракксла" не существует. 

ИФК: Это интересно! Особенно если учесть информацию, полученную от 
Абдрахманова Руслана (см. выше). 

КОРР: В этой версии почему-то не проходит безтопливный перелёт со станции на 
станцию, а вот в версии Ве-Ве Зов у меня это получалось. 

В целом я отношу версию М128 К сложным версиям. Пираты здесь, как правило, АЗР 
МК П, КААТ, ЗШОЕМММОЕВ, реже - РУТОМ, совсем редко - СОВВА МК И. Ни разу не встретил 
АООГЕВН. Еег-Ое-ЁГапсе можно встретить в двух случаях: если летишь к звезде и статус - Сеап, 
он не стреляет первым. Если же у Вас статус Гидйме - он нападает сразу, даже если 
появится в переднем экране. 

ИФК: Типичное поведение "Охотника за призами", занимающегося боевыми 
действиями ради спортивного интереса. Можете быть уверены, его рейтинг - ЕМТЕ или 
близкий к нему. 

КОРР: ... Полиция (МРЕВ) весьма маневренна. На неё лучше не нападать. А станция - 
вообще святыня! Стоит один раз по ней выстрелить и по одному начнут вылетать 
полицейские корабли, до 10 штук. Как правило, это смертельно, если не уйти в 
гиперпространство. 

Очень часто встречаются астероиды с отшельниками, причём по внешнему виду их не 
отличить от обычных. Если по нему выстрелить, начинает маневрировать и выпускать 
корабли - КАВАТ и ЗРЕ\МММОЕВ. 

Вообще, кажется, что это самая интересная версия игры из тех, что я видел. 

ИФК: Мы надеемся, что наши пилоты в поисках острых ощущений учтут это мнение. 
Спасибо за Ваше письмо. 


Гаврилов Сергей Александрович из г. Костромы приводит проверенный им РОКЕ для 
программы ВЕХ-1 
23624, 0; 39402, 0; 40057, 0 


Свои РОКЕ$, найденные лично, Вам предлагает читатель из Красноярска Татаренко 
А.А. 
1. ЗРЕНВОЧМО 


27871, 0; 36133, 0; - энергия или 
35101, 195; 35102, 53; 35103, 206 


2. 01772 - 29289, 201 - неуязвимость 

3. 017273 - 42481, Х - кол-во жизней 
63001, 0 - беск. жизни 

4. 074 - 29623, 0; 29624, 195 - беск. жизни 

5. 01775 - 51291, 0 - беск. жизни 

6. ЗТАВ ВО\ММ $ - 47806, Х - кол-во жизней 
46278, 0 -беск. жизни 

7. ЭСУМВАЕ( - 49038, Х - жизни 

8. СОСОВАМА - 43855, 0; 48658, 0 - беск. жизни 

9. ТОМСАТ - 37174, 0 - беск. жизни 
37171, 201 - неуязвимость 

10. ТРАСЕВ - 50273, 0 - время 


50613, 0 - энергия 
50649, 0 - беск. жизни 


11. ТММЗТЕВ - 42412, 0; 42490, 0 - энергия 
12. БАВК РУЗЮМ - 50407, 0; 50408, 0 - беск. жизни 
13. ХЕМОМ - 25148, 201 - жизни 


14. СОМОЧЕЗТ (ЕВВЕ ЗОЕТ) - 62370, 0 - останавливает противников 


* * * 


А эти РОКЕЗ пришли к нам из Белоруссии, их прислал наш читатель из г. Гомеля 
Владимир Хронов. 


Соте! Тесппозой’92 

Все РОКЕЗ даны для игр в развёрнутом виде. 

1. РВОЗТ ВУТЕ 33989, 0; 36560, 0 

2. ОЕ ВЕАПЕ-З 43059, 195 

3. КНОМ 45004, 0 

4. РАМАМА ОЕ 38633, 60 

5. <ООБ\ 46187, 0 

6. САРТАМ ТВУЕМО 38310, 24; 38363, 201 

7. ОВАКОМИ$ 64215, 0 

8. ЗАУАСЕ 1 39446, 0 

9. ЕМЕМ ММААВОВ 36767, 0 

10. СВОМ 56190, 0 - Епегау 
56220, 0 - Муез 

11. УЕТ! 47894, 0 - Имез 


* * * 


Семёнов Алексей из г. Балаково лично проверил следующие РОКЕЗ: 


ЕГЕРНАМТ АМТ!С 35354, 255; 35363, 255 

ВАН ВАЕАКЕА 35840, 0 

ВАН: ВВЕАКЕН 2 38874, 0; 35938, 0; 35729, 99 
кама КОМО 30033, 0 - бессмертие 


30038, 0 грязь к ногам не липнет; 
30053, 24 огонь не жжёт; 


30063, 24 бочки не сбивают. 


30043, 24 
30048, 24 
АЁЕРМ САМЕЗ остановить программу кнопкой ВВЕАК, удалить строку 5620 и 
дать СОМТИМИЕ. 
РНОТО АЕВУМ 56203, 0 
56364, 0 время стоит 
56249, 0 
51765, 0 неогр. ошибки 
|МРАСТ пароли: 
ЕСО$, СНР, 1ЕАО, ТСК, САЗЕ, ЕАСЕ, 4.0. 
ВВЕАКМЕСК 46090, 0 - жизни 


46013, Х - (0<Х<200) - номер комнаты. 


* * * 


Наш читатель Шабалин М.М. из г. Ухты вскрыл "жучок" в программе "АРЕМЕСАПЕ" и 
готов им поделиться. 

Этот "жучок" относиться к тем, кто не может пройти четвёртый уровень игры (босса с 
пистолетом) и заключается в том, что когда в Вас стрельнет "босс", сразу нажимайте кнопку 
"РАЦЗЕ" (если Вы выбирали клавиатуру, то должны были её назначить). После этого летящая 
пуля исчезает и это облегчает прохождение уровня. 


* * * 


У Алекса Кучкина из г. Петропавловска - Камчатского для наших читателей 
заготовлено несколько РОКЕЗ и есть один вопрос. 


ТОТАЕ ЕСИРЗЕ 47793, 0 - вода, 
47690, 0 - здоровье. 
ВОВОСОР 39577, 24 - энергия. 
М. О. М.А. О. 40703, 0 - бессмертие. 
ММУА СОММАМОО 51763, 0 - бессм. 
ТОАТЬЕЗ 53744, 0 - энерг. 
47503, 0 - жизни. 
МАЗТЕНВ ВГАЗТЕВ 49988, 0 - жизни. 


К сожалению, прочие РОКЕЗ мы дать не смогли по причине неразборчивости письма. 

Теперь вопрос. Алекс очень любит авиаимитаторы, особенно Е-16 фирмы Пока! 
\егсертог. К сожалению, после поражения программа высвечивает надпись РИАУ ... и чего- 
то ждёт. Есть подозрение, что в ней не все блоки. Может кто-то дать раскладку блоков этой 
программы? 


Изящный букет секретов прислал наш юный читатель из г. Находка Приморского Края 
Максим Кобяков. Сначала несколько РОКЕЗ: 


1. АРЕТЕА ВУВМЕВ - 37934, 0; 37935, 9; 37936,0 
2. ЕРОТНМАВЕ - 44051, 0; 48455,0 

3. ГАЗТ ОУЕЁ - 37605,0; 40063,0 - 1 игрок 
4. ГЕО ЗТОАМ - ЗТЗЗТ, 201 

5. МО ММАА$ - 39417, 0; 39534, 0 


6. ЭТВЕЕТ НСТНЕН - 42147, 195 


7. УВЕХ - 45277, 0; 45368, 0 
8. 017.7 5 - 51291, 0; 41815, 0 


Все РОКЕЗ лично проверены Максимом. 

Кроме того, вниманию читателей предлагаются пароли для программы МЕСАМОМА: 

26719 - 2-ая миссия; 

16640 - 3-я миссия. 

Полезный "жучок" из программы МЕМ/УОВК \М/ААВАОН$: 

Если начать игру вдвоём и в первом блоке убить первого игрока, чтобы он больше не 
появлялся, а вторым игроком пройти этот блок до конца, то во втором блоке первый игрок 
появиться снова, но уже с 15-ю жизнями. 

Этот способ применим в любом блоке. 


* * * 


Просьба о помощи. 


Наш постоянный читатель из г. Талнах Красноярского края Фёдор Юхнович 
обращается к экспертам - профессионалам. Он считает, что проработка программ - 
имитаторов им удаётся лучше всего, пример тому работы Хоминича и Жарова по программе 
АСАБЕМУ. 

ИФК: Дорогие друзья! Мы ежемесячно получаем тысячи писем, в которых нам 
выражается благодарность за то, что мы делаем. Мы ценим Ваше участие и рады этому, но 
наконец-то к нам пришло письмо с оценкой труда наших корреспондентов. Наверное, не 
очень справедливо оставлять за кадром тех, кто бескорыстно делится с Вами всем, что 
знает и умеет. 

ПРИМЕЧАНИЕ: статьи наших корреспондентов мы помечаем символом (С) 
("копирайт"), свидетельствуя тем самым своё уважение к их авторскому праву. Статьи, не 
помеченные этим символом и без указания автора, принадлежат "ИНФОРКОМУ" и 
выполнены его сотрудниками в порядке служебного задания. 

КОРР: ... Помогите разобраться с программой-имитатором космического полёта - 
программой ЕМТЕВРЕН! (аналог ЕНТЕ.). 

ИФК: Мы с этой программой не знакомы и тоже с интересом выслушали бы отзывы о 
ней. 


СОВЕТЫ ЭКСПЕРТОВ 


ТНЕ ООЧВЕЕ 


ч.5: ЕЕ. 
Эксперт Матвеев Ю.А. г. Москва. 

Вы когда-нибудь представляли себя в роли менеджера футбольного клуба? Если нет, 
то попробуйте сыграть в неплохую игру "ТНЕ РОЧВИЕ" ("ДУБЛЬ") фирмы 4.$.Ца. 

Программа “ТНЕ ПООЧВЕЕ" является достойным представителем игр жанра 
ВУУМЕ$$ /МАМАСЕМЕМТ. Любители футбольных баталий, имеющие в своем распоряжении 
"Спектрум" и эту игру, получат возможность испытать свои способности в роли 
руководителя английского футбольного клуба. 

Ваша задача - привести свой клуб к золотым медалям чемпионата и выиграть Кубок, 
то есть сделать "дубль", добившись двойного успеха. 

Поначалу Вам достается команда среднего уровня, имеющая в своем составе 
несколько неплохих игроков, на которых, собственно говоря, держится все. Но по мере того 
как Вы, используя выделенные Вам деньги, покупаете новых, более талантливых 
футболистов и проводите мудрую политику в подборе состава на очередной матч, Ваша 
команда начинает расти на глазах. В начале чемпионата Вы присматриваетесь к 
футболистам, экспериментируете с составом. В конце концов Вы приходите к выводу, что с 
некоторыми игроками Вам не по пути и с ними придется расстаться. Первые попытки 
продать слабых футболистов в другие клубы будут неудачными, и это понятно. Кому нужен 
лишний балласт? Ведь каждому игроку приходится платить немалую зарплату из бюджета 
клуба. Многие менеджеры придерживаются принципа: "Мы не настолько богаты, чтобы 
покупать дешевых игроков". Возьмите и Вы этот принцип на вооружение. Не отчаивайтесь, 
если не удается быстро продать футболиста. Вполне возможно, что его купят позже, когда 
из-за травм ведущих игроков некоторые менеджеры будут вынуждены снизить свою 
требовательность. 


После загрузки программы Вы сразу попадете в главное меню: 

МАМ МЕМУ 

СЬОВ ВЕРОНТ (отчет по клубу) ТЕАСУЕ ОЕТАШ$ (информация о ходе чемпионата) 
РА НХТУВЕ$З (матчи на Кубок) СОМТРОЕ МЕМУ (меню управления игрой) 

ОЧТ САМЕ (прекратить игру) 

СОМТМУЕ (продолжить игру) 


В начале игры установлены следующие управляющие клавиши: 

5 - влево 7 - вверх 

6 - вниз 9 - вправо 

ЕМТЕРВ - выбор 

Вы можете использовать джойстик, если в опции СОМТВОЕЁЕ главного меню, 
произведете соответствующую застройку. Там же находятся опции сохранения (ЗА\УЕ САМЕ) 
и загрузки (ГОАО САМЕ) отложенной игры. 

После выбора управления Вы переходите непосредственно к игре. 


Итак, Вам предлагается возглавить футбольный клуб ИЕСЕЗТЕНА СПУ, который 
выступает в Первом Дивизионе. Отношение к Вам со стороны дирекции клуба достаточно 
хорошее (об этом можно судить по строке МАМАСЕМЕМТ СВЕБ!ВИЛТУ <кредит доверия> над 
главным меню). Руководство клуба надеется, что Вы оправдаете высокое доверие, которое 
Вам оказано, и приведете команду к золотым медалям. 


СЕУВ ВЕРОНАТ МЕМУ 


СВ КЕРОАТ ММ 


Здесь есть следующие разделы: 

СЬОВ ЗТАТ!5ТИС$ (статистика клуба). 

СВОМ/О РВЕРАВАТ!ОМ (планирование посещаемости матчей). 
ЕМАМСЕ ВЕРОНТ (финансовый отчет). 

МУОВЕ ВЕРОНТ (отчет по травмам игроков). 

ЗСОЧТ ВЕРОНТ (отчет наблюдателя). 

ВАМК АМО ГОАМ$ (расчеты с банком). 
СВОЧМО1МРВОУЕМЕМТ (развитие стадиона). 

МАМ МЕМОИ (возврат в главное меню). 


Раздел СЕВ ЭТАТИТ!СЪ$: 
АУЕКАСЕ СкОУМ 
САТЕ ГЕТСЕЗТЕЕ С1ТУ САРАСТТУ 
14530 31,000 
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РЕТМТОЦТ МЕМИ 
Выбрав этот раздел, Вы сможете узнать о средней посещаемости Вашего стадиона 
(АУЕВАСЕ САТЕ), О количестве мест на стадионе (СВОЧМО САРАСПУ,), а также такие данные, 
как номер Дивизиона, в котором играет ваша команда (ТЕАСУЕ ПМ$УЮОМ), место, 
занимаемое командой в турнирной таблице (ЕЕАСУЕ РОЗПОМ) и количество зрителей, 
побывавших на последней домашней игре (1АЗТ НОМЕ САТЕ). Тут же Вам предлагается еще 
одно подменю: 


ЗОЧАРО ОБЕТАН$ (Информация по команде). 
ЗТАЕЕ ОЕТАН$ (Информация по персоналу). 
МЕМУИ (Возврат в предыдущее меню). 


После выбора опции ЗОЧАО ОЕТАН$, Вам представится возможность познакомиться 
с составом команды, посмотреть статистику на каждого игрока. Здесь приведены данные и 
о еженедельной зарплате игроков. В низу экрана еще одно меню: 

ЗЕН- РЕАУЕРВ (продать игрока). 

РАМТОЧТ (вывести данные на принтер). 


МЕМИ (возврат в предыдущее меню). При желании Вы можете продать любого 
футболиста. Установите курсорную строку на фамилию игрока и выберите опцию ЗЕШе 
РЕАУЕВ. 

При наличии заявок на покупку футболиста на экране появится таблица с названиями 
клубов, заинтересовавшихся Вашим предложением, и суммами, которые они предлагают за 
игрока. Чтобы отказаться от сделки надо выйти из этого подменю. Для оформления сделки, 
нужно выбрать курсорной строкой устраивающую Вас сумму и нажать НРЕ. С этого момента 
футболист уже не играет в Вашей команде, а деньги за него поступили на Ваш счет в банке. 

Вы можете оценить силу каждого игрока по зарплате (\М/АСЕ), которая ему 
выплачивается. Но будьте осторожны! Сумма еженедельных выплат не всегда отражает 
уровень игры футболиста. Это, возможно, связано с привилегированным положением 
некоторых игроков. Звездный час у них уже давно в прошлом. Однако, за свои прежние 
заслуги они еще имеют хорошую зарплату, которая может быть гораздо выше, чем у 
молодых. Впрочем, бывают и другие ситуации, молодым, подающим надежду футболистам, 
руководство клуба иногда также завышает зарплату, как бы авансируя их будущие успехи. 
Вы, кстати, не занимаетесь этими вопросами и все решения о зарплате лежат на совести 
директора клуба. 

Чтобы верно оценить уровень игры каждого отдельного игрока, Вы нанимаете 
независимый экспертов - наблюдателей (ЗСОЧТ), которые могут описать достоинства и 
отличительные характеристики любого интересующего Вас футболиста. 

Для начала войдите в подменю ЗЭТАРЕ ОЕТАШ$. У Вас имеется один эксперт, который 
трудится под вашим чутким руководством с окладом в 450 фунтов стерлингов в неделю. Вы 
можете нанять второго эксперта. Это будет стоить еще 450' в неделю. В этом подменю 
предлагается за те же деньги нанять и физиотерапевта (РНУЗОТНЕВАР!$Т), который будет 
необходим, как воздух, когда игроки начнут получать травмы в матчах. Впрочем, Вам не 
обязательно нанимать терапевта и второго эксперта. В ваших силах даже уволить и первого 
эксперта, дабы сэкономить средства и побыстрее набрать круглую сумму в банке, но делать 
этого не рекомендуется из-за проблем, которые могут впоследствии возникнуть. 


Раздел СРОМ/О РАЕРАВАТ!ОМ: 

Здесь Вам сообщают о месте проведения следующей встречи. В том случае, если 
Ваша команда играет дома, Вам предлагают ввести Ваш прогноз о количестве зрителей, 
которые придут на матч. Эти цифры будут использованы при подготовке полиции к матчу, 
которая будет обеспечивать безопасность на стадионе. Если Вы ошибетесь в своем 
прогнозе и назовете заниженные цифры, то полиция, не готовая к большому количеству 
зрителей, не сможет поддержать порядок на стадионе и болелыцики могут устроить 
беспорядки. На центральных матчах тура всегда присутствуют эксперты из Федерации 
футбола и в случае возникших беспорядков Ваш клуб может быть оштрафован на круглую 
сумму, если в Федерации решат, что это произошло по вашей вине. Крайне нежелательно 
так ошибаться несколько раз подряд, Вы можете даже потерять свое кресло, поэтому будьте 
осмотрительны и перед каждой домашней встречей уделяйте внимание безопасности 
стадиона. Завышенный прогноз хоть и не влечет за собой таких мрачных последствий, но 
все же влияет на финансовое положение клуба, а значит и на кредит доверия к Вам со 
стороны руководства. 


Раздел НМАМСЕ ВЕРОНТ: 
Здесь Вы получите полную раскладку всех доходов и расходов клуба. 
САТЕ ВЕСЕРТ$ (плата за входные билеты). 
ТААМЗРЕЕВН$ (плата за продажу/покупку игроков). 
РЕАУЕА$ М/АСЕ$ (Зарплата игроков). 
ЗТАЕЕ ММАСЕ$ (зарплата персонала). 
ТВРА\УЕЕ АМО НОТЕЕ (расходы на переезды и гостиницы). 
НАЕ$ АМО РАМАСЕ$ (штрафы и повреждения). 
РОНСЕ ЕХРЕМСЕ$ (оплата полиции). 


СВОЧМО ВЕМТ (арендная плата за землю). 
СРВОЧМО1МРНВОМЕМЕМТ (расходы на расширение стадиона). 


Раздел ИМУУВУ ВЕРОНТ: 

В этом разделе сообщается о травмах, полученных футболистами. Если в Вашей 
команде все благополучно, то выводится сообщение: МО МЛОНЕ$ (травм нет). Если есть 
травмированные, то сообщается фамилия футболиста, вид травмы и количество недель, на 
которое игрок выбывает из основного состава. 

Вам предлагается решить: освободить травмированного футболиста от тренировок 
полностью или нет. 

В разделе есть подменю, в котором определяется вид тренировки для 
травмированного футболиста: 

МО М/ОВКОЧТ (без тренировки). 

НСНТ ММОВКОЧТ (легкая нагрузка). 

МЕБШМ М/ОВКОЧТ (средняя нагрузка). 

НААО М/ОВКОЧТ (тяжелая нагрузка). 

Игроки могут получить следующие виды травм: 

ТОАМ ИСАМЕМТФ$ (порваны связки). 

ВВОКЕМ АВМ (перелом руки). 

АМСЬЕЕ 1МУУВЕ (повреждена лодыжка). 

ВВОКЕМ 1 ЕС (перелом ноги). 

НАВМЗУТНИМС - растяжение сухожилий. 

ВВОКЕМ МОЗЕ - перелом носа. 

Существуют и другие виды травм, если Вы достаточно глубоко погрузитесь в эту игру, 
то вам придется иметь с ними дело. 

При легких видах травм игроки выбывают на небольшой срок, а при тяжелых травмах 
этот срок может достигать полугода. 


Раздел ЗСОЧТ ВЕРОНТ: 

Этот раздел позволяет ознакомиться с отчетами экспертов-наблюдателей, которых 
Вы посылаете на очередные матчи с целью изучения уровня игры футболистов, 
выставленных на продажу другими клубами. Вы, конечно, можете рассчитывать только на 
свои силы и обойтись без услуг экспертов, но в этом случае высока вероятность купить "кота 
в мешке". Для того, чтобы отправить эксперта на матч, выберите с помощью курсорной 
строки опцию ЗЕМО ОМ М!$$1ОМ, затем задайте дивизион, в который направляется эксперт, 
а потом выберите команду и футболиста, которого следует посмотреть. Эксперт прощается 
с Вами и со словами: "Увидимся после матча" отправляется выполнять поручение. 

Прочитать последнее сообщение эксперта можно, если выбрать опцию НВЕАВ 1АЗТ 
ВЕРОНТ. Аналогичные действия проводятся и со вторым экспертом (если он есть). 

Рекомендуется в начале сезона, пока не начались переходы футболистов из клуба в 
клуб, оценить с помощью экспертов игроков своей команды. 

После очередного тура чемпионата эксперт возвращается с отчетом на футболиста, 
которым Вы заинтересовались. Отчет состоит из пяти характеристик плюс оценка 
приблизительной цены за игрока. Эксперт описывает футболиста, используя спортивный 
сленг. Словарь эксперта приведен в конце настоящего описания. 


Раздел ВАМК АМО 1ОАМ$: 
В этом разделе приводятся данные по Вашему счету в банке. 
\ММЕЕКЕУ 1МТЕВЕЗТ (процент по вкладу в неделю). 
\МЕЕКЕУ ВЕРАУМЕМТ$ (процент по долгам в неделю). 
СУВВЕМТ ВАЕАМСЕ (сумма на счете). 
ОЧТЗТАМОМ С ГОАМ$ (Внешний долг). 
Здесь же Вы можете провести с банком финансовые операции: 
АРРИУРОВ ТОАМ (попросить кредит) 


МАКЕ РАВТ РЕРАУМЕМТ$ (выплатить часть долга) 


Раздел СНОЧМО 1МРРОУЕМЕМТ: 

Вы можете расширить стадион своего клуба, увеличив количество зрительских мест, 
что в принципе может повысить доход от проданных билетов, если команда будет играть 
успешно и посещаемость матчей будет расти. Таблица данных: 

РАЕЗЕМТ ЗРЕСТАТОВ САРАСПТ - (вмещаемость стадиона). 

МАХМИУМ ЗРЕСТАТОВН САРАСПТ - (максимально возможное количество мест). 

СО$Т/1000 ЕХТВА ЗРЕСТАТОВН$ - (плата за каждую тысячу дополнительных мест) и 
подменю: 

1МСВЕАЗЕ ЗРЕСТАТОН САРАСПТУ -(увеличить число зрительских мест). 

СЬОВ ВЕРОНТ МЕМО (выход). 


Расширять стадион Вам придется не скоро, ибо это влечет за собой слишком больше 
расходы. Да и посещаемость матчей с участием Вашей команды в первое время невелика. 

ГЕАСОЕ ОЕТАШ $ 

Здесь Вам предлагается вся справочная информация по чемпионату. При выборе 
этой опции Вы оказываетесь в подменю: ГЕАСУЕ ЕХТУВЕ$ (предстоящие матчи). 

ЕЕАСОЕ ВЕЗАЕТФ (результата матчей). 

ГЕАСОЕ ТАВЕЕ$ (турнирные таблицы) 

СЬУВ ЗТАТ!Т!С$ (статистика по клубам). 

МАМ МЕМЧИ (возврат в вышестоящее меню). 


Раздел РА ЕХТОВЕЗ: 
Здесь указывается пары команд, которые встречаются в играх на Кубок. Первые 
встречи начинаются на двадцать второй неделе чемпионата. Жеребьевка клубов проводится 
за несколько недель до старта игр на Кубок. 


СОМТМУЧЕ. 

Эта опция включается, когда все необходимые приготовления закончены и Вы 
переходите к расстановке игроков из поле на предстоящий матч. После того, как Вы 
расставите игроков и нажмете НРВЕ, Вас спросят нужно ли выводить результаты матчей на 
принтер. После Вашего ответа на экране появится таблица с результатами всех матчей тура. 
Помимо счета в таблице указываются составы команд, а напротив фамилий игроков, 
забивавших в этой игре, пишется число забитых мячей. 

Если Вы неправильно спрогнозировали число зрителей, и силы полиции не смогли 
обеспечить порядок на стадионе, то в этом случае после статистики игры с участием Вашей 
команды сообщается о имевших место беспорядках. Здесь же приводится заявление 
полиции о том, что они были неверно информированы о количестве зрителей. Далее 
следует сообщение, что на матче присутствовал инспектор от Федерации футбола. 

По окончанию тура вопрос о беспорядках на стадионе будет рассмотрен в Федерации 
футбола и Вал клуб могут оштрафовать. Иногда, правда, Федерация приходит к выводу, что 
в этом нет Вашей вины и оставляет клуб в покое. 

К десятой неделе чемпионата начинаются торги на бирже игроков. До этого приходят 
заявки на продажу того или иного игрока. Вот здесь Вам и потребуется помощь Ваших 
экспертов. Просмотрев такую заявку и выбрав подходящего игрока, Вы передаете все 
данные о нем своему эксперту. Эксперт, посмотрев этого футболиста, сообщает Вам его 
отличительные особенности и цену, за которую его можно будет приобрести. Помните, 
однако, что эксперт тоже не Бог и он никогда не сможет назвать Вам точные цифры. Цена 
игрока определяется на аукционе. Футболист переходит в тот клуб, который объявит за него 
максимально цену. Иногда бывает и так, что игрок остается в своей команде под давлением 
клуба или из-за травмы. Вы, кстати, тоже не можете продать травмированного игрока. 

Не хотелось бы раскрывать всех секретов этой замечательной игры, но об одном 
сказать можно. В Вашей карьере менеджера будут взлеты и падения. Пока Вы не наберете 


необходимый опыт Вас ждут неприятные разборки в кабинете директора клуба, проклятия 
болельщиков и недовольство команды. Возможно, Вы будете с позором уволены с работы и 
Вас приютит какая-нибудь другая, более бедная и слабая команда. Зато потом, когда 
раскроется во всей красе Ваш талант, ждите приглашений от прославленных богатых 
клубов, известных всему миру. Тогда Вы, попивая кофе и раскуривая толстую сигару, будете 
сами выбирать клуб, который достоин того, чтобы в него пришел работать такой известный и 
талантливый менеджер, как Вы. 


Приложение. СЛОВАРЬ ЭКСПЕРТОВ 

Характеристика каждого игрока складывается из пяти отдельных, независимых друг 
от друга высказываний. Для удобства пользования словарей, фразы разбита на пять групп. 
Первую фразу эксперта надо искать в первой группе, вторую во второй и т.д. Для 
характеристики вратарей все фразы, относящиеся к ним, выделены в отдельный раздел, 
состоящий из пяти групп. 

Внимательный читатель обратит внимание на то, что абсолютное большинство 
заявлений экспертов об игроках имеют положительную тональность. Никто никого не ругает 
и не порочит. В этом, наверное что-то есть, но все же Вам надо как-то суметь выделить 
отдельные нюансы этих высказываний. Дерзайте сами, для этого нужен только опыт. 


1. ВРАТАРИ 
А 
СООО НАМОИМС (хорошо обращается с мячом). 
МОТ МАСН СЕТЗ АМ/АУЕВОМ НМ (мимо него и муха не пролетит). 
СОМРОВТАВЕЕ ОМ ТНЕ ВАЦ. (спокойно действует с мячом). 
ТНЕ ЗАРЕЗТ РАВ ОЕ НАМОЗ |М ТНЕ САМЕ (это надежная пара рук). 
В 
СЕТЗ НО ОЕТНЕ ВАН: \МЕНЕ (хорошо выбивает мяч в поле). 
СООО АТ СЕАНМС Н!$ ЫМЕ$ (хорошо действует на выходах). 
ОК ОМ СЕЕАВАМСЕ$З (неплохо забирает мяч). 
АССУВАТЕ\МТН Н!$ КСКМОС (точно выбивает мяч). 
С 
ОЧСК ТО ВЕАСТ (быстро реагирует) 
ЗУРЕАВ ВЕРЕЕХЕ$ (превосходная реакция). 
\УЕВУ АЕЕВТ (всегда начеку). 
МО\МЕЗ \МЕТЕ (хорошо перемещается). 
О 
А\М/АКЕ ОЕ ЗТЧАТ!ОМ$ (хорошо чувствует ситуацию). 
ОМСАММУ РОЗПЮОМ ЗЕМЗФЕ (невероятное чувство позиции). 
ОССАЗЮМАЕУ СЕТЗ САЧСНТ 1М ТММО МИМО$ (иногда берет мяч интуитивно). 
ВЕАОЗ ТНЕ САМЕ ЗУРЕВВИУ (превосходно чувствует игру). 
Е 
НЕ СОЧЕО ВЕ АЗН!Р (возможно, это "верняк"). 
НЕМ/ОМ"Т СОМЕ СНЕАР - НЕ'$ СООР (этого парня дешево не возьмешь). 
МОВТН 1ООКМС АТ ВОЗ$ (босс, к нему стоит присмотреться). 


2. ПОЛЕВЫЕ ИГРОКИ 
А 

ООЕЗМ'Т ОМЕН: ОМ ТНЕ ВА (не мешкает с мячом). 

ГООК$ СОМЕОАТАВЕЕ ОМ ТНЕ ВАЦ( (на первый взгляд, спокойно действует с мячом). 

МСЕ СОМТВРОЕ (хороший контроль мяча). 

УЕВУ СООО СОМТВОЕ АВОЧМО ТНЕ ВОХ (отлично контролирует мяч на любом участке 
ПОЛЯ). 

ООЕЗМ'Т ЕЕАР УМОЕН РВЕЗЗОВЕ (отлично действует в сложной ситуации). 

|МРНВЕЗЗМЕЁЕУ СООГ ОМ ТНЕ ВАЦ( (хладнокровен в обработке мяча). 

ЗУРЕАВ ВАГАМСЕ АМО СОМТРОЕ (превосходно удерживает и контролирует мяч). 

МОТ АРВАШО ТО ТАКЕ ОМ ОРРОМЕМТ$ (смело идет на плотную игру). 


МОТ ЕАПМТ НЕАВТЕР (смелый игрок). 
СОМРЕТГЕМЕ (упорный). 
НУЗТЕА$ ОЕРЕМОЕВ$ \МЕЦ (хорошо обводит защитников). 
НЕ'$ ОЕТЕАМИМЕО 1М ТНЕ ТАСКЕЕ (решителен в схватках). 
О1ЗНЕ$ ОЧТ АЕОТ ОЕ ЗТСК (Пресекает проходы соперников). 
ОРРОМЕМТ$ НА\Е А ВАТТЕЕ ММТН ТН!$ ГАО (этот парень доставляет соперникам много 
хлопот). 
СЕТЗ МЕТ АМО ТАУУ ЗТУСКМ (удачно и быстро подключается к атаке). 
СНАНЕМСЕ$ Е\ЕВУТНИМС |М ТНЕ ВОХ (умеет все на поде). 
С 
ОМЗЕЕЕЗН (не передерживает мяч). 
ОЗТЕВИУТЕ$ ТНЕ ВАЦ_М/ЕЦЕ (хорошо распределяет мячи). 
ЗРКАУЗ Н!$ РАЗЗЕ$З \МЕТ | (делает неплохие передачи). 
ЧУ$ЗЕ$З ТНЕ ВАШ \М/ЕНЕ (ХОРОШО владеет мячом). 
СВЕАТ МОМ - Н!$ РАЗЗЕ$ АВЕ СЬА$$ (отлично видит поле - его пасы великолепны). 
Н$ РАЗЗИМС 1$ РУВЕ МАСС (его передача - просто волшебство). 
Н$ РАЗЗИМС 1$ ВЕАЕ ОЧАНТУ (надежно играет в пас). 
ЗЕТЗ УР Н!$ РЕЕЕОМ/ РОР\М/ААО$ \М/ЕТ (хорошо питает мячами линию атаки). 
О 
ТН$ 1АО'$ НУМСАВУ ГОР СОАЁ$ (остро нацелен на ворота). 
ТН!$ ГАО ММЕ ЗСОВЕ А ЕЕМ/ (этот парень еще себя покажет). 
ГО\МЕЗ ТО ЗНООТ СОМЕМ НАЕЕ А СНАМСЕ (бьет при любой возможности). 
Н$ АМУНИМО 15 ЕЕТНАЁ (его удар смертелен). 
НАЗ ТНЕ ОССАЗЮОМАЕ РОТ АТ СОАЕ (забивает время от времени). 
МСНТ ЗСОВЕ А РЕМ (из него может быть толк). 
АЕМ/АУЗ ГООКМС ТО СЕТ ОМ ЗСОВЕ $ЗНЕЕТ (он рвется забивать). 
МОТ АРВАШО ТО ЗНООТ АТ СОАЁ (бьет из любых положений). 
Е 
МСЕ ТЕМРЕРАМЕМТ М/ОВТН М/АТСН!МС (прекрасный темперамент, за ним стоит 
понаблюдать). 
КЕЕР АМ ЕУЕ ОМ ТН!$ ГАО ВО$$ (босс, присмотритесь к этому парню). 
СОЧЕО ВЕТНЕ ВАВСАМ УОЧВ ГООКМС РОВ (возможно, это то, что Вы ищете). 
Н!$ СОАЕ$ МЛЕЕ ВЕРАУ Н!$ ЕЕЕ "М ЗОВЕ (я уверен, он стоит своих денег). 
А ВЕАЁ АЗЗЕТ - МО РОЧВТ АВОЧТ П (отличное приобретение, можно не сомневаться). 
А МАТОВАЕ, ОЧСК, ЗНАНР. - (одаренный, быстрый, точный игрок). 


ОВВАМ УРЗТААТ 


Эксперт Дурченков Алексей г. Челябинск 


Программа "УВВАМ ЧУРЗТАНТ" не является такой же логический головоломкой, как, 
скажем, "ЗНЕАЕОСК“", однако если Вы решите заняться ее прохождением, она доставит Вам 
немало приятных часов. 

Если у Вас нет пока опыта в общении с адвентюрными программами, но Вы ищете, с 
чего бы начать - начните с программы "УВВАМ УРЗТАВТ" - и Вы не пожалеете о своем 
выборе. Течение игры очень спокойное. Ваш герой погибнуть не может, самое страшное, 
что может Вас ожидать - временный арест в КПЗ или же принудительное лечение в 
муниципальном госпитале. Итак, если Вы решились - начнем. 

Городок Скартхопрс - забытое Богом местечко, где даже дети держат за пазухой 
кнопочные ножи. Здесь все изменения сводятся к тому, что с годами на домах появляется 
новый слой краски. Люди годами ждут свободного рабочего места и зачастую умирают, так 
и не дождавшись его. Немногие люди приезжают сюда. Сможете ли Вы спастись из этой 
глуши, сбежать к цивилизации? 

Церковные колокола пробили 3 раза. Попробуйте спастись и, может, Вам повезет. 


Внимание! 
ИНФОРКОМ ПРЕДУПРЕЖДАЕТ: 


Чтение этой статьи может быть опасным для тех, кто предпочитает проходить игры 
без подсказок. 

Приведенные сведения в значительной степени раскрывают технику прохождения 
игры. 

Для тех, кто захочет использовать подсказки только при острой необходимости, мы 
разбили текст статьи на разделы, привязанное к конкретным эпизодам. Надеемся, что автор 
простит нам такое вмешательство, это сделано в интересах читателей. 

Вот эти разделы (ознакомьтесь с ними до чтения статьи и пользуйтесь именно тем, 
который Вам нужен в данный момент): 

1. Дебют. 

2. Книжный магазин. 

3. Автобусная остановка. 

4. Телефонная будка. 

5. Банк. 

6. Городской парк. 

7. Заброшенный дом. 

8. Городская ратуша. 

9. Дорога в аэропорт. 

10. В аэропорту. 

* 11. Полезные советы. 

* 12 Нерешенные проблемы. 

* / - чтение раздела безопасно. 


1. 

Игру Вы начинаете в маленькой уютной комнате с цветком на окне. Рядом с Вами 
лежит пара брюк (РУМСАВРЕЕ$), которые не мешало бы взять (ТАКЕ), а потом и одеть 
(М/ЕАВ), учитывая в особенности то, что если Вы будете ходить раздетый по улицам городка, 
то это вряд ли понравится местной полиции. 


а Разг ог зипдагеез 


Спустившись на первый этаж, Вы окажетесь перед огромной дверью. Можете 
попытаться открыть ее и выйти наружу, но из этого вряд ли что получится. Выход один - 
искать ключ. Найдя ключ (А ТАВСЕ КЕУ), не поленитесь осмотреть и остальные комнаты дома 
- в них Вы можете обнаружить еще пару полезных предметов - ножницы (А РАВ ОР 
$С1$5$$ОР5) и банку пива (А САМ ОЕ ТАСЕН), стоящую в холодильнике (ЕРИОСЕ). Прихватите 
все с собой - и в путь. Откройте дверь (УМЕОСК ОБООВ, ОРЕМ БООВ) и смело выходите на 
улицу (ОЧТ). 

2. 

Вы окажетесь на мрачной улице перед уныло стоящим здесь книжным магазином. 
Зайдя в него (М), Вы не встретите там покупателей, да и ассортимент имеющейся 
литературы не балует - на полках стоит всего одна книга (ВООК). Взяв ее и обследовав 
(ЕХАМИМЕ), Вы узнаете, что это книга по искусству пилотирования. Решив, что все-таки это 
лучше, чем ничего, двигайтесь дальше. 
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К автобусной остановке, находящейся на мрачной улице, вряд ли когда-либо 
подходит автобус. Зато там лежит забытый одним из потенциальных пассажиров зонтик (АМ 


ОМВВЕГЛТА). Надпись на стенке гласит - "Желаете приятно провести время - звоните 54321" 
Прихватите Ш. и идите дальше. 
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На углу Вашего дома стоят два мусорных бачка, покопавшись в которых Вы можете 
найти интересное письмо (А ТЕТТЕН), изучив которое, Вы узнаете, что это уведомление из 
банка, присланное вместе с кредитной карточкой (А СНЕСУЕ СААО)) и напоминанием, что 
для того, чтобы узнать Ваш личный номер банковского счета, Вам необходимо позвонить по 
номеру 77722. Возьмите с собой карточку и хорошо запомните номер телефона банка. 
Ненужные более предметы - письмо и большой ключ от входной двери можно бросить здесь 
(ОВОР) не опасаясь полиции - в конце концов на то она и свалка, чтоб на ней мусорить. 


4. 

Дойдя до телефонной будки (РНОМЕ ВОХ), смело заходите внутрь и звоните в банк 
(ПАГ). Приятный голос поблагодарит Вас за звонок и вам сообщат номер банковского 
счета. Позвоните 54321, если желаете развлечься (хотя напомню - Ваша цель сбежать из 
города, тратить время на развлечения просто неразумно). Вам тут же сообщат, что время 3 
часа 45 минут и 30 секунд. Удивлены? А каких еще развлечений Вы ждали в этом Богом 
забытом местечке? 


5. 

Ну, а теперь в банк. На вид банк кажется закрытым, но не пугайтесь - смело заходите в 
него (\М/ЕЗТ). Вставьте кредитную карточку в машину (М$ЪЕАТ СААО). На дисплее 
высветилась надпись: "Пожалуйста, наберите номер Вашего банковского счета". После 
набора номера машина выплюнет Вам назад кредитную карточку и Ваши деньги, хотя их 
всего лишь - пятерка. Карточку можете оставить здесь - она Вам больше не понадобится и, 
прихватив пятерку (ТАКЕ Е\ЕРВ), двигайтесь дальше. 


6. 

Пройдя по проселочной дороге мимо мертвых деревьев, Вы окажетесь около 
Скартхопрского парка. Обойдя окрестности парка, Вы можете полюбоваться на его 
достопримечательности - могильный камень на могиле Джона Смита, разрушенную 
церквушку. 

Мрачновато... Но, еще раз укрепившись в своем решении бежать из этого города, 
прихватите с собой еду (ЗОМЕ РОО) и кусочек сыра (ЗОМЕ СНЕЕЗЕ) - и прочь из парка 
выполнять свой план побега. Пройдя по аллее Крикунов (названной так, вероятно потому, 
что ее облюбовали для своих сборищ фанаты местного футбольного клуба) до стадиона, Вы 
встретите там фаната местных футболистов. Успехами игроки Скартхопрской команды 
своих болельщиков не балуют и из-за вчерашнего разгромного поражения от "Ливерпуля" и 
теперь уже твердого последнего места в турнирной таблице настроение у встретившегося 
Вам фаната преотвратное. Желая на ком-нибудь сорвать зло, он готов убить Вас и вместо 
побега из города Вам придется валяться в муниципальном госпитале. Поэтому, не теряя 
времени, отдайте ему прихваченное из дома пиво (СМЕ РАМ ТАСЕЛА), прихватите 
валяющуюся у его ног мышеловку (А ВАТ ТВАР) и уходите прочь из этого квартала, дав себе 
слово никогда больше здесь не появляться. 

Отойдя немного подальше, остановитесь и осмотрите все, что есть у Вас с собой 
((ММЕМТОРУ). В результате Ваших похождений у Вас есть книга по искусству пилотирования 
самолетов, мышеловка, пятерка денег, ножницы, одетые на Вас брюки, зонтик, кусочек сыра 
и немного еды. Не густо... Особенно удручает безденежье. Начинать новую жизнь с пятеркой 
в кармане не очень-то веселая перспектива. Волей-неволей вспоминаются рассказы 
старожилов о несметных сокровищах, спрятанных в подвале заброшенного дома, которые 
охраняются полчищами голодных крыс. 


7. 

Немногие смельчаки пробовали пробраться туда, но никому это пока не удалось. 
Оценив свою мышеловку и отметив, заодно, что у Вас есть отличная приманка - сыр, Вы 
решаете рискнуть. Зайдя по дороге в магазин, реклама которого призывно обещает рыбу и 
чипсы. Вы ничего из обещанного там не увидите, разве что красную селедку (А НЕО 


НЕАРИМС), стоит которую только взять, как на Вас набросятся полчища голодных котов. 
Кстати, второй перевод слова ВЕШО НЕВЕМС с английского языка - "ложная наводка". Так что 
решайте сами - брать или же нет. Да к тому же хозяин магазина - скучающий меломан - 
выпустит Вас из магазина не раньше, чем Вы послушаете по радио старый номер Френка 
Синатры (ЫЗТЕМ). 

Идя по улице Дождя без зонтика можно простудиться и попасть в больницу, поэтому 
как только выйдете на эту улицу, поторопитесь открыть зонтик (ОРЕМ УМВАЕНЛА). 

Пробежав по мостику через канал (СВО$$ ВНЮШОСОЕ), Вы окажетесь у цели. 
Заржавевшая дверь преграждает Вам дорогу. Открыть ее удастся только после того, как Вы 
подкрепите свои силы едой (ЕАТ РООБ). Спустившись внутрь по шаткой приставной 
лестнице, Вы моментально попадаете под атаку дюжины облезлых голодных крыс. Не 
раздумывая снаряжайте мышеловку! (РУТ СНЕЕЗЕ 1М ТВАР, ОРОР ТВАР). Крысы, завидя, как 
мышеловка сломала хребет самой здоровой из них, решают убраться в свою нору. 

В подвале им сможете найти картонный ящик (А САРОВОАНАО ВОХ). Вот оно 
сокровище! Такой, наверное, будет и Ваша мысль. Что же, берите его и откройте ножницами 
(ОРЕМ ВОХ \ММТН $С15$5О08В$). Внутри Вы увидите только пару ботинок, которые, несмотря на 
прошедшие века, отлично сохранились и выглядят как новые. Что ж, возьмите их и 
выбирайтесь из дома. 

Остановившись подышать свежим воздухом у канала, Вы найдете маленький ключ (А 
ЗМАЦЕ КЕУ). Точно такой же Вы видели у своего однокурсника - летчика. Ну конечно же! Из 
Скартхопрса надо не убегать, отсюда надо улетать! Но вот проблема - на аэродром пустят 
только при наличии официального пропуска, а он хранится в ратуше, находящейся на 
Гражданской улице. 


8. 

Чиновник, служащий в ратуше, не захочет Вас пустить внутрь. Придется отправиться 
на поиски дальше. Дойдя до западного конца Больничной улицы, Вы обнаружите там 
Красную папку (ЗОМЕ ВЕО ТАРЕ). Взяв ее, Вы сможете беспрепятственно проникнуть в 
ратушу - видимо, Красная капка не только у нас в стране является атрибутом власти. Зайдя в 
ратушу, возьмите там пропуск на аэродром (ЗОМЕ ОРЕСЛАЕ РАРЕВ$). 


9. 

Теперь Ваш путь лежит в аэропорт. Свернув с Навозной аллеи на улицу Дождя и попав 
оттуда на стройку, оденьте ботинки, иначе Ваши ноги увязнут в грязи и санитары тут же 
уложат Вас в больницу. 

Внимательно осмотрите пустые трубы, валяющиеся на стройке - в них Вы найдете 
летный костюм 

(ЕХАМИМЕ Р!РЕЗ, ЕЕММС $УП). 

Пройдя по аварийному переулку до входа в аэропорт, смело входите внутрь. 


10. 

Отдайте дежурному офицеру пропуск (СМЕ ОРЕСЕВ РАРЕВ5). Он потребует с Вас 
пятерку за вход. Ничего не поделаешь, придется отдать ему последние деньги, только тогда 
он пропустит Вас к самолету (СОМЕ ОРЕ:АСЕА ЕМУЕДВ) и вот наконец Вы у самолета. Смело 
забирайтесь внутрь (СО 1М РЕАМЕ), вставляйте ключ в замок зажигания (1МЗЕВТ ЗМАЦ- КЕУ 
15 РАМЕГ). Моторы самолета ожили, можно было бы и лететь, но не спешите - управлять 
самолетом Вы не умеете и Ваш полет закончится весьма плачевно, если Вы не прочитаете 
книгу по искусству пилотирования (РЕАО ВООК). Прочитали? Ну а теперь в путь. Взлетайте - 
и Вы победили (ТАКЕ ОЕР). 


11. 
И в заключение несколько советов: 
Не ходите по улицам раздетым, иначе полиция арестует Вас за оскорбление 
общественной нравственности. 


Не изучайте брошенные на улицах машины - Вас арестует за бесцельное 
времяпрепровождение. 

Не бросайте ненужные предметы на улице, иначе будете арестованы за загрязнение 
окружающей среды. 

Не берите красный шарф - футбольные фанаты сильно изобьют Вас за это и санитары 
отправят в больницу (по-видимому, это атрибут болельщиков команды соперников). 

Для того, чтобы выбраться из больницы, найдите белый халат и оденьте его, иначе 
лечащий врач задержит Вас прямо у входа и вернет на больничную койку. 

Для того, чтобы выбраться из полицейского участка, подойдите к сержанту и 
подавайте команду М/А!Т до тех пор, пока не зазвонит телефон и Вы не будете автоматически 
выброшены из участка. 


12. 

Теперь о проблемах. 

В программе имеются предметы, которые не удалось нигде использовать: 

Около полицейского участка лежит старая шляпа (АМ ОГО НАТ). 

Западнее улицы Дождя, на стоянке грузовиков можно взять молоко (ЗОМЕ МШК). Его 
можно выпить (ОЕМК МК), но что это дает, установить не удалось. 

Севернее выхода из госпиталя находится здание, называемое “большой оффис" (А 
ГААСЕ ОРЕСЕ ВЕОСК). Попасть в него так и не удалось. 

Программа реагирует на команду ЗСОВЕ. Наивысший результат, которого удавалось 
достичь - 18 из 22 возможных. Где взять еще 4 недостающих до полной победы балла - не 
ясно. 

Ну вот, наверное, и все. 


Компьютерная новелла 


(С) ТНЕ САТ, 1993 г., Харьков. 


Битва Усаги. 
(По игре "ЗАМУВА! ММААВВОВ") 


Усаги было всего 15, когда его отец Акира Тойимбо покончил с собой, сделав 
"сэппуку"”. День назад, когда ничто не предвещало печального конца, молодой Усаги стоял 
вместе с ним во внутреннем дворике отцовского дома, почтительно склонившись перед 
гостем, только что приехавшим из Киото ®. На куртке гостя была эмблема дома Минамото ®, 
сам же Усаги имел честь носить герб дома Ходзе. Гость низко поклонился отцу, Усаги же 
удостоился легкого кивка головой. В один голос с отцом он произнес: "Добро пожаловать!", 
- и отец жестом пригласил гостя во внутренние покои. 

Говорили они недолго и через час только пыль на Западной дороге запоминала о том, 
что сегодня у них кто-нибудь был. С востока надвигалась черная туча... 

Была уже почти ночь, когда старый Акира Тойимбо позвал сына к себе. Когда Усаги 
вошел, отец сидел на циновке в белом кимоно. Его седая голова была низко опущена. 
Первые слова, которые он произнес, были: "На все воля неба, сын мой... "Выдержав паузу, 
он сказал: "Вчера самураи Тайра напали на храм, где твоя мать укрылась от бренности этого 
мира. Она умерла вместе с другими монахинями с улыбкой под мечом этих собак...". Усаги 
вскочил. Но Акира повелительно вскинул руку, приказывая ему сесть. Его глаза на миг 
блеснули. Усаги медленно опустился на циновки. Отец тихим голосом продолжал: "Я стар, 
сын мой... - К тому же я не могу нарушить клятву, данную мною Будде, больше не убивать ни 
одного человека. Но я был и остаюсь самураем и поэтому сегодня покину этот мир. Ты - мой 
единственный сын, единственная надежда сохранить честь семьи. Отомсти за свою мать. 
Мое завещание ты найдешь в этой шкатулке", - отец указал в левые угол комнаты. "Мужайся, 
сын мой, и пусть не дрогнет твоя рука ни сейчас, ни после", - и Акира обнажил свой короткий 
меч для сэппуку. Усаги, встав по левую сторону от отца, медленно вынул из ножен и занес 
свою катану“”, готовясь облегчить страдания отца. Перед тем, как вонзить короткий меч 
себе в живот, акира в последний раз взглянул на сына. Глаза Усаги затуманились, его 
собственный меч сверкнул в этом тумане, как молния, обрывая жизнь самого дорогого для 
него человека... 

Всю ночь Усаги не сомкнул глаз, обливаясь слезами. "Прощальная песня 
гласила: 


" его отца 


В ясном небе 
Растворяется 
Ясной молнии блеск... 


Ниже Рукой Акиры было написано: 

"Сын мой! 

Сейчас, когда мы с твоей матерью снова вместе, мое сердце печется лишь о тебе. 
Выполни свой долг. Свято чти кодекс чести "Бусидо". Не обижай и защищай слабых. Придет 
время и тирания Тайра падет. Наш гость сообщил мне, что светлейший князь Еритомо 
Минамото вскоре выступит против Тайра. Я хочу, чтобы ты, после того, как отомстишь за 
мать, встал под его знамена. И последнее: убийцу твоей матери зовут Кавасаки Тайра. 

Да пребудет Будда с тобой!" 

Усаги вышел из дома рано утром. В его кошельке было всего три ре®. Первым, кого он 
встретил, был седой крестьянин, идущий с поля. Усаги был далек от тех столичных щеголей, 
которые при виде крестьян в лучшем случае брезгливо морщились, а в худшем проверяли на 


них остроту фамильного меча. Отец учил Усаги уважать труд. "У каждого своя карма"", - 


говорил он. Усаги слегка склонил голову. Крестьянин низко поклонился. Усаги протянул ему 
один ре. "Спасибо, добрый самурай", - сказал крестьянин и снова низко поклонился. Усаги 
пошел дальше по пыльной дороге. Где-то там, за лесом, за двумя городами, в горах была 
усадьба Кавасаки Тайра... 

Вдруг что-то заставило Усаги напрячься. Его руки мгновенно извлекли из ножен 
катану. Меч и человек слились в одно целое. В следущую секунду с дерева с протяжным 
криком, взмахнув мечом, спрыгнул человек в черной маске. Но у самой земли его встретил 
молниеносный росчерк меча Усаги. 

Усаги медленно стер с меча кровь и осторожно вложил его в ножны. Он и раньше кое- 
что слышал о людях, закрывающих свои лица. Их звали "ниндзя". Суеверные крестьяне 
верили, что они знаются с нечистой силой, могут внезапно появиться, исчезать и сражаться 
как звери, неистово махая мечом и метая звездочки - "сюрикены". Крестьянин, которого 
Усаги вскоре встретил, в ответ на вопрос о ниндзя посмотрел на него с ужасом: "...Да, да, 
господин, мы слышали с них и раньше. Люди поговаривают, что если свернуть с дороги 
налево по тропинке перед ручьем, то можно забрести в пещеру, где у них логово... люди 
отгуда не возвращаются. Не ходите туда, благородный господин. Если уж вам нужно попасть 
в город, идите прямо, через лес..." 

Встреченный Усаги самурай в шлеме, похожем на волчью голову, после того, как 
Усаги приветствовал его поклоном, сообщил: "Ах, ниндзя? Вон там в кустах лежат трупы 
двоих. Эти бестии прикинулись крестьянами и напали на меня сзади..." 

В городе Усаги решил пополнить свои силы и свернул на постоялый двор. У входа его 
встретил плутоватый крестьянин и предложил азартную игру. Усаги из любопытства 
протянул ему монету. Сначала он выиграл, а потом проиграл. Молодой самурай решил не 
искушать судьбу, так как нужно было еще заплатить хозяйке заеду. 

У выхода его поджидал какой-то самурай, который явно хватил лишнего: "Поединок до 
первой крови, самурай!" - заявил он. Усаги пытался отстранить незнакомца, но тот назвал 
его трусом и Усаги пришлось все-таки извлечь меч из ножен. Но он не хотел убивать 
соперника и лишь слегка ранил его. Чужой самурай сразу же протрезвел, и, пробормотав 
извинения, спешно удалился... 

Наконец, после долгого пути, он был у ворот усадьбы Кавасаки Тайра. Стражники 
узнали герб на куртке Усаги и кинулись на него. Усаги вспомнил об отце и матери и это 
удесятерило его ярость... 

Что было дальше, он помнит плохо... кажется, сражаясь против самого Кавасаки 
Тайра, он видел призрак своего отца из-за спин нападающих... 


Примечание автора: 

(1) - Сэппуку (в народе называемое харакири) - обряд ритуального самоубийства 
самураев. 

(2) Тайра, Минамото, Ходзе - самурайские дома в феодальной Японии. В ХИ веке 
вспыхнула затяжная кровопролитная война за власть между домами Тайра и Минамото. Дом 
Ходзе выступил на стороне Минаното. 

(3) Киото - резиденция японских императоров. 

(4) Катана - длинный меч, используемый самураями в бою, в отличие от короткого, 
используемого, в основном, для сэппуку. 

(5) Прощальная песня - стихотворение (хокку) на тему природы, слагаемое самураями 
перед смертью. В прощальной песне отца Усаги обыгрывается его имя - Акира ("ясный"). 

(6) Еримото Минамото - глава дома Минамото, ставший впоследствии сегуном - 
военным правителем Японии. 

(7) Ре - золотая монета. 

(8) Карма - закон причинно-следственных связей, по которому человек обязательно 
получает воздаяние за добрые или злые дела. Ключевое понятие в буддийской философии. 


Примечание "ИНФОРКОМа": 

Так получилось, что эта новелла пришла от уважаемого автора в то время, когда мы 
готовили первый выпуск нового электронного журнала "РС-РЕВЮ" и работали над статьей 
"Средневековое оружие в программе МЮОНТ & МАСС Ш", исследуя сопутствующую 
литературу. Обзор этой литературы позволяет сделать пару небольших добавлений. 


1. Автор не вполне справедливо называет катану длинным мечом. Конечно же он 
длиннее, чем упомянутый ритуальный меч для сэппуку, который немного больше кинжала, 
но все же это не длинный меч, его принято считать коротким. 

Дело в том, что в стандартный боевой комплект богатого самурая входило два меча - 
вакидзаши и катана. Вакидзаши - длинный меч, которым можно действовать как одной, так и 
двумя руками, а катана - более короткий, вспомогательный меч для левой руки. Конечно, 
при отсутствии вакидзаши катана становится основным мечом и может считаться 
относительно длинным. Кстати, именно не очень большие размеры катаны способствовали 
тому, что это оружие позаимствовали у самураев бойцы ниндзя, т.к. его можно было 
переносить тайно, укрывая в складках одежрлы, а при ношении за спиной оно не стесняло 
быстрых и ловких движений ночных диверсантов. 


2. События, описанные в новелле, имеют реальные исторические корни. Они 
относятся к периоду феодальных войн 12 века, когда власть императоров была заменена 
военным сегунатом. К сожалению, князя Еритомо Минамото (1147 -1199) не принято считать 
светлой личностью. Дело в том, что власть дома Тайра сверг Есицунэ Минамото (1159 - 
1189), а Еритомо пришел к власти, коварно загубив своего младшего брата. 

Впрочем, согласно легенде, он получил по заслугам. Еритомо погиб, упав с лошади, 
когда ему привиделся призрак его убитого брата. Предполагают, что роль "призрака" 
сыграл один из хорошо подготовленных ниндзя, отомстивший правителю за подлость. 


* * * 


Для справки: программа М!СНТ & МАСС 1, известная также под названием 15ЕЕ$ ОР 
ТЕВАА выпущена компанией Мем/ ММойа Сотрштоа и относится к жанру ВР@ - Вое Р!аутоа 
Сатез - ролевые игры. К сожалению, для "Спектрума" этот жанр малодоступен. Пожалуй, 
именно в этом жанре, а также в имитаторах |1ВМ имеет преимущество над "Спектрумом". Во 
всех прочих играх наши читатели могут чувствовать себя на равных с владельцами 1ВМ- 
совместимых машин, а во многих случаях даже имеют ощутимое преимущество за счет 
большей интеллектуальности "синклеровских" игр. Впрочем, те, кто заинтересуются этим 
вопросом подробнее, смогут в ближайшее время стать читателями "РС-РЕВЮ", если хотя бы 
на время найдут подход к 1ВМ-совместимой машине, а сейчас такая возможность есть уже и 
в самых отдаленных пунктах. 

Мы рассчитываем, что наша стратегия распространения "РС-РЕВЮ" сможет доводить 
выпуски этого журнала до каждой 1ВМ-совместимой машины в СНГ в течение 5-6 месяцев 
после выхода очередного номера. 


ИНФОРКОМ-ПРЕСС ПРЕДСТАВЛЯЕТ 


Дорогие друзья! 


Мы продолжаем рекламную компанию по продвижению нового электронного журнала 
"РС-РЕВЮ". К сожалению, у нас не получается, как было объявлено, осветить в этой выпуске 
итоги ТЕНДЕРА, объявленного в ММ 7-8. Дело в том, что этот выпуск 7Х-РЕВЮ передается в 
типографию 10 ноября 1993 Г., а итоги ТЕНДЕРа будут подводиться только 15 декабря. 
Такая необычная для нас поспешность с выпуском данного номера связана с тем, что мы 
кардинально улучшаем качество и формат издания 7Х-РЕВЮ-94 (каждый номер - 96 страниц 
формата А5, цветная обложка, выполненная одним из известнейших российских художников 
и пр.) и потому должны иметь солидный резерв времени на подготовку и печать первого 
номера будущего года. Кстати, многие наши читатели сейчас не выписывают РЕВЮ-94, 
полагая, что в конце года будет выпущен годовой сборник. Это ошибка. При новом 
оформлении и объеме 2Х-РЕВЮ-94 мы не сможем издать годовой сборник при всем своем 
желании. 

Тем не менее, все участники ТЕНДЕРа получат от нас персональное уведомление об 
его итогах, публично же его результаты мы обнародуем в первой выпуске будущего года. 


Пока же мы заканчиваем подготовку первого выпуска и уже можем оценить его 
себестоимость. Исходя из нее сейчас можно предположить, что по всей видимости цена 
отсечки будет не ниже 25 тысяч рублей. Таким образом, стоимость лицензии на право 
распространения одного номера РС-РЕВЮ составит не менее 25 тысяч рублей как для 
юридических, так и для физических лиц при приобретении лицензии сразу на несколько 
номеров, например на все 12 выпусков будущего года, конечно будут действовать скидки. 


У читателей 2Х-РЕВЮ есть несколько возможностей приобретения РС-РЕВЮ (для 
личного пользования или для участия в его распространении) от очень дорогих до 
практически бесплатных. 


1. Вы хотите читать РС-РЕВЮ, но не хотите участвовать в его распространении. 


1.1. Вы сможете обратиться в своем городе к нашему дистрибутору и скопировать у 
него очередной номер за назначенную им плату. Мы не можем определять ту цену, которую 
наши дистрибуторы назначат за копирование журнала, но можем предположить, что рынок 
выведет их на уровень от 2-х до 7 процентов (в зависимости от количества клиентов) от той 
суммы, которую они сами заплатили за лицензию. Плюс, конечно, стоимость дискеты 
(дискет). 

Это доступный и оперативный метод получения свежих выпусков журнала. 


1.2. Если в Вашем городе нет нашего дистрибутора, Вы можете обратиться в любой 
компьютерный салон или в любую фирму, занимающуюся торговлей компьютерами или 
программными продуктами в своем городе и предложить им связаться с нами. Может быть, 
им придется предварительно изучить потенциальный спрос. Если заявок будет хотя бы 
несколько десятков, они наверное согласятся включиться в нашу дистрибуторскую сеть, им 
это будет интересно, необременительно, а главное - перспективно. Это дело, которое будет 
развиваться и кто начнет его раньше, тот пойдет дальше. 


1.3. Вы можете вообще ничего не делать, а терпеливо ждать, когда номер РС-РЕВЮ 
сам придет к Вам, в руки через друзей или по компьютерным сетям поскольку выпуски будут 
распространяться без защиты от копирования, этот момент наступит через несколько 
месяцев (ориентировочно 5-6). Это практически бесплатный, но и самый длинный путь. 


1.4. Ограниченное количество дискет каждого номера мы будем продавать в 


подарочном (коллекционном) исполнении в красочных альбомах через дорогие 
компьютерные салоны, книжные магазины и музыкальнее магазины г. Москвы по престижно 
высоким денам. Поступать туда эти номера будут не ранее, чем через полтора месяца после 
рассылки мастеркопий дистрибуторам. 

Очевидно, для Вас это самый неудобный, дорогой и неоперативный способ получения 
журнала, но он необходим для поддержки маркетинговых усилий наших дистрибуторов в их 
регионах. 


2. Вы готовы подключиться к распространению РС-РЕВЮ. 


2.1. В этом случае для обладания свежим выпуском Вам придется предварительно 
перечислить нам установленную цену за мастердиск и за лицензию на копирование. 


2.2. Далее Вы можете делать все, что хотите, Вы можете копировать журнал для всех 
желающих на дискету заказчика за назначенную Вами плату. Ваши координаты войдут в 
список официально зарегистрированных дистрибуторов и к Вам будут обращаться 
читатели. 

Вы можете распространять этот журнал и на своих дискетах, используя для этого 
торговые возможности других фирм. 

Вы можете заниматься этим в порядке предпринимательской деятельности без 
образования юридического лица, что предусмотрено действующий законодательством. 

Вы можете специально для этого зарегистрировать фирму или использовать уже 
имеющуюся и заключить с нами договор. 


2.3. Не исключено, что Вы захотите стать Генеральный дистрибутором в своем городе 
(области, республике) и заключить с нами эксклюзивный договор, согласно которому Вы 
будете единственным дистрибутором в своем регионе. 

Это будет возможно, но не всегда. Мы пойдем на такой договор только в том случае, 
если Вы в своем регионе будете первым. Разорвать уже сложившиеся связи с партнерами 
мы конечно же не сможем. И, разумеется, такая генеральная лицензия будет стоить дороже. 
Это будет зависеть от размера региона. Генеральная лицензия на Эстонию будет стоить 
дороже, чем на один город Нарву. 

Для Москвы и Московской области Генеральная лицензия на эксклюзивное 
распространение не продается, но обычные лицензии продаются обычным порядком. 


Мы с Вами находимся у истоков огромного дела. В настоящее время в России и СНГ 
установлено свыше трех миллионов 1ВМ-совместиных компьютеров, но специалисты 
считают, что пока это капля в море. И до каждого компьютера Вы должны добраться. Не 
исключено, что Вы находитесь у истоков дела, в которое в ближайшие годы будут вовлечены 
сотни миллионов рублей и девяносто процентов из них - Ваши, так что решайтесь! Да, 
первое время может быть трудно, может быть придется побегать, покрутиться, кого-то 
убедить, кого-то организовать, но успех приходит только к подготовленным людям. Если у 
Вас есть вера в свои силы, Вы пойдете дальше вместе с нами. 


Со всеми вопросами, предложениями, пожеланиями, обращайтесь по адресу: 


121019, Москва, Г-19, а/Я 15, А/О "ИНФОРКОМ-ПРЕСС" 


ВНИМАНИЮ ЛЮБИТЕЛЕЙ ПЕРСОНАЛЬНОГО 
КОМПЬЮТЕРА "7Х-ЗРЕСТВУМ" 
и совместимых 


В 1993 году "ИНФОРКОМ" выпустил следующие книги: 


1. "/Х-РЕВЮ-91", выпуски 1-12, 264 с. Полный годовой комплект “7Х-РЕВЮ", 
сведенный в единый том. 

2. "7Х-РЕВЮ-92", выпуски 1 12, 264 с. - Полный годовой комплект "7Х-РЕВЮ", 
сведенный в единый том. 

3. "/Х-РЕВЮ-93", выпуски 1-12, 272 с. - Полный годовой комплект “7Х-РЕВЮ", 
сведенный в единый том. 

4. "Персональный компьютер "7Х-Зресгит". Программирование в машинных кодах и 
на языке АССЕМБЛЕРа, 273 с. Второе издание известной нашей книги, ранее 
распространявшейся в трех томах. 

5. "Персональный компьютер "7Х-Зре гит". Элементарная графика, 208 с. Первый 
том четырехтомного сериала, посвященного реализации графических возможностей 
компьютера. 

6. "Персональный компьютер "7Х-Зресгит". Прикладная графика, 208 с. Второй том 
четырехтомного сериала, посвященного реализации графических возможностей 
компьютера. 

7. Клайв Пригмор, Пол Шрив. "30 часов БЕЙСИКа для начинающих", - пер. с англ., 
редакция, адаптация "ИНФОРКОМа". 


В 1994 году "ИНФОРКОМ" выпускает следующие книги: 

1. "Персональный компьютер "7Х-Зресгит". Динамическая графика, 208 с. Третий 
том четырехтомного сериала, посвященного реализации графических возможностей 
компьютера. 

2. "Персональный компьютер “7Х-Зрестит". Дизайн Ваших программ, 208 с. 
Заключительный том четырехтомного сериала, посвященного реализации графических 
возможностей компьютера. 

3. "Персональный компьютер “7Х-Зрестит". Языки программирования", 208 с. 
Описание “синклеровских" версий языков программирования БЕТА-БЕЙСИК, МЕГА- 
БЕЙСИК, ЛАЗЕР-БЕЙСИК, ФОРТ, ПАСКАЛЬ, СИНКЛЕР-ЛОГО. 

4. "Периферия своими руками", 192 с. - сборник схем и описаний для доработки и 
расширения возможностей Вашего компьютера. 

5. "БЕЙСИК для опытного пользователя", 208 с. - книга рассчитана на читателей, 
закончивших работу с пособием "30 часов БЕЙСИКа для начинающих". 

6. "Работа с ПЗУ", 208 с. - на конкретных примерах рассмотрены возможности 
использования процедур ПЗУ при написании собственных программ в машинных кодах. 

7. "Игровые программы своими руками", 208 с. - сборник увлекательных игровых 
программ для самостоятельного набора и отладки. 

8. "Игровые программы своими руками - 2", 208 с. 

9. "Игровые программы своими руками - 3", 208 с. 


По всем вопросам приобретения указанной литературы по почте, а также по вопросам 
оптовых поставок обращаться письменно с вложением заполненного конверта с обратным 


адресом или лично на наш опорный пункт в г. Москве. 


121019, Москва, Г-19, а/я 10, "ИНФОРКОМ" 


ВНИМАНИЮ ЛЮБИТЕЛЕЙ ПЕРСОНАЛЬНОГО 
КОМПЬЮТЕРА "7Х-ЗРЕСТВУМ" 
и совместимых 


Вы можете приобрести литературу, выпускаемую “ИНФОРКОМом" у наших 
дистрибьюторов в следующих опорных пунктах: 
г. Москва, ул. Новый Арбат, д.2. 19-е отделение связи. 1-ый этаж операционного зала. 
Здесь Вы также можете подписаться на "7Х-РЕВЮ-94". 
г. Москва, радиорынок в Митино, проезд до ст. метро Тушинская или поездом до 
платформы Трикотажная (Рижское направление). Суббота, воскресенье 9 - 14. Киоск М .-37. 
г. БЕЛГОРОД, магазин "РАДИОТОВАРЫ", ул. Ленина, 32. 
г. БЕЛГОРОД, Октябрьская 84, кв. 103, студия "КОМПЬЮТЕР". 
г. ВЛАДИВОСТОК, Океанский пр-кт, 140, магазин "ПАНОРАМА". Проезд трамваем до 
ост. Некрасовская. 
г. ВОРОНЕЖ, студия компьютерных игр ЗАМ-ЗАМ. Магазин - салон "ЭЛЕКТРОНИКА", 
тел. 14-00-73, 
. ДНЕПРОПЕТРОВСК, ул. Шевченко, 34, фирма "ЭКОС". 
. ЕКАТЕРИНБУРГ, магазин "СПЕКТРУМ, Главный проспект, 99. 
. ИЖЕВСК, радиорынок "Козий Парк". 
. КЕМЕРОВО, магазин "ТЕХНИЧЕСКАЯ КНИГА", ул. Весенняя, 24. 
. КЕМЕРОВО, магазин "ОРБИТА", пр. Ленина, 133. 
. КИРОВ, "Дом Науки и Техники", магазин-салон "МАРС", ул. Производственная, 27. 
. КРАСНОЯРСК, радиорынок, проезд до ост. Затон, субб., воскр. 
. НАБЕРЕЖНЫЕ ЧЕЛНЫ, Татарстан. Новый Город, салон-магазин "ПРИНТЕР". 
. НИЖНИЙ НОВГОРОД, ИМА "Ф-ПЛЮС", магазин "ФОТОЛЮБИТЕЛЬ", ул. Горького, 


Я Л Е И 


16. 

. ОРЕНБУРГ, магазин "ВОЕННАЯ КНИГА", ул. Советская. 

. ПРОКОПЬЕВСК, Кемеровской обл, Тырган, магазин "ОДЕЖДА", фирма "РОНЭТ". 
. РЫБИНСК, ул. Гоголя, 1, ТТЦ "ГНОМ". 

. ХАБАРОВСК, ул. Запарина, 65, магазин "ФИЛАТЕЛИЯ". 

. ЧЕБОКСАРЫ, магазин "ЭКСПРЕСС", НПК фирма "НОВА", ул. Привокзальная, д. 6. 
. ЯРОСЛАВЛЬ, магазин "РАДИО-СПОРТ-ТУРИЗМ", Ленинградский проспект. 


т о 


ВНИМАНИЮ ЛЮБИТЕЛЕЙ ПЕРСОНАЛЬНОГО 
КОМПЬЮТЕРА "7Х-5РЕСТВУМ" 
и совместимых 


ИНФОРКОМ ПРЕДЛАГАЕТ 
Комплекс программ и описание новейшей операционной системы 1$ 005. 
Поставка производится по договору с фирмой "СЛОТ" на дискетах 360 К. 


1. Описание системы 1$ ОО0$5. - Книга содержит полное описание работы с базовый 
комплектом и прикладными программами. Книга издается фирмой "СЛОТ" при техническом 


и финансовом содействии "ИНФОРКОМа", 


2. Базовый комплект |$ 00$ : 

- Операционная система, файловая оболочка; 

- текстовый редактор; 

- программы и утилиты ОО5; 

- работа с дисками ТВ ОО$ и М$ 005; 

- упаковщики; 

- программы печати текстовых и экранных файлов; 

- резидентные задачи; 

- драйверы клавиатуры, монитора, принтера, виртуального диска. 


3,4. МУЗЫКАЛЬНЫЙ РЕДАКТОР - программа предназначена для работы с А\-8910/2 и 
операционной системой 1$ 00$. С ее помощью Вы приобретете стерео/моно звуковое 
сопровождение при работе всех 1$ РО$-совместимых программ. 

ПРОГРАММА СОЗДАНИЯ РЕКЛАМНЫХ РОЛИКОВ ($ЗНОМ)\ - пакет программ служит для 
создания и показа на мониторе рекламы, а также другой информации в непрерывном 
режиме демонстрации. Обе программы поставляются на одной дискете. 


5. ЗАПИСНАЯ КНИЖКА - пакет аналогичен записной книжке с разбивкой информации 
по буквам и по числам в каждом месяце. Предусмотрены широкие возможности поиска. 


6. ДЕЛОВОЙ КАЛЕНДАРЬ - программа необходима для тех, кто хочет планировать 
свои ежедневные дела или вести дневниковые записи в объеме до 615 знаков в течение 
нескольких лет. 

7. ФИНАНСЫ БЕЗ ПРОБЛЕМ - пакет автоматизирует бухгалтерский учет, сводя его к 
вводу и редактированию совершаемых операций в естественной, понятной форме. Все 
бухгалтерские проводки выполняются автоматически. Всегда готов оборотный баланс 


8. МАТЕРИАЛЬНЫЕ ЦЕННОСТИ - пакет предназначен для учета мат.ценностей. В 
процессе работы ведутся автоматически акты учета и списания по месяцам. 


9. СКЛАД - пакет предназначен для учета поступающих товаров, деталей ит.п. 
10. МАГАЗИН - все виды учета и отчетности магазина. 
11. КАРТОТЕКА - пакет предназначен для создания и ведения небольших картотек с 


широкими возможностями поиска, редактирования и просмотра. 


ПРИМЕЧАНИЕ: Готовится к изданию книга "“$-00$, руководство программиста". 
Выход из печати ожидается в феврале-марте 1994 г. 


ВНИМАНИЮ ЛЮБИТЕЛЕЙ КОМПЬЮТЕРНЫХ ИГР 
для |ВМ-совместимых компьютеров 


ОБЩЕСТВО ЗАКРЫТОГО ТИПА "ИНФОРКОМ-ПРЕСС"” 
начиная с 01.01.94г. приступило к выпуску ежемесячного электронного журнала "РС- 
ВЕМЕМ/”". 
К 01.02.94 г. подготовлено и выпущено два выпуска объемом по 2.5 Мегабайт каждый. 


В состав выпусков входят: 

- авторские обзоры игровых программ с иллюстрациями; 

- аналитические статьи, посвященные исследованию известных и 
широкораспространенных программ 

- переписка с читателями: ответы на вопросы, помощь и консультации, обмен 
мнениями и 

- обзоры зарубежных полиграфических и электронных журналов, посвященных 
тематике игрового программного обеспечения; 

- интервью с видными производителями программного обеспечения как в России, так 
и за рубежом; обсуждение технологических и маркетинговых проблем; 

- авторские компьютерные новеллы, написанные по мотивам известных игровых 
программ; 

- игровые этюды (отгруженные модули состояния известных игровых программ), 
предоставляющие читателям возможность увлекательного исследования в поисках 
решения; 

В качестве задач ближайшего времени “РС-ВЕ\Е\М/" видит помощь отечественным 
производителям программного обеспечения в налаживании эффективного маркетинга их 
продукции и становлении в России цивилизованного рынка игровых программ. 


"ИНФОРКОМ-ПРЕСС"” приглашает к участию над выпуском РС-НВЕМЕМ 
самодеятельных авторов. Принимаются авторские материалы по любой тематике, никаких 
требований к оформлении статей и обзоров не существует. Если Ваша статьи написана 
грамотно и интересно, наши редакторы оформят и подготовят ее к изданию сами. 
Опубликованные авторские статьи оплачиваются в размере до 1.0 $ Ц$ за 2 килобайта 
исходного текста (почтовым переводом в рублях по курсу ММВБ). Свои предложения и 
проекты направляйте по следующим каналам: 


почта - 121019, Москва, Г-19, а/я 16. 

факс - (095) 956-16-31 

Е-тай - роз1таег@сргез$$.5и 

Контактный телефон ДЛЯ АВТОРОВ - (090) 956-16-31. 


Единственный способ распространения РС-АЕ\МЕМ/ - через региональных 
дистрибьюторов. "ИНФОРКОМ-ПРЕСС"” розничную продажу выпусков журнала НЕ 
ПРОИЗВОДИТ. Стать дистрибьюторами, получить незащищенную копию журнала и 
лицензию на неограниченное тиражирование одного выпуска могут все желающие, 
оплатившие стоимость данной лицензии. Оплата принимается в любой форме. Дистрибуция 
журнала предельно проста и выполняется путем неограниченного копирования на одну 
Дискету 5.25 НО или на три дискеты 5.25 00. 


Заявку о желании стать дистрибьютором Вы можете направить по почте, факсу, 
электронной почте или сообщить по телефону. 


Контактный телефон для дистрибьюторов - (095) 452-31-03 (по вторникам с 10 до 17). 


РС-ВЕ\МЕ\ - это Ваше издание! 


